填空题下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+…+10!”的和。
Private Sub Form_Click()
Dim s As Long,i As Integer
s=0
For i=1 To 10
s=s+{{U}} 【11】 {{/U}}
Next i
Print s
End Sub
Private Function fact(ByVal n As Integer)As Long
Dim i As Integer,f As Long
f=1
For i=2 To n
f=f*i
Next i
{{U}}【12】 {{/U}}
End Function
填空题阅读程序：
Option Base 1
Dim arr2() As Integer
Prtvate Function FindMax(a()As Integer)As Integer
Dim Start As Integer
Dim FlnlSh As Integer, i As Integer
Start=LBound______
Finish：UBound______
Max＝______
For i=Start To Pinlsh
If a (i)＞Max Then Max=______
Next i
FindMax=Max
End Function
Private Sub Commandl_Click()
Dim arr1
arrl=Atray(12，435，76，24，78，54，866，43)
b=UBound(arrl)
Renm arr2(______)As Integer
For i=1 TO b
arr2(i)＝CInt(______)
Next i
M=FindMax(arr2())
Print"最大值是："：M
End Sub
以上程序的功能是x在命令按钮事件过程中定义一个数组，把这个数组作为参数传送到通用过程PindMax，并返回该数组的最大值。请填空。
填空题软件工程是计算机科学中的一个分支，其主要思想是在软件生产中用 【4】 的方法替代传统手工方法。
填空题有下列程序，运行后变量x1、y1和z1的结果分别是 (13) 、 (14) 和 (15) 。 Private Sub funl(s，m，n) s=m+1 m=n+2 n=s+3 End Sub Private Sub form_Click( ) Dim x1，y1 x1=1:y1=1:z1=1 Call fun1(x1，y1+1，(z1)) Debug.Print x1；y1；z1 End Sub
填空题下列程序的作用是：输入一个字符串，将其逆序输出。说明：在窗体上放置两个文本框控件，其名称分别为Text1和Text2，分别存放输入的字符串和逆序后的字符串，单击窗体上的Command1按钮，将把Text1中输入的字符串反序后输出到Text2中。程序运行时的界面如图20-14所示。PrivateSubCommand1_Click()DimyAsString，SAsStringS=Text1．Text【14】Text2．Text=yEndSubPrivateSubRever(SAsString,yAsString)DimiAsIntegery=""Fori=Len(S)To1Step-1y=y&【15】NextiEndSub
填空题设一棵完全二叉树共有500个结点，则在该二叉树中有 【2】 个叶子结点。
填空题一个模块被多个模块调用，调用这个模块的模块个数称为{{U}} 【4】 {{/U}}。
填空题阅读程序；
Option Base 1
Private Sub Form_ KeyPress (KeyAscii As Integer)
art = Array(268, 542, 693, 365, 489, 147, 852)
a1 = arr(1)
a2 = 1
If KeyAscii = 13 Then
For a = 2 To 6
If arr(i) ＞ a1 Then
a1 = arr(i)
a2 = i
End If
Next i
End If
Print a1; a2
End Sub
程序运行后，按回车键；输出结果是______。
填空题在一个窗体上有一个命令按钮CmdMax。单击CmdMax时，窗体上显示“字体由小变大”，字号每次增加2。请填空。
Private Sub Form_Load()
Form1.Caption="字体变化示范"
CmdMax.Caption="字体变大"
End Sub
Private Sub CmdMax_Click()
______
Form1.Print "字体由小变大"
End Sub
填空题Text文本框接受的最长字符数有文本框的______属性确定。
填空题11，在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的计算。程序计算Sn的值，Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如，a=5，n=4时，则： Sn=5+55+555+5555 Dim a As Integer, n As Integer, Cout As Integer Dim Sn As Long，Tn As Long Count=1:Sn=0.Tn=0 A=InputBox("请输入a的值：") ______ Do Tn=Tn+a Sn=Sn+Tn Count=Count+1 Debug.Print a，n，Sn
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。
例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。
Private Sub Comnmnd1_Click()
Dim a As Integer，n As Integer，Cout As Integer
Dim Sn As Long，Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox(“请输入a的值：”)
n=InputBox(“请输入n的值!”)
Do
Tn=Tn * 10 + a
Sn=Sn+Tn
Cout=Cout+1
{{U}}【9】 {{/U}}
Debug. Print a，n，Sn
End Sub
填空题Visual Basic对象可以分为两类，分别为 [6] 和 [7] 。
填空题有如下程序： Private Sub command1_Click() a=1:b=1 Print“a=”：a;“，b=”；b Call mult(a)，b) Prinf“a=”；a：“，b=”；b 语句 End Sub Sub mult(x,y) k=1 x=2*k y=3*k Pnint“X=“；X；“，y=”；y End Sub 运行后，标有“语句”的Print语句的输出结果是 (8) 。
填空题由Array函数建立的数组的名字必须是 【11】 类型。
填空题在窗体上画一个命令按钮和一个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.______="打开文件"
CommonDialog1.Filter="All Files(*.*)|*.*"
CommonDialog1.InitDir="C:"
CommonDialog1.ShowOpen
End Sub
该程序的功能是：程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“All Files(*.*)”，并显示C盘根目录下的所有文件。请填空。
填空题在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及Caption，属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如图16-3所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。请在{{U}}【11】{{/U}}、{{U}}【12】{{/U}}和{{U}}【13】{{/U}}处将程序补充完整。PrivateSubComhel{{U}}【11】{{/U}}(KeyAsciiAsInteger)IfKeyAseii=13ThenFori=0ToCombol.ListCount-1IfCombol.Text={{U}}【12】{{/U}}ThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combol.{{U}}【13】{{/U}}Combol.TextEndIfEndSub
填空题有如下程序，该程序的执行结果是{{U}} {{U}} {{/U}} {{/U}}。
Private Sub Command1_lick()
For i= 1 To 4
x= 4
For j =1 To 3
x =3
For k=1 To 2
X= K+5
Next k
Next j
Next i
Print x
End Sub
填空题在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在______处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1_ ______() Command1.Enabled=True End sub
填空题在属性窗口中为对象设置属性值，应在程序的 【6】 阶段进行。