.4 计算机二级等级考试VB 上机试题第一套
注意事项： 在电脑最后一个磁盘中建立考试文件夹。 考试文件夹的命名规则为 “学号 +姓名”，如“ 1001 杨军”。考生的所有解答内容都须存放在考试文件夹中。
一 设计图 1 所示界面的程序，程序运行后，输入球的半径，单击“球体积”、“球表面积”
复选框，根据复选框是否勾选，决定是否在右侧相应的文本框内显示球体积(4R3 )和球
3
表面积( 4 R 2 )的计算值。 ( 40 分，存盘时工程文件名为Ex11nnnn.vbp ，窗体文件名为
Ex11nnnn.frm ，其中 nnnn 为学号后四位)
二 编写具有图2 所示界面的应用程序，程序运行后，在“起始值”和“结束值”两个文本
框中分别输入一个整数(大小不限)，单击“计算累加和”按钮，就能在文本框下方的Label
控件中显示起始值与结束值之间所有奇数的累加和。( 30 分，存盘时工程文件名为
Ex12nnnn.vbp ，窗体文件名为Ex12nnnn.frm ，其中 nnnn 为学号后四位)
1
三 程序的功能是：学生成绩数据已经保存在数组a 中，学生姓名已经保存在数组b 中，单
击窗体， 就能在窗体上显示成绩最好的学生姓名及其成绩。( 30 分，要求根据程序代码改错，
改错时，不得增加和删除语句。将修改正确的程序存盘，工程文件名为Ex13nnnn.vbp ，窗
体文件名为Ex13nnnn.frm ，其中 nnnn 为学号后四位)
Private Sub form_click()
Dim a As Variant, b As String
a = Array(85, 77, 92, 66, 44)
b = Array(" 黄玉梅 ", " 朱明霞 ", " 孙家宝 ", " 赵天明 ", " 杨百万 ")
Max = a(0): student = b(0)
For i = 1 To 5
If b(i) > Max Then
Max = a(i): student = b(i)
End If
Next i
Print " 成绩最好的学生是："; student; " 考试成绩为："; Max; " 分 "
End Sub
2
.4 计算机二级等级考试 vb上机试题 第一套 的答案 4月计算机二级等级考试VB上机考试第一套.docx...
