用vb做一个选择题

Question

请问“如果点击按钮控件“开心”和“周一”，再点击按钮“确定”之后，会打开窗体“周一开心”，如果点击按钮“周一”和“伤心”，再点击按钮“确定”之后，会打开窗体“周一伤心”，如果点击按钮“周二”和“开心”，点击“确定”按钮之后会打开窗体“周二开心””的vb代码怎么写呀?

Answer 1

Dim S As String
Private Sub Command1_Click()
S = S & Command1.Caption
End Sub
Private Sub Command2_Click()
S = S & Command2.Caption
End Sub
Private Sub Command3_Click()
S = S & Command3.Caption
End Sub
Private Sub Form_Click()
Cls
Print S
S = ""
End Sub
Private Sub Form_Load()
Command1.Caption = "周一"
Command2.Caption = "开心"
Command3.Caption = "伤心"
End Sub

如图所示 点击完按钮后 单击窗体 显示出内容

追问

请问如果是点击“周一”和“开心”两个选项组控件之后，点击确定按钮，再打开窗体“周一开心”的话，怎么写呢?🙏

追答

print combo1
text & combo2.text

print combo1.text & combo2.text

追问

点击选项按钮控件中的选项按钮“周一”和“上课”，点击按钮控件“确定”后打开窗体“周一上课”，的vb代码怎么写呀，可以帮我完整的写一个吗🙏

点击选项按钮控件中的选项按钮“周一”和“上课”，点击按钮控件“确定”后打开窗体“周一上课”，的vb代码怎么写呀，可以帮我完整的写一个吗🙏

Answer 2

我表示我头好大，终于帮你基本完成了！我把代码给你（后面），我先说下界面设置，
先设置一个text1(textbox) （这个是输入数量N用的）于窗体，在属性框把它的index改为0，创建数组。再从工具栏拉一个text2(textbox),同样将其index改为0，创建数组（这个text2(0) 你注意把它的visible设为false)。再拉一个text3(textbox)同样将其index改为0（visible设为false)，创建数组.我设置了两个按钮，一个是command1（这是你输入数量时text1（0）旁边的按钮），另一个command2(这是隐藏答案，或先示时用的，运行时只要点它就可以自动切换）。设置一个单选框控件数祖，把它的visible设为false。再设置两个标签，第一个放在text1(0)旁边（设置caption“输入数量”)。设置第二个标签，使它设置为控件数组（注意设置visible为false）这个标签你在属性栏设置它的left为0。
（（（你注意3个text的大小免得窗体放不下以及有些东西因此被覆盖，如果有覆盖你注意那几个控件在界面上是哪部分，根据自己进行处理）））

Dim i As Integer, j As Integer
Private Sub Command2_Click()
For j = Val(Text1(0).Text) + 1 To 2 * Val(Text1(0).Text)
Text1(j).Visible = Not Text1(j).Visible
Next j
End Sub
Private Sub command1_click()
For i = 1 To Val(Text1(0).Text)
Load Text1(i)
Text1(i).Width = Text1(i).Width + (Form1.Width - 3 * Text1(0).Width)
Text1(i).Top = Text1(i).Top + 1200 * (i)
Text1(i).Visible = True
Load Label2(i)
Label2(i).Top = Text1(i).Top
Label2(i).Caption = i & "."
Label2(i).Visible = True
Next i
For j = 1 To Val(Text1(0).Text)
Load Text2(j)
Text2(j).Left = Text1(j).Width + 600
Text2(j).Top = Text1(j).Top
Text2(j).Visible = True
Next j
For i = 1 To Val(Text1(0).Text)
For j = 4 * i - 3 To 4 * i
Load Option1(j)
Option1(j).Visible = True
Option1(j).Width = 500
Option1(j).Caption = Chr(64 + (j - 4 * (i - 1)))
If j = 4 * i - 3 Then
Option1(j).Left = 50
Option1(j).Top = Text1(i).Top + 600
Else
Option1(j).Left = Option1(4 * i - 3).Left + Option1(4 * i - 3).Width + 2200 * (j - 4 * (i - 1) - 1) Option1(j).Top = Text1(i).Top + 600
End If
Load Text3(j)
Text3(j).Visible = True
Text3(j).Left = Option1(j).Left + 500
Text3(j).Top = Option1(j).Top + 100
Next j
Next i
End Sub
Private Sub Option1_Click(Index As Integer)
If Option1(Index).Value = True Then
If Option1(Index).Caption = Text2(Int(Index / 4) + 1) Then
MsgBox "回答正确，请继续努力！"
Else
MsgBox "回答错误，请再想想！"
End If
End If
End Sub

Answer 3

可以这样写：
if text1.text="1" then
form2.show
form1.hide
else
msbox"回答错误！"
form2.show
form1.hide
end if本回答被网友采纳