Question

VB的题目 2．打开代码窗体，查看注释①和②所在行的语句，修改其中错误的一行，使程序在运行过程中，输入

打开并修改考生文件夹下“VB”文件夹中的工程文件“hktest.vbp”，使其具有下列功能：在文本框Text1中输入会考证号，在文本框Text2中输入会考模拟测试成绩；点击“等第判定”按钮，程序根据以下的范围判定该成绩的等第，并给出评价语句；点击“退出”按钮，关闭程序。

2．打开代码窗体，查看注释①和②所在行的语句，修改其中错误的一行，使程序在运行过程中，输入小于0或大于100的数值，能在标签Label3上显示“成绩输入无效，请重新输入！”的提示。
3．运行程序，发现在文本框Text1输入会考证号与在文本框Text2输入测试成绩并单击命令按钮Command1后，在标签Label3上未能显示判定结果。请在注释③所在的行添加正确的事件代码，实现上述功能。

Answer 1

'1、在窗口上添加text1、text2、command1、command2、label3控件

Private Sub Form_Load()
Command1.Caption = "等待判定"
Command2.Caption = "退出"
End Sub
End If
Private Sub Command1_Click() '等第判定
ss = Val(Text2.Text)
If ss < 0 Or ss > 1000 Then '1
dd = "成绩输入无效，请重新输入！"
ElseIf ss < 60 Then
dd = "成绩不合格，判定为E。" & vbCrLf & "希望多多努力！加油！"
ElseIf ss < 80 Then
dd = "成绩合格，判定为C。" & vbCrLf & "希望下次测试能考好！"
ElseIf ss < 95 Then
dd = "成绩良好，判定为B。" & vbCrLf & "请争取向A级冲刺！"
ElseIf ss <= 100 Then '2
dd = "成绩优秀，判定为A。" & vbCrLf & "希望以后再接在励！"
End If
If Text1.Text <> "" and Text2.Text <> "" Then Label3.Caption = dd '3
End Sub
Private Sub Command2_Click() '退出
End
End Sub

'请采纳！谢谢！

追问

’1 那里还是错的

Answer 2

Option Explicit
    Dim ss As Single
    Dim dd As String
     
Private Sub Command1_Click()
    ss = Val(Text2.Text)
    If ss < 0 Or ss > 100 Then
        dd = "成绩输入无效，请重新输入。"
    ElseIf ss < 60 Then
        dd = "成绩不合格，判定为E。" & vbCrLf & "希望多多努力！加油！"
    ElseIf ss < 80 Then
        dd = "成绩合格，判定为C。" & vbCrLf & "希望下次测试能考好！"
    ElseIf ss < 95 Then
        dd = "成绩良好，判定为B。" & vbCrLf & "请希望下次向A级冲刺！"
    ElseIf ss <= 100 Then
        dd = "成绩优秀，判定为A。" & vbCrLf & "希望以后再接再厉！"
    End If
    Label3.Caption = dd
End Sub

Answer 3

'我不知道你这是怎么写的,反正判断写的是一点都不对!  正确写法如下:
Private Sub command1_click()
Dim ss  As Single
Dim dd As String
ss = Val(Text2.Text)
If ss <= 0 Or ss > 100 Then ' ① 修改成这样
dd = "成绩输入无效，请重新输入!"
ElseIf ss < 60 Then
dd = "成绩不合格，判定为E。" & vbCrLf & "希望多多努力！加油！"
ElseIf ss >= 60 And ss <= 79 Then
dd = "成绩合格，判定为C。" & vbCrLf & "希望下次测试能考好！"
ElseIf ss >= 80 And ss <= 95 Then
dd = "成绩良好，判定为B。" & vbCrLf & "请希望下次向A级冲刺！"
ElseIf ss >= 96 And ss <= 100 Then '②
 dd = "成绩优秀，判定为A。" & vbCrLf & "希望以后再接再厉！"
End If
Label3.Caption = dd '③
End Sub

Answer 4

①：

If ss < 0 Or ss > 100 Then

③

Label3.Caption = dd

追问

第二个是对的 第一个还是错的 怎么回事呢？

追答

②不用改，①和③所在的行替换成上文即可

追问

阅卷结果 1 还是错的  小于0或大于100的程序怎么写呢 这样还是不对

追答

没办法，阅卷器就是那么脑残。我早就对此无语，

我只想说目前这个程序没有问题，如果你认为错了，可以看看它给的答案是什么。我也想见识见识

思来索去感觉Text1没用，将③改成如下：

Label3.Caption = Text1.Text & dd