高校问答仙剑云之凡 云天河:好急 VB高手入内
来源：百度文库 编辑：高校问答 时间：2024/04/28 04:35:23
(1)程序改错题：
gc458.frm的功能是：窗体上有一个文本框，名称为Text1；3个标签，名称分别为“请输入成绩”、“成绩评语”和空白；一个命令按钮，名称为C1，标题为“获得评语”。请编写适当的事件过程，使得在运行时，在Text1中输入0到100间的数字，单击“获得评语”按钮，在Labbel3中本题表中显示的内容。
成绩范围 Label3中的内容
[85,100] 该生成绩优良
[60,85] 该生成绩合格
[0,60] 该生成绩不合格
事件过程代码中有2处错误,请改正,不得增加和删除代码行。
Private Sub c1_click()
x = Val(Text1.Text)
If x > 100 And x < 0 Then
MsgBox "输入成绩错误，程序退出!"
End
End If
If x >= 85 Then
strtemp = "该生成绩优秀"
ElseIf x >= 60 Then
strtemp = "该生成绩合格"
Else
strtemp = "该生成绩不合格"
End If
Label3.Caption = "该生成绩"
End Sub
Private Sub RTY_Change()
End Sub
gc458.frm的功能是：窗体上有一个文本框，名称为Text1；3个标签，名称分别为“请输入成绩”、“成绩评语”和空白；一个命令按钮，名称为C1，标题为“获得评语”。请编写适当的事件过程，使得在运行时，在Text1中输入0到100间的数字，单击“获得评语”按钮，在Labbel3中本题表中显示的内容。
成绩范围 Label3中的内容
[85,100] 该生成绩优良
[60,85] 该生成绩合格
[0,60] 该生成绩不合格
事件过程代码中有2处错误,请改正,不得增加和删除代码行。
Private Sub c1_click()
x = Val(Text1.Text)
If x > 100 And x < 0 Then
MsgBox "输入成绩错误，程序退出!"
End
End If
If x >= 85 Then
strtemp = "该生成绩优秀"
ElseIf x >= 60 Then
strtemp = "该生成绩合格"
Else
strtemp = "该生成绩不合格"
End If
Label3.Caption = "该生成绩"
End Sub
Private Sub RTY_Change()
End Sub
1、Label3.Caption = "该生成绩"中的“该生成绩”应换为strtemp
2、end换为Exit sub