填空题已知数组A(4,4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在 (10) 和 (11) 处填所需的内容，使其产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如： 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 Private Sub Command1_Click() Dim a(4,4) For k=1 To 4 For j=1 To 4 a(k,j)=j Print a(k,j)； Next Print Next For k=2 To 4 For j=1 To (10) t=a(j,k) a(j,k)= (11) a(k,j)=t Next Next For k=1 To 4 Print a(k,1)；a(k,2)；a(k,3)；a(k,4) Next End Sub
填空题有下列程序：
Private Sub Command1_Click()
Dim i As Integer
Dim arrY(5)As Integer
For i = 0 To 4
arrY (i) = 5
Next i
Dim arrZ(5)As String
For i = 0 To 4
arrZ(i)= "hello"
Next i
Dim arrX(2)AS Variant
arrX(1)=arrY()
arrX(2)=arr2()
Text1.Text=arrX(1) (2)
Text2.Text=arrX(2) (3)
End Sub
程序运行后，单击命令按钮，在文本框Text1和Text2中分别显示的内容是
________
和
________
。
填空题引用列表框(List1)最后一个列表项应使用的语句是______。
填空题在程序运行期间，增加和删除列表框(或组合框)的方法是Addltem和 【6】 。
填空题为了显示一个窗体，所使用的方法为{{U}} {{U}} 13 {{/U}}
{{/U}}；而为了隐藏一个窗体，所使用的方法为{{U}} {{U}} 14 {{/U}} {{/U}}。
填空题阅读程序：OptionBase1PrivateSubForm_Click()Dima(3)AsIntegerPrint“输入的数据是：”；Fori=1to3A(i)=InputBox(“输入数据”)Printa(i)NextPrintIfa(1)＜a(2)Thent=a(1)a(1)=a(2)a(2)={{U}}【8】{{/U}}EndlfIfa(2)＞a(3)Thenm=a(2)Elselfa(1)＞a(3)Thenm={{U}}【9】{{/U}}Elsem={{U}}【10】{{/U}}EndlfPrint“中间数是：”；mEndSub程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。
填空题设有如下程序： Private Sub Search(a()As Variant,ByVal key As Variant,index%) Dim I% For I=LBound(A) To UBound(A) If key=a(I) Then Exit Sub End If Next I Index=-1 End Sub Private Sub Form_Load() show Dim b() As Variant Dim n As Integer b=Array(1,3,5,6,9,11,13,15) Call Search(b,11．n) Print n End Sub 程序运行后，输出结果是 (6) 。
填空题下列程序运行后的输出结果是______。
Private Sub f(k,s)
s=1
For j=1 To k
S=S*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i,s)
Sum=Sum+s
Next
Print Sum
End Sub
填空题执行以下程序段后，变量c$的值是{{U}} 【7】 {{/U}}。
a$="北京"
b$="Shanghai"
c$="Left(a$,2)+String(3,"—")+Right(b$,8)
填空题在软件生命周期的各个阶段都会产生一系列的文件，如手册、数据和程序等，它们总称为{{U}} 【3】 {{/U}}。
填空题下列程序弹山对话框中按钮的个数为______。 MsgBox"确认!",vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,"提示/
填空题执行下面程序段，s的值是______。 s=3 For I=1.8 To 3.2 Step 0.3 s=s+1 Next I
填空题算法的复杂度主要包括时间复杂度和 【1】 复杂度。
填空题在面向对象方法中，类的实例称为 【3】 。
填空题在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮。程序运行后，在两个文本框中输入数据，当单个按钮时，标签Label1中显示运算的结果。程序的功能是计算，n!+(n+1)!+(n+2)!+…+(n+m)!。
请在{{U}} 【15】 {{/U}}处填入适当的内容，将程序补充完整。
Private Sub Command1_Click( )
Dim a，b，c，d As Double
Dim i，n，m As Integer
n=Val(Text1.Text):m=Val({{U}} 【15】 {{/U}})
a=0： b=1： c=0： d=1
For i=1 TO m
b=b*i
a=a+b
Next i
For i=1 To n
d=d*i
C=c+d
Next i
Label1.Caption=a-c
End Sub
填空题设A=2,B=-2,则表达式A/2+1＞B+5OrB*(-2)=6的值是______。
填空题将C盘根目录下的图形文件moon.jpg装入图片框Picturel的语句是______。
填空题下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+…+10!”的和。 Private Sub Form_Click() Dim s As Long,i As Integer s=0 For i=1 To 10 s=s+ 【11】 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 【12】 End Function
填空题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim a(5) For i=0 To 4 a(i)=i+1 t=i+1 If t=3 Then Print a(i) a(t-1)=a(1-2) Else a(t)=a(i) End if If i=3 Then a(i+1)=a(t-4) a(4)=1 Print a(i) Next i End Sub 程序运行后，单击命令按钮，输出结果是______。
填空题Private Sub Form_Activate() For i=1 To 3 x=3 For I=1 To 2 x=x+6 Next I Next j Print X End Sub 程序运行后，窗体上显示的结果为 (6)