Question

vb错误的参数号或无效的属性赋值？

Private Sub Command2_Click()
Dim A As String, B As String, C As String
For i = 1 To 3
If Option1(i).Value = True Then
A = Option1(i).Caption
End If
Next i
For i = 1 To 6
If Check1(i).Value = 1 Then
B = B + Check1(i).Caption + Space(1)
End If
Next i
For i = 7 To 12
If Check7(i).Value = 1 Then
C = C + Check7(i).Caption + Space(1)
End If
Next i
MsgBox "你选择的口味是<" + A + ">" + vbCrLf + "选择的菜品如下：" + B + C + vbCrLf + "收货地址是：" + Text1.Text
End Sub
请问哪里有错误呢？

Answer 1

1、查看窗体上控件是否齐全，
2、查看Check1控件是否为控件数组形式，
不是的话删除其它的只留下Check1，然后
在它上面右单击鼠标，选择复制，然后移动
鼠标到没有控件的地方，右单击鼠标，选择
粘贴，在弹出的窗口选择”是“，然后继续
粘贴到你想要的个数为止。