2012江苏省计算机二级VB试题库及答案

和 （7） 。

Private Sub Form_Click() n = 0

a = 1: b = 2: c = 3 For i = 1 To 4 For j = 0 To i

a = b + 1: b = c + 2: c = a + 2 n = n + 1 Print c Next j Next i Print n End Sub

7．在窗体有有一文本框，名为text1，则执行如下事件过程后，文本框中的输出为 （8） 。

Private Sub form_Click() For i = 1 To 3 a = 1

For j = 1 To 3 a = a + 4 Next j Next i

Text1.Text = Str(a) End Sub

8．下列程序运行后，在窗体上打印的结果是 （9） 。

Private Sub test(a, b, c)

a = a + 1: b = b + 2: c = c + 3 End Sub

Private Sub Command1_Click() x = 1: y = 2: z = 3 Call test(x, y + 3, (z)) Print \End Sub

9．下列程序的执行结果是 （10） 。

Private Sub Form_Click() s = 50: n = 2 Do

s = s - n n = n + 1 Loop Until n > 8 Print s End Sub

10．运行下列程序：

Private Sub Form_Click() Do

For I = 1 To 100

m = Int(Rnd * 100) + 1 Select Case m

Case 13: Exit For Case 78: Exit Do End Select n = n + 1 Next I Loop Print m End Sub

单击窗体后，则在窗体上显示的结果是 （11） 。 11．下列程序的功能是计算两个自然数的最大公约数，如图2所示。给定的程序不完整，将程序补充完整。

图2

Private Sub Command1_Click()

Dim x As Long, y As Long, i As Long x = Val(Text1.Text) y = Val(Text2.Text)

Text3.Text = Str( （12） ) End Sub

Function fun1(a As Long, b As Long) As Long Dim r As Long Dim t As Long

If （13） Then t = a a = b b = t End If

r = a Mod b Do While r <> 0 a = b b = r

r = a Mod b Loop

（14）

End Function

12．试求出所有满足下述条件的二位数：当它们乘以数字2，3，4，5，6，7，8，9时，其数字之和不变。给定的程序不完整，将程序补充完整。

Private Sub Command1_Click()

Dim m As Integer, sum As Integer

Dim a As Integer, b As Integer, c As Integer For a = 1 To 9

For b = （15） （16） For c = 2 To 9

m = c * (a * 10 + b) sum = 0 Do

sum = sum + m Mod 10 m = m \\ 10 Loop While m > 0

If （17） Then flg = 0: Exit For Next c

If （18） Then Print a; b End If Next b Next a End Sub

13．下列程序的功能是计算圆周率π（计算精度到第n项减1的绝对值小于10-5为止）。请完善下列

程序。

??2?Option Explicit

Private Sub Form_Click()

22?22?222?2?2???

Dim y As Single, t As Single, a As Single y = 2: t = 0 Do

t = Sqr(2 + t) （19）

If Abs(a - 1) < 1E-5 Then （20） y = y * a Loop Print \End Sub

14．统计[1,1000]中包含数字1自然数，并将统计结果值，以及每相间100内具有该特

征的数显示在文本框中，如图3所示。

图3

Private Sub Form_Click() Sum = 0: sum1 = 0 For i = 1 To 1000 （21）

For j = 1 To Len(s)

If Mid(s, j, 1) = \ Sum = Sum + 1 sum1 = sum1 + 1 （22） End If Next j

If i Mod 100 = 0 Then

Text1.Text = Text1.Text + Str(sum1) （23） End If Next i Print

Text2.Text = Sum End Sub

15．窗体上有一个命令按钮，数据文件data.txt的内容如下：

\宿舍\\商店\\教室\\球场\又有运行下列程序：

Type bs

aa As String * 2 bb As String * 4 cc As Integer End Type

Private Sub Command1_Click() Dim xs As bs Dim f1 As Integer f1 = FreeFile

Open \ Do While Not EOF(f1)