.

Word 资料

填空题1

执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是 (1) ，最后一行是

(2) 。

Option Explicit

Option Base 1

Private Sub Command1_Click()

Dim n As Long, k As Integer, a() As Integer

n = 123456789

Do

k = k + 1

ReDim Preserve a(k)

a(k) = n Mod 100

n = n \ 100

Loop Until n = 0

For k = 1 To UBound(a)

Print fun(a(k))

Next k

End Sub

Private Function fun(n As Integer) As Integer

Dim k As Integer

k = n Mod 10

fun = k * 10 + (n \ 10)

End Function

执行下面程序，单击命令按钮Command1，则数组元素a(2, 1)的值是 (3) ，a(1, 2)的值是

(4) 。

Option Explicit

Option Base 1

Private Sub Command1_Click()

Dim a(3, 3) As Integer, i As Integer, k As Integer

Dim n As Integer

n = 9

For k = 1 To 3

For i = 1 To 3

a(i, k) = n

n = n - 1

Next i

Next k

For i = 1 To 3

For k = 1 To 3

Print a(i, k);

Next k

Print

Next i

End Sub

执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是 (5) ，第二行是

(6) ，第三行是 (7) 。

Option Explicit

Private Sub Command1_Click()

Dim i As Integer, a As Integer, b As Integer

a = 1

b = 2

i = a

Do While fun(i, b) <= 7

i = i + a

b = b + 1

Print i

Loop

End Sub

Private Function fun(ByVal x As Integer, y As Integer) As Integer

x = x + 1

y = y + 1

fun = x + y

Print fun

End Function

执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是 (8) ，第二行是

(9) ，最后一行是 (10) 。

Option Explicit

Dim k As Integer 'k为模块级变量

Private Sub Command1_Click()

Dim N As Integer, M As Integer, Lcm As Integer

N = 6

M = 9

Lcm = Rec(N, M)

Print Lcm

End Sub

Private Function Rec(A As Integer, B As Integer) As Integer

k = k + 1

Print A

If A Mod B = 0 Then

Rec = A

Else

Rec = Rec(A + A / k, B)

End If

End Function

2

执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是 (1) ，第三行是

(2) 。

Option Explicit

Option Base 1

Private Sub Command1_Click(