Index As Integer

来源：百度知道 编辑：UC知道 时间：2024/05/24 17:52:38
5.Private Sub Form_Load( )
Option1(0).Value=False
Option1(1).Value=False
Option1(2).Value=False
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Check1(0).Value=1:Check1(1).Value=0
Case 1
Check1(0).Value=0:Check1(1).Value=1
Case 2
Check1(0).Value=1:Check1(1).Value=1
End Select
If Check1(0).Value=1 Then Print “您好”
If Check1(1).Value=1 Then Print “欢迎使用Visual Basic！”
End Sub
这个程序显示结果是什么？ 我怎么来出错的 我只要知道结果是什么？ 谁能告诉我下

Index表示你点击的 Check1的下标。
代码没错，估计你错在Check1和Option1控件没定义成控件数组。
你的窗体上有三个单选按钮和两个复选按钮，当你单击单选按钮时，如果你点第一个按钮，，就显示“您好”，如果你点第二个单按钮，就显示“欢迎使用Visual Basic！”，如果你点第三个单选按钮，就两句都显示。