2010.4 计算机二级等级考试 vb上机试题 第一套 的答案,2010年4月计算机二级等级考试VB上机考试第一套.doc...

2010.4 计算机二级等级考试 VB上机试题 第一套

注意事项：在电脑最后一个磁盘中建立考试文件夹。考试文件夹的命名规则为“学号+姓名”，如“200910011001 杨军”。考生的所有解答内容都须存放在考试文件夹中。

一 设计图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

展开阅读全文