.
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
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(