4、单选按钮（Option Button)
作⽤：显⽰⼀个可打开/关闭的选项
注意：同⼀组只可选中⼀个选项。
Option Button单选钮控件总是以组的形式出现的。在⼀组Option Button控件中，总是只有⼀个单选钮处于选中状态；如果选中了其中的⼀个，其余单选钮则⾃动清除为⾮选中状态。
（1）常⽤属性
Caption——指定单选钮所表⽰的选择项的内容。
value——返回或设置单选钮的状态。
value= true '选中了控件代表的项
value= false '没有选中控件代表的项
Enabled——表⽰单选钮当前是否可⽤。其值为True时，表⽰单选钮为正常可⽤状态；为False时．表⽰单选钮处于不可⽤状态，此时选择项内容变为雕刻状。
（2）例⼦：
[例1]：显⽰两个数的四则运算结果。见教材P118。
Private Sub Form_Load()
Option1(0).Value = True '选中第⼀个选项。
Label2.Caption = 56 * 89
End Sub
--------------------------------------------------------------------------------
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Label2.Caption = 56 * 89 '选择乘法
Case 1
Label2.Caption = 56 / 89 '选择除法
Case 2
Label2.Caption = 56 + 89 '选择加法
Case 3
Label2.Caption = 56 - 89 '选择减法
End Select
End Sub
注意：
本例中，单选按钮可采⽤复制的⽅法获得⼀组。
当单选按钮的value设为true时，相当于进⾏click事件。
[程序演⽰] [程序下载]
Select Case语句是VB提供的⼜⼀种条件语句,⽤来实现多分⽀选择（见教材第三章）。
Select Case语句的⼀般格式如下：
Select Case 变量
Case 值 1
语句 1
vb视频教程下载Case 值 2
语句 2
.
.
.
Case 值 n
语句 n
[Case Else
语句 n+1]
End Select
Select Case中的“变量”称为Case变量，它可以是⼀个表达式，通常使⽤⼀个变量或常量，也可以是数值型或字符串型。在每个Case⼦句中指定⼀个值，当Case变量的值符合某个Case⼦句指定值的条件时，就执⾏该Case⼦句中的语句，然后跳到End Select，从End Select出⼝。这⾥的“语句”可以是⼀个语句，也可以是⼀组语句。如果变量的值与任何⼀个Case⼦句都不匹配，就执⾏Case Else⼦句后⾯的“语句 n+1”，然后从End Select出⼝（如果程序中，不涉及到这种情况，[]中的程序段可以不要）。
[例2]：将已知的两个数据进⾏：乘法、除法、加法、减法运算。
添加四个单选按钮、四个标签、两个⽂本框。
Dim result As Double
Private Sub Option1_Click()
If Option1.Value Then
  Label1.Caption =""
  result = Val(Text1.Text) * Val(Text2.Text) 'val()将字符串转换为数值型（因为⽂本框只接受字符型数据，⽽程序要求Text1中的数据参加数值运算）
  Label1.Caption = Str(result) ' str()将数值型数据转换为字符串类型
　End If
End Sub
--------------------------------------------------------------------------------
Private Sub Option2_Click()
　If Val(Text2.Text) = 0 Then
  　MsgBox "被除数不能为零，请重新输⼊!" 'MsgBox语句
　Else
  　If Option2.Value Then
    Label1.Caption =""
    result = Val(Text1.Text) / Val(Text2.Text)
    Label1.Caption = Str(result)
  　End If
　End If
end sub
--------------------------------------------------------------------------------
Private Sub Option3_Click()
　If Option3.Value Then
  　Label1.Caption =""
  　result = Val(Text1.Text) + Val(Text2.Text)
  　Label1.Caption = Str(result)
  End If
End Sub
--------------------------------------------------------------------------------Private Sub Option4_Click()
　If Option4.Value Then

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。