Question

vb编程题每单击命令按钮一次，就选中下一个单选按钮

在名称为 Form1 的窗体上有一个名称为 Cmd1 的命令按钮，其标题为“下一个”。要求在窗体上建立一个 单选按钮数组 Opt1，含 4 个单选按钮，标题分别为“A”、“B”、“C”和“D”，初始状态 下，“A”为选中状态。
要求程序运行时，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中
最后一个单选按钮，再单击命令按钮，则选中第 1 个单选按钮。

Answer 1

 

 

代码如下:

Option Explicit

Private Sub cmd1_Click()

    If opt1(0).Value = True Then

        opt1(1).Value = True

    ElseIf opt1(1).Value = True Then

        opt1(2).Value = True

    ElseIf opt1(2).Value = True Then

        opt1(3).Value = True

    ElseIf opt1(3).Value = True Then

        opt1(0).Value = True

    End If

End Sub

 

Private Sub Form_Load()

    opt1(0).Value = True

End Sub

 

 

Answer 2

Private Sub Cmd1_Click()
Dim i As Integer
For i = Opt1.LBound To Opt1.UBound
If Opt1(i).Value Then
i = (i + 1) Mod Opt1.Count
Opt1(i).Value = True
Exit For
End If
Next
End Sub

追问

我试了，不对啊~~~

Answer 3

？？