VB 基础问题

[a7955084]

我有一组单选框数组，还有一个复选框控件，请问如何在复选框选中时，其中的几个单选框在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
能不能详细一点啊，理解能力有限。

[a7955084]

着急啊，请高手求解啊。

[gzy9518]

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

[gzy9518]

好了,完成了..
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

[gzy9518]

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