高中信息技术学业水平测试 VB操作题(3)

'在Text1中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在Label1中！

Private Sub Command1_Click()

Dim exam As Integer '定义变量exam用来存放成绩

'判断输入的成绩是否为数值！

If IsNumeric(Text1.Text) = False Then

If MsgBox(\您输入的成绩必须为数字！\ Exit Sub End If End If

'判断输入的成绩是否合法 exam = Val(Text1.Text)

If exam < 0 Or exam > 100 Or Len(exam) = 0 Then

If MsgBox(\您输入的成绩不正确！\ Exit Sub End If End If

'将输入的成绩转换为相应的等级 Select Case __①__ Case __②__

Label1.Caption = \该学生的成绩等级为：D\

11

Case __③__

Label1.Caption = \该学生的成绩等级为：C\ Case __④__

Label1.Caption = \该学生的成绩等级为：B\ Case __⑤__

Label1.Caption = \该学生的成绩等级为：A\ __⑥__ End Sub 20、

'（1）删除①②③及下划线，填空完成程序。

'（2）点击“计算”按钮后，在窗体上输出“1+2+??+100”的和，并求出1到100之间能被19整除的整数的个数

'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。

Private Sub Command1_Click() Dim i As Integer, x As Integer Dim s As Integer s = 0 x = 0

For i = 1 To 100

______①______

If _____②____ Then x = _____③_____ Next i

Print \

Print \到100之间能被19整除有:\个数\

End Sub

12

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库高中信息技术学业水平测试 VB操作题(3)在线全文阅读。