vb编程题每单击命令按钮一次，就选中下一个单选按钮在名称为Form1的窗体上有一个名称为Cmd1的命令按钮，其标题为“下一个”。要求在窗体上建立一个单选按钮数组Opt1，含4个单选按

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