Question

vb 编程问题

设计一窗体，上有一个命令按钮标题为下一个。在窗体上建立一个单选按钮option1，含四个单选按钮，标题分别为 选项1 选项2 选项3 选项4 初始状态下“选项1” 为选中状态。使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮则选中第一个单选按钮.

Answer 1

建一个COmmand1,Option1 ，然后把Option1的Index属性设置为0.
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 4
If Option1(i).Value = True Then Exit For
Next
Option1(IIf(i = 4, 1, i + 1)).Value = True
End Sub

Private Sub Form_Load()
Command1.Caption = "下一个"
Dim i As Integer
Option1(0).Visible = False
For i = 1 To 4
Load Option1(i)
Option1(i).Move Option1(i - 1).Left, Option1(i - 1).Top + Option1(i - 1).Height
Option1(i).Caption = "选项" & i
Option1(i).Visible = True
Next
Option1(1).Value = True
End Sub

Answer 2

四个单选按钮的index属性依次为0，1，2，3
第一个单选按钮的value设为true
命令按钮的代码如下：
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 3
if i<3 then
option1(i+1).value =true
else
option1(0).value = true
end if
Next
End Sub