首先要把option1和check1做成控件组
Dim i As Integer, a As String
For i = 0 To 2
If Option1(i).Value = True Then a = Option1(i).Caption
Next i
For i = 0 To 3
If Check1(i).Value = 1 Then Text1.Text = Text1.Text & a & Check1(i).Caption & vbCrLf
Next i
Dim i As Integer, a As String
For i = 0 To 2
If Option1(i).Value = True Then a = Option1(i).Caption
Next i
For i = 0 To 3
If Check1(i).Value = 1 Then Text1.Text = Text1.Text & a & Check1(i).Caption & vbCrLf
Next i
温馨提示：内容为网友见解，仅供参考
第1个回答 2016-04-23
还是我，哈哈，，首先判断单选框哪个被选中如下代码
If object.value = True Then
OBJECT是单选框的控件名追答
If object.value = True Then
OBJECT是单选框的控件名追答
其实你就是新手不会用命令，这样吧，你电脑有网络吗？可以远程不，明天抽时间给你远程整整，我电脑没VB所以没办法
求求，2.2.8.5.948144
相似回答
