求一个vb成绩判定程序,谢谢,如有结果会及时采纳。

在窗体添加名称分别为TxtScore和TxtRank的文本框,一个名称为Command1的命令按钮,两个标签名称分别为Label1和Label2,标题分别为“输入成绩:”... 在窗体添加名称分别为TxtScore和TxtRank的文本框,一个名称为 Command1的命令按钮,两个标签名称分别为Label1和Label2,标题分别为“输入成绩:”和“等级:”
程序的功能是一个输入学生成绩,对他的成绩进行等级评定,60分以下为“不及格”,60-79分为“及格”,80-89为"良“,90-100为”优“,其他情况提示”输入错误“。
程序运行后,在TxtScore文本输入数值,单击Command1按钮,相应的计算结果显示在TxtRank文本框中。
展开
 我来答
MOV51C
2014-10-09 · 超过64用户采纳过TA的回答
知道小有建树答主
回答量:169
采纳率:0%
帮助的人:69.4万
展开全部

Private Sub Command1_Click()

 Dim x As Integer

 x = TxtScore.Text

 If x < 60 Then

  TxtRank.Text = "不及格"

 ElseIf x >= 60 And x <= 79 Then

   TxtRank.Text = "及格"

 ElseIf x >= 80 And x <= 89 Then

   TxtRank.Text = "良"

 ElseIf x >= 90 And x <= 100 Then

    TxtRank.Text = "优"

 End If

End Sub


追问
如果出现其他情况,提示输入错误怎么写呢
alpsong
2014-10-09 · 超过33用户采纳过TA的回答
知道答主
回答量:114
采纳率:0%
帮助的人:40.9万
展开全部
这个程序本身并没有什么难度,主要是在判断环节上。按下Command1后,对TxtScore的内容时行判断,你可以用ISNUMERIC来判断是否输入的为数字。不是就提示输入错误。
判断语句你可以多作几个if,或都用Case语句都可以。
如:if txtscore<60 then
txtrank="不及格"
end if

if txtscore>60 and txtdcore<69 then
txtrank="及格"
end if
以下类推。
追问
谢谢,感谢回答
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hhglzgcz
2014-10-09 · TA获得超过960个赞
知道小有建树答主
回答量:1800
采纳率:54%
帮助的人:453万
展开全部

看我的 输入成绩里只能输入数字 别的不能输入 判断也没问题 需要源码再追

追问
请给下源码吧,你这个被win8.1阻止运行了
追答
Private Sub Command1_Click()
Dim cj As Single
Dim dj As String
cj = Val(TxtScore.Text)
If cj >= 90 And cj = 80 And cj = 60 And cj 100 Then
TxtRank.Text = "输入错误"
End If
End Sub
Private Sub TxtScore_Change() 'text框的Change事件里
Dim Str As String
Str = TxtScore.Text
For i = Len(TxtScore.Text) To 1 Step -1
If Asc(Mid(TxtScore.Text, i, 1)) Asc("9") Then
Str = Replace(Str, Mid(TxtScore.Text, i, 1), "")
End If
Next
TxtScore.Text = Str
TxtScore.SelStart = Len(Str)
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式