由于我们没有学过VB语言就直接学编程```所以好多语言说不通``
总是要调试```电脑老师又布置了一个作业````````````````````````````问题是这样的```建立一个Text和一个确定按钮
需要在Text文本框里输入0-100的数字 按下确定按钮
如果就>60且=60就显示"及格"
如果<60就显示"不及格"
谢谢各位!!!帮语言写出来一下
參考答案:Private Sub Command1_Click()
Dim chengji As Integer
chengji = Text1.Text
If chengji >= 60 Then
Text1.Text = "及格"
Else
Text1.Text = "不及格"
End If
End Sub
Private Sub Text1_LostFocus()
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字"
Text1.Text = ""
End If
End Sub
