vb点击按钮跳出来多个窗口是怎么回事？

Question

Private Sub Command1_Click()
If Option1.Value = ture Then
Form3.Show
Form4.Hide
End If
If Option2.Value = ture Then
Form3.Show
Form4.Hide
End If
If Option3.Value = ture Then
Form2.Show
Form4.Hide
End If
If Option4.Value = ture Then
Form2.Show
Form4.Hide
End If
End Sub
本来option1为true时弹出form3，结果现在form2也跳出来了，还在form3的上面，请问怎么解决

Answer 1

直接修改，就是这样：

再进一步优化一下，就是这样：

追问

这样确实只会跳出来form3，但是选择option3或option4时还是跳出来form3，form2跳不出来，怎么办

追答

不应该啊，你是不是写错了，把Form2.Show都写成Form3.Show了吧

追问

没有写错，选择点1.2.3.4都是跳出来form3

追答

代码没 问题，肯定是你自己写错，你截图出来看看

追问

追答

腰捂溜 溜溜凌溜 凌酒捂散，威

Answer 2

打错了变量名ture实际应该用true

Answer 3

点击按钮跳出来多个窗口应该就是点击过多，而且它里面那块程序应该是点击错误。

Answer 4

你这个都是IF，也就是平行的，所以你后面代码换成ELse If追问

哪里换成else if

追答

If Option1.Value = ture Then
Form3.Show
Form4.Hide
End If
这之后的代码，每个都加ELSE

追问

加上去，都运行不起来了

Answer 5

Private Sub Command1_Click()
Dim t As Form, i As Integer
For i = 0 To 5
Set t = New Form1'Form1是母版窗体
t.Caption = "弹出窗口 - No." & i + 1
t.Show
Next
End Sub