vb中的text1.text=val(text1.text)行吗
1个回答
展开全部
Dim r As Integer
r = Val(Text1.Text)
If Text1.Text = "" Then
MsgBox "请输入数据"ElseIf r 100 Or r < 0 Then
Text2.Text = "你所输入的数据超出范围"
ElseIf r = 90 Then
Text2.Text = "优"
ElseIf r < 90 And r = 80 Then
Text2.Text = "良"
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
