201204VB程序设计与VBA应用期中考卷答案

诚信应考 考出水平 考出风格

浙江大学城市学院

2011 — 2012 学年第二学期期中考试答卷

《 VB 程序设计基础与VBA 应用 》

开课单位： 计算分院 ；考试形式：闭卷；考试时间： 2012 年 4 月 15 日 所需时间： 120 分钟

一．单选题(本大题共 30 题，每题 1 分，共 30 分。)

二．程序填空题(本大题共 2 题 8 空，每空 2 分，共 16 分。)

(1) n = Len(str1)

(2) str2 = Mid(str1, i , 1) (3) str3 = str3 + str2 (4) Next i (5) a(4 , 5) (6) s=0

(7) a(i, 5) = s/4 (8) Print

三．程序阅读题(本大题共 6 题，每题4 分，共 24 分。) 第1题:

第2题:

第3题:

第4题: 第5题: 第6题

:

四．程序设计题(本大题共 3 题，每题 10 分，共 30 分。)

第1题：

Private Sub Form_Click()

Dim x As Single, y As Single, f As Single x = Val(InputBox("X=")) y = Val(InputBox("Y=")) If x < 0 And y < 0 Then f = 2 * x + 6 * y ElseIf x > 0 And y > 0 Then f = x - y Else f = 0 End If Print y End Sub

第2题：

Private Sub Form_Click()

Dim t As Single, item As Single, pi As Single, flag As Integer

t = 1: item = 1: pi = 0: flag = 1

Do While Abs(item) >= 0.000001

item = flag * 1 / t

pi = pi + item

flag = -flag

t = t + 2

Loop

Print pi * 4

End Sub

第3题：

Private Sub Form_Click()

Dim a(50) As Integer, i As Integer, j As Integer

Dim pos As Integer, t As Integer, c As Integer

For i = 1 To 50

a(i) = Int(Rnd * 71) + 30

Next i

For i = 1 To 49

pos = i

For j = i + 1 To 50

If a(pos) > a(j) Then pos = j

Next j

If pos <> i Then t = a(i): a(i) = a(pos): a(pos) = t

Next i

c = 0

For i = 1 To 50

If a(i) Mod 3 = 0 Then

Print a(i);

c = c + 1

If c Mod 5 = 0 Then Print

End If

Next i

Print

End Sub