level 8
Dim S1 As String, S2 As String
For i = 0 To 3
If Option1(i).Value = True Then S1 = Option1(i).Caption
If Check1(i).Value = 1 Then S2 = S2 & Check1(i).Caption
Next i
MsgBox (Label1.Caption & Text1.Text & Label2.Caption & S1 & Label3.Caption & S2)
2023年11月01日 06点11分
3
按照你写的试了下运行时弹出编译错误:next没有for
2023年11月01日 07点11分
全都复制了,可结果就是那样
2023年11月01日 09点11分
把next i去掉提示是子程序函数为定义。把end if加上也还是 next没有for。是哪出了问题
2023年11月01日 09点11分