VB 基础问题

Question

我有一组单选框数组，还有一个复选框控件，请问如何在复选框选中时，其中的几个单选框在TEXT1中返回的值自动加上0.2。求代码。多谢~ 
问题补充：
是这样子，我可能没说清楚，有0-20个option1 然后有一个check1 
option1/(0-5)选中时，在TEXT1中返回的值分别为0.1 0.2 0.3 0.4 0.5 0.6(用到了SELECT CASE)
如何实现check1选中时，且当0-5option1中有任一个选中时，对应的值加0.2
能不能详细一点啊，理解能力有限。

Answer 1

请问你还在吗?你的程序是不是需要更改option.caption的值??

Answer 2

好了,完成了..
Private Sub Command1_Click()
If Option1 Then
Option1_Click
ElseIf Option2 Then
Option2_Click
ElseIf Option3 Then
Option3_Click
End If
End SubPrivate Sub Command2_Click()
Option1.Caption = "0.1"
Option2.Caption = "0.2"
Option3.Caption = "0.3"
End SubPrivate Sub Option1_Click()
If Check1 Then Option1.Caption = CStr(Option1.Caption) + 0.1
End SubPrivate Sub Option2_Click()
If Check1 Then Option2.Caption = CStr(Option2.Caption) + 0.2
End SubPrivate Sub Option3_Click()
If Check1 Then Option3.Caption = CStr(Option3.Caption) + 0.3
End Sub
如果要程序的窗体什么的,加我QQ 343745173

Answer 3

Private Sub Command1_Click() 
If Option1 Then 
Option1_Click 
ElseIf Option2 Then 
Option2_Click 
ElseIf Option3 Then 
Option3_Click 
End If 
End Sub Private Sub Command2_Click() 
Option1.Caption = "0.1" 
Option2.Caption = "0.2" 
Option3.Caption = "0.3" 
End Sub Private Sub Option1_Click() 
If Check1 Then Option1.Caption = CStr(Option1.Caption) + 0.1 
End Sub Private Sub Option2_Click() 
If Check1 Then Option2.Caption = CStr(Option2.Caption) + 0.2 
End Sub Private Sub Option3_Click() 
If Check1 Then Option3.Caption = CStr(Option3.Caption) + 0.3 
End Sub 尝试一下,其实东西和前面一样..
还是一样的话,如果要窗体加我QQ 343745173