vb的一些简单编程
二、在窗体上创建四个单选按钮,标题分别为“选项1”、“ 选项2”、“ 选项3”和“选项4”。初始状态下,“选项1”被选中。编写程序,使得单击“下一个”命令按钮一次,就选中下一个单选按钮。如果已选中“选项4”, 单击命令按钮,则选中“选项1”。 单击“上一个”命令按钮,单选按钮的选中状态变化刚好与此相反。窗体用文件名A2.frm保存,工程用文件名A2.vbp保存。
补充:
追问:不知道哪里错了~
二、在窗体上创建四个单选按钮,标题分别为“选项1”、“ 选项2”、“ 选项3”和“选项4”。初始状态下,“选项1”被选中。编写程序,使得单击“下一个”命令按钮一次,就选中下一个单选按钮。如果已选中“选项4”, 单击命令按钮,则选中“选项1”。 单击“上一个”命令按钮,单选按钮的选中状态变化刚好与此相反。窗体用文件名A2.frm保存,工程用文件名A2.vbp保存。
补充:
追问:不知道哪里错了~
答案:先创建option1控件数组然后加两个按钮 然后敲入代码.
Dim i As Integer
Private Sub Command1_Click()
If Option1(0).Value = True Then
Option1(3).Value = True
Else
For i = 0 To 3
If Option1(i).Value = True Then
Option1(i - 1).Value = True
i = i - 1
End If
Next
End If
End Sub
Private Sub Command2_Click()
If Option1(3).Value = True Then
Option1(0).Value = True
Else
For i = 0 To 3
If Option1(i).Value = True Then
Option1(i + 1).Value = True
i = i + 1
End If
Next
End If
End Sub