Question

vb调试中提示缺少子程序、函数或属性的错误

Private Sub Command1_Click()
Dim Person As String
Person = Text1.Text
If Option1.Value = True Then
Person = Person + "：" + "本科生，"
Else
Person = Person + "：" + "研究生，"
End If

Person = Person + "选修的课程有："
If Check1.Value = 1 Then
Person "" + Check1.Caption
End If
If Check2.Value = 1 Then
Person "" + Check2.Caption
End If
If Check3.Value = 1 Then
Person "" + Check3.Caption
End If
If Check4.Value = 1 Then
Person "" + Check4.Caption
End If
MsgBox Person, vbInformation, "显示选修课程"
End Sub

Answer 1

Private Sub Command1_Click()
Dim Person As String
Person = Text1.Text
If Option1.Value = True Then
Person = Person + "：" + "本科生，"
Else
Person = Person + "：" + "研究生，"
End If

Person = Person + "选修的课程有："
If Check1.Value = 1 Then
Person = Person + " " + Check1.Caption
End If
If Check2.Value = 1 Then
Person = Person + " " + Check2.Caption
End If
If Check3.Value = 1 Then
Person = Person + " " + Check3.Caption
End If
If Check4.Value = 1 Then
Person = Person + " " + Check4.Caption
End If
MsgBox Person, vbInformation, "显示选修课程"
End Sub

Answer 2

Person "" + Check1.Caption
类似这样的语句都有语法错误
Person = Person + Check1.Caption
改成类似这样的才对.
另外,确定一下你当前窗体上有以下控件 文本框控件Text1, 单选按钮控件Option1, 复选框控件Check1 - Check4