.4 计算机二级等级考试 VB上机试题 第一套
注意事项：在电脑最后一个磁盘中建立考试文件夹。考试文件夹的命名规则为“学号+姓名”，如“10011001 杨军”。考生的所有解答内容都须存放在考试文件夹中。
一 设计图1所示界面的程序，程序运行后，输入球的半径，单击“球体积”、“球表面积”复选框，根据复选框是否勾选，决定是否在右侧相应的文本框内显示球体积()和球表面积()的计算值。(40分，存盘时工程文件名为Ex11nnnn.vbp，窗体文件名为Ex11nnnn.frm，其中nnnn为学号后四位)
二 编写具有图2所示界面的应用程序，程序运行后，在“起始值”和“结束值”两个文本框中分别输入一个整数(大小不限)，单击“计算累加和”按钮，就能在文本框下方的Label控件中显示起始值与结束值之间所有奇数的累加和。(30分，存盘时工程文件名为Ex12nnnn.vbp，窗体文件名为Ex12nnnn.frm，其中nnnn为学号后四位)
三 程序的功能是：学生成绩数据已经保存在数组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. Private Sub Form_Load()
Dim m, n As Integer
s = 0
m = Val(Text1.Text)
n = Val(Text2.Text)
End Sub
Private Sub Command1_Click()
m = Val(Text1.Text)
n = Val(Text2.Text)
If m Mod 2 = 0 Then
For i = m - 1 To n Step -2: s = s + i
Next i
Print s
Label3.Caption = "从 " & m & "与" & n & "之间所有奇数的累加和 " & s
End If
If m Mod 2 <> 0 Then
For i = m To n Step -2: s = s + i
Next i
Print s
Label3.Caption = "从 " & m & "与" & n & "之间所有奇数的累加和 " & s
End If
End Sub
展开阅读全文
.4 计算机二级等级考试 vb上机试题 第一套 的答案 4月计算机二级等级考试VB上机考试第一套.doc...
