End If Next J, I
For I = 1 To N For J = 1 To N
Print ___________; Next J Print Next I End Sub
15、下列程序的功能是：计算裴波那契数列第n项的值（n由用户输入）。要求完善程序。 Private Sub form_Click() Dim n As Integer
n = InputBox(\输入整数n\ Print f___________ End Sub
Private Function f(ByVal a As Integer) As Integer If ___________Then f = 0
ElseIf a = 2 Then ___________ Else
f = ___________ End If End Function
16、下面程序的功能是：在窗体的文本框Text1中输入一个正整数，当单击命令按钮后，在窗体的文本框Text2中输出这个正整数的阶乘。请完善程序。 Option Explicit
Function Fact(N As Integer) As Long
Dim I As Integer, F As Long F = ___________
For I = 1 To F = F * I Next I
___________ End Function
Private Sub Command1_Click()
Dim X As Integer X = Val(Text1.Text)
Text2.Text = Str___________ End Sub
17、下面是求两个正整数m和n的最大公约数的函数，请完善代码。 Function gcd(m As Integer, n As Integer) As Integer
Dim r As Integer r = m Mod n
Do While r___________0 ___________= n ___________= r r = m Mod n Loop gcd = n
34
End Function
18、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程：
Private Sub Command1_Click(）
Dim St As String Text1.Text = \
Open \Do While ___________ Input #1, St
Text1.Text = Text1.Text & St Loop End Sub
程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。
35
根据程序写运行结果
1、运行下面的程序，单击窗体后在窗体显示的内容是___________。 Private Sub Form_Click()
Dim x As Integer, y As Integer x = 1: y = 0 Do While x < 3 y = y + x x = x + 1 Loop Print x, y End Sub
2、运行下面的程序，单击窗体后在窗体显示的第三行内容是___________。 Private Sub Form_Click()
Dim mystr As String, mystr1 As String, mystr2 As String mystr1 = \ For i = 1 To 3
mystr2 = LCase(mystr1) mystr1 = mystr1 & mystr2 mystr = mystr & mystr1 Print mystr
mystr1 = Chr(Asc(mystr1) + i) Next i End Sub
3、运行下面的程序，单击命令按钮，在文本框内显示的内容是___________。 Private Sub Command1_Click() For i = 1 To 4 x = 4
For j = 1 To 3 x = 3
For k = 1 To 2 x = x + 6 Next k, j, i
Text1.Text = Str(x) End Sub
4、运行下面的程序，单击窗体后在窗体显示的内容是___________。 Option Base 1
Private Sub Form_Click()
36
Dim a(3, 3) As Integer, i As Integer For i = 1 To 3 For j = 1 To 3
a(i, j) = (i - 1) * 4 + j Next j Next i
For i = 1 To 3 Print a(i, 4 - i); Next i End Sub 5、如下程序运行后，在窗体上输出的第一行内容是___________，第二行内容是___________。 Private Sub Command1_Click()
Dim p As Integer, I As Integer, n As Integer p = 2: n = 20
For I = 1 To n Step p p = p + 2 n = n - 4 I = I + 2
If p >= 10 Then Exit For Next I Print p; n Print I End Sub
6、下面程序段执行一次后，窗体上有___________行输出，其中第一行上显示的是___________，第四行上显示的是___________。 Option Explicit Option Base 1
Private Sub Command1_Click()
Dim a(5) As Integer Dim i As Integer For i = 1 To 5
If i Mod 2 = 0 Then a(i) = i + 1 Else
a(i) = 5 - i End If Print a(i) Next i End Sub
7、已知程序段内容如下，在文本框Text1中输入3，在文本框Text2中输入5，当单击命令按钮Command1后，文本框Text1中显示的是___________，文本框Text2中显示的是___________。 Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer a = Val(Text1.Text)
37
b = Val(Text2.Text) c = a + b a = c - a b = c - a
Text1.Text = CStr(a) Text2.Text = CStr(b) End Sub
8、运行下面的程序，单击窗体后在窗体显示的内容是___________。 Private Sub Form_Click() Dim a As Integer a = 2
Call sub1(a) End Sub
Private Sub sub1(x As Integer) x = x * 2 + 1 If x < 10 Then Call sub1(x) End If
x = x * 2 + 1 Print x; End Sub
9、已知某程序内容如下，当在窗体上单击时窗体上显示的内容有___________行，第一行上显示的是___________，最后一行上显示的是___________。
Function SumOrMulti(Operate As Boolean, ParamArray var()) As Long
Dim sum As Long, multi As Long If Operate Then sum = 0
For Each x In var sum = sum + x Next x
SumOrMulti = sum Else
multi = 1
For i = LBound(var) To UBound(var) multi = multi * var(i) Next i
SumOrMulti = multi End If End Function
Private Sub Form_Click()
Print SumOrMulti(True, 1, 3, 5, 7) Print SumOrMulti(False, 2, 4) End Sub
10、已知某程序内容如下，当在窗体上单击命令按钮Command1后，窗体上显示的A的值是___________，B的值是___________，C的值是___________。 Sub SS(ByVal X, ByVal Y, ByVal Z)
X = X + 1: Y = Y + 1: Z = Z + 1 End Sub
Private Sub Command1_Click()
38