
分别单击这两个控件,然后画到窗体上即可,或者直接在控件上双击,
然后在属性窗口中,修改它们的名称分别为lblShow,和CmdOK
建一表单,加入一个文本框text1,加入一个标签控件lblshow,双击Text1控件,录入以下代码:Private Sub Text1_Change()
Dim Score As Integer
Score = Val(Text1.Text)
If Score <60 Then
lblshow.Caption = "成绩不及格"
ElseIf Score >90 Then
lblshow.Caption = "成绩优秀"
Else
lblshow.Caption = "成绩优良"
End If
End Sub
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)