填空题已知数组A(4，4)，各个元素在运行程序时被赋值并打印，形成四阶方阵。请在空白处填入所需的内容，使产生一个转置矩阵(即行列互换)，仍放在数组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 i=1 To (12) t=a(j,k) a(j,k)= (13) 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
填空题要使一个文本框具有水平和垂直滚动条，应先将其MultiLine属性设置为True，然后再将ScrollBar属性设置为______。
填空题在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt_|Batch Files (*.bat)|*.bat" CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 (13) 。 如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是 (14) 。
填空题有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click( )
x=Val(Text1．Text)
If{{U}} 【6】 {{/U}}Then
Print x
Else
Text1．Text=""
{{U}} 【7】 {{/U}}
End If
End Sub
填空题有下列程序，程序运行后，单击“Command1”按钮，在列表框List1中显示的第一行和第二行的结果分别是{{U}} 【13】 {{/U}}和{{U}} 【14】 {{/U}}，最后一行的结果是{{U}} 【15】 {{/U}}。
Type type_a
chr1 As String*1
num1 As Integer
End Type
Private Sub Command1_Click()
Dim testdata As type_a, n As Integer
Dim f1 As Integer, c()As String*1
f1=FreeFile
Open "d:/data. txt" For Random As #f1 Len=Len(testdata)
n=1
For I=97 To 102
ReDim Preserve c(n)
c(n)=Chr(I)
testdata. chr1=c(n)
testdata. num1=I
n=n+1
Put #f1, , testdata
Next I
Seek #f1, 1
For I=1 To UBound(c)
Get #f1, , testdata
List1. AddItem testdata. chr1 & testdata num1
Next I
List1. AddItem UBound(c)
Close
End Sub
填空题在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码： Private Sub Commandl_Click() Dima(5) Fori=0 To 4 A(i)=i+1 t=i+1 If t=3 Then Print a(i) A(t-1)=a(i-2) Else A(t)=a(i) End If Ifi=3 Thena(i+1)=a(t-4) A(4)=1 Printa(i) NextI End Sub 程序运行后，单击命令按钮，输出结果是上______。
填空题设有如下程序：PrivateSubForm_Click()Clsa$="ABCDFG"Fori=1To6PrintTab(12-i);{{U}}【9】{{/U}}NextiEndSub程序运行后，单击窗体，结果如图所示，请填空。
填空题Visual Basic应用程序由______、______和______3种模块组成。
填空题如果要将形状控件的内部设置为水平线，应将Fillstyle属性设置为【 】。
填空题栈和队列通常采用的存储结构是 【1】 。
填空题以下程序的功能是：求x的y次方。根据题意，请完善下列程序。
Private Function funl(x As Double, y As Integer)As Double
Dim i As Integer
Dim z As Double
z={{U}} 【8】 {{/U}}
For i=1 To y
z=z*x
Next i
{{U}} 【9】 {{/U}}
End Function
Private Sub Command1_Click()
Dim m As Double
Dim n As Integer
Dim t As Double
m=InputBox("输入x数:")
n=InputBox("输入次方数:")
t=funl(m, n)
Print Str(m)+"^"+Str(n)+"="; {{U}}【10】 {{/U}}
End Sub
填空题当运行下列程序，单击窗体后，分别输入72和24，信息框上显示的结果是{{U}} 【13】 {{/U}}。
Private Sub Form_Click()
Dim x As Integer，y As Integer
x=Val(InputBox("输入整数72"))
y=Val(InputBox("输入整数24"))
z=fun1(x，y)
MsgBox Str(Z)
End Sub
Private Function funl(ByVal a As Integer， ByVal b As Integer)As Integer
Do
r=a Mod b
a = b
b = r
Loop Until r=0
funl=a
End Function
填空题在长度为n的线性表中顺序查找元素x时，成功查找的平均查找长度为{{U}} 【2】 {{/U}}。
填空题为了在运行时将窗体Form1的标题(Caption属性)设置为“Test Program”，应使用的语句为 【8】 。
填空题设计一个窗体，在其上设计如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y A.s Single) If Button=1 Then Print"AAAAAAAA" Elself Button=2 Then Print"BBBBBBBB" End If End Sub 程序运行后，在窗体上单击鼠标左键输出结果为______，单击鼠标右键输出结果为______。
填空题事件的方法是用于______。
填空题在实际数据库系统中，其所支持的数据模型主要有层次模型、网状模型和{{U}} 【5】 {{/U}}。
填空题数学式子5+(a+b)×2对应的Visual Basic表达式是______。
填空题在窗体上有一个名为Image1的图像框，现在要把“D：”盘根目录下的图片文件“Fox．bmp”在其中显示出来，使用的语句是
________
。
填空题在窗体上有一个列表，然后编写如下两个事件过程：
Private Sub Form_Click()
List1.RemoveItem 1:List1.RemoveItem 2
List1RemoveItem 3
End Sub
Private Sub Form_Load()
List1.AddItem"ItemA":List1.AddItem"ItemB"P
List1.AddItem"ItemC ":List1.AddItem"ItemD"
List1.AddItem"ItemE”
End Sub
运行上面的程序，然后单击窗体，列表框中显示的项目是
________
。