Question

VB中的两个“复选框（Checkbox,Optionbutton）”是怎么使用的？

Answer 1

代码如下：
Private
Sub
Command1_Click()
If
Option1.Value
=
True
Then
MsgBox
"你选择了复选框"
 
 
 
 
 
 
 
 
‘如果Option1被选中，则弹出消息框
If
Check1.Value
=
1
Then
 
 
MsgBox
"你选择了复选框"
 
 
 
 
 
 
 
 
‘如果Check1被选中，则弹出消息框
else
if
Check1.Value
=
0
Then
 
 
MsgBox
"你选择了复选框"
 
 
 
 
 
 
 
 
‘如果Check1被选中，则弹出消息框
End
If
End
Sub
 
这个代码明白吗？

Answer 2

代码如下：
Private
Sub
Command1_Click()
If
Option1.Value
=
True
Then
MsgBox
"你选择了复选框"
 
 
 
 
 
 
 
 
‘如果Option1被选中，则弹出消息框
If
Check1.Value
=
1
Then
 
 
MsgBox
"你选择了复选框"
 
 
 
 
 
 
 
 
‘如果Check1被选中，则弹出消息框
else
if
Check1.Value
=
0
Then
 
 
MsgBox
"你选择了复选框"
 
 
 
 
 
 
 
 
‘如果Check1被选中，则弹出消息框
End
If
End
Sub
 
这个代码明白吗？

Answer 3

代码如下：
Private
Sub
Command1_Click()
If
Option1.Value
=
True
Then
MsgBox
"你选择了复选框"

‘如果Option1被选中，则弹出消息框
If
Check1.Value
=
1
Then

MsgBox
"你选择了复选框"

‘如果Check1被选中，则弹出消息框
else
if
Check1.Value
=
0
Then

MsgBox
"你选择了复选框"

‘如果Check1被选中，则弹出消息框
End
If
End
Sub

这个代码明白吗？