小弟是新手,做练习的时候出现了问题,求各位高手指点,谢谢!
程序如下:
Private Sub Combo1_Click()
Text1.Text = "你选择了" &Combo1.Text& "运动" ****此行一直显示为红色,并提示缺少语句结束****
Combo1.Text = ""
Combo1.SetFocus
End SubPrivate Sub cmdadd_Click()
Combo1.AddItem Combo1.Text
Combo1.Text = ""
Combo1.SetFocus
End SubPrivate Sub cmdexit_Click()
End
End Sub
程序如下:
Private Sub Combo1_Click()
Text1.Text = "你选择了" &Combo1.Text& "运动" ****此行一直显示为红色,并提示缺少语句结束****
Combo1.Text = ""
Combo1.SetFocus
End SubPrivate Sub cmdadd_Click()
Combo1.AddItem Combo1.Text
Combo1.Text = ""
Combo1.SetFocus
End SubPrivate Sub cmdexit_Click()
End
End Sub
改成:
Text1.Text = "你选择了" & Combo1.Text & "运动"