VB代码问题,说缺少语句结束,求电脑大神助攻。。
PrivateSubCommand1_Click()DimSexAsStringDimS1AsString,S2AsString,S3AsStringIfOption1....
Private Sub Command1_Click()
Dim Sex As String
Dim S1 As String, S2 As String, S3 As String
If Option1.Value = True Then
Sex = "男"
Else
Sex = "女"
End If
If Check1.Value = 1 Then
S1 = "数学"
Else
S1 = ""
End If
If Check2.Value = 1 Then
S2 = "英语"
Else
S2 = ""
End If
If Check3.Value = 1 Then
S3 = "政治"
Else
S3 = ""
End If
Text1.Text="性别:"&Sex&"考试科目为:"&S1&S2&S3
End Sub
一段VB代码,提示说缺少语句结束,◑﹏◐但我才学3天,不知道那里错了,求大神助攻~ 展开
Dim Sex As String
Dim S1 As String, S2 As String, S3 As String
If Option1.Value = True Then
Sex = "男"
Else
Sex = "女"
End If
If Check1.Value = 1 Then
S1 = "数学"
Else
S1 = ""
End If
If Check2.Value = 1 Then
S2 = "英语"
Else
S2 = ""
End If
If Check3.Value = 1 Then
S3 = "政治"
Else
S3 = ""
End If
Text1.Text="性别:"&Sex&"考试科目为:"&S1&S2&S3
End Sub
一段VB代码,提示说缺少语句结束,◑﹏◐但我才学3天,不知道那里错了,求大神助攻~ 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询