= =新人求教。。
给段代码即可。。

好吧 已解决。。

val一下

谢谢。。
我刚刚解决了。。
还有就是 窗体中的Visible 这个属性在哪= =
我怎么一直找不到 。。
（我刚刚接触2010 ，，，）

只能在代码中使用

还是出错。。。
Form2.Visible = False
a = InputBox("1+1=？", "请回答")
If a <> 2 Then
Show(Form2)
For i = 1 To a
MsgBox(b)
Next
End
ElseIf a = 2 Then
MsgBox(c)
End
End If

能+QQ叫我么。。
还是错的

Form2.Hide()
a = Val(InputBox("1+1=？", "请回答"))
If a <> 2 Then
Form2.Show()
For i = 1 To a
MsgBox(b)
Next
Else
MsgBox(c) '前面已经判断a不等于2，else后就一定是2，为了提高性能，可以删除 If a = 2 Then 语句
End
End If

回复12楼:谢谢了 今天要睡了 明天再试
晚安

回复13楼:回复12楼:谢谢了 今天要睡了 明天再试
晚安

Form2.Hide '相当于Form2.Visible = False
Dim a As Integer
a = Int(Val(InputBox("1+1=？", "请回答")))
If a <> 2 Then
Form2.Visible = True
For i = 1 To a
MsgBox(b)
Next
End
Else
MsgBox(c)
End
End If
帮你改了一下。。还有，那个b和c我不知道从哪里来的，应该是你事先声明的String吧。

回复16楼:恩 是我声明好的

我的ID 就是。、、