求一个vb成绩判定程序,谢谢,如有结果会及时采纳。
在窗体添加名称分别为TxtScore和TxtRank的文本框,一个名称为Command1的命令按钮,两个标签名称分别为Label1和Label2,标题分别为“输入成绩:”...
在窗体添加名称分别为TxtScore和TxtRank的文本框,一个名称为 Command1的命令按钮,两个标签名称分别为Label1和Label2,标题分别为“输入成绩:”和“等级:”
程序的功能是一个输入学生成绩,对他的成绩进行等级评定,60分以下为“不及格”,60-79分为“及格”,80-89为"良“,90-100为”优“,其他情况提示”输入错误“。
程序运行后,在TxtScore文本输入数值,单击Command1按钮,相应的计算结果显示在TxtRank文本框中。 展开
程序的功能是一个输入学生成绩,对他的成绩进行等级评定,60分以下为“不及格”,60-79分为“及格”,80-89为"良“,90-100为”优“,其他情况提示”输入错误“。
程序运行后,在TxtScore文本输入数值,单击Command1按钮,相应的计算结果显示在TxtRank文本框中。 展开
3个回答
展开全部
这个程序本身并没有什么难度,主要是在判断环节上。按下Command1后,对TxtScore的内容时行判断,你可以用ISNUMERIC来判断是否输入的为数字。不是就提示输入错误。
判断语句你可以多作几个if,或都用Case语句都可以。
如:if txtscore<60 then
txtrank="不及格"
end if
if txtscore>60 and txtdcore<69 then
txtrank="及格"
end if
以下类推。
判断语句你可以多作几个if,或都用Case语句都可以。
如:if txtscore<60 then
txtrank="不及格"
end if
if txtscore>60 and txtdcore<69 then
txtrank="及格"
end if
以下类推。
追问
谢谢,感谢回答
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
看我的 输入成绩里只能输入数字 别的不能输入 判断也没问题 需要源码再追
追问
请给下源码吧,你这个被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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询