填空题以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。
Private Sub Command1_click()
Dim A(4，4)
For I=1 To 4
For J= 1 To 4
______=1
Next I
______
______
Next J
For i=1 To 4
For j=1 To 4
Print A(i，j)：
Next j
Print
Next I
End Sub
填空题窗体、图片框或图像框中的图形通过对象的 【9】 属性设置。
填空题在传统集合运算中，假定有关系R和s，运算结果为RS。如果RS中的元组属于R而不属于S，则RS是 【5】 运算的结果；
填空题在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Textl.Text="VB程序设计" End Sub Private Sub Textl_Change() Picturel.Print"VB programming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是 【7】 ，而在图片框中显示的内容是 【8】 。
填空题使用Visual Basic 6.0开发的应用程序，最多可以有______个窗体。
填空题设窗体中已经加入了文件列表框(File1)、目录列表框(Dir1)、驱动器列表框(Drive1)，完成下列程序使这三个控件可以同步变化。 Private Sub Dir1_Change() ______ End Sub Private Sub File1_Click() MsgBox File 1.FileName End Sub
填空题软件测试是由一系列的测试所组成，而其最基本的测试是
________
。
填空题为了把一个窗体装入内存，所使用的语句为______；而为了清除内存中指定的窗体，所使用的语句为______。
填空题下列语句的输出结果是______。
Print Format$(1258.6，"000,000.00")
填空题函数Str＄(256.36)的值是______。
填空题一个栈的初始状态为空。首先将元素5，4，3，2，1依次入栈，然后退栈一次，再将元素A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈(包括中间退栈的元素)的顺序为______。
填空题打开文件所使用的语句为______。在该语句中，可以设置的输入输出方式包括______、______、______、______和______，如果省略，则为______ 方式。存取类型分为______、______和______3种。
填空题窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。Dimx(3)AsIntegerPrivateSubCommand1_Click()Fori=0To3x(i)=【10】NextiFori=0ToUBound(x)-1Forj=iToUBound(x)If【11】Thent=x(i)x(i)=x(j)x(j)=tEndIfNextjNextiFori=0To3Text1(i).Text=Str(x(i))NextiEndSub
填空题若二叉树中度为2的结点有15个，度为1的结点有10个，则有{{U}} 【3】 {{/U}}个叶结点。
填空题数据流图的类型有______和事务型。
填空题在窗体上画一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为 C1的命令按钮。程序运行后，如果单击C1命令按钮，则弹出打开文件对话框，该对话框的标题是“打开文件”，此时如果单击对话框上的“打开”按钮，则把选中的文件读到内存，并在Text1中显示出来。下面给出了C1的Click事件过程。请填空。
Private Sub C1_ Click()
Dim n As Long
CD1 ______=“打开文件”
CD1. FileName = ""
CD1 ______= “所有文件｜*.* ｜文本文件｜*.txt ｜Word 文档｜*.doc"
CD1. FilterIndex = 2
CD1.
If CD1. FileName ＜＞ " " Then
Open ______ For ______ As #1
n = LOF(1)
Text1. Text = Input (n, #1)
Close ______
End If
End Sub
填空题在执行KeyPress事件过程时，KeyASCII是所按键的 【8】 值。对于有上档字符和下档字符的键，当执行KeyDown事件过程时，KeyCode是 【9】 字符的ASCII值。
填空题设有如下通用过程：
Public Sub Fun(a()，ByVal x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5)As variant
For i=1 To 5
arr(i)=i
Next
n=10
Call Fun(arr()，n)
Text1.Text=n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是
________
。
填空题当最大化一个子窗体时，它的标题会与MDI窗体的标题组织在一起并显示于______上。
填空题窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动300twip。请在程序空白处填入适当内容使程序完整。PrivateSubForm_Load()Picture1.Picture=LoadPicture("c:/MyDocuments/图片/Qian1_Icon02.ico")______EndSubPrivateSubTimer1_Timer()Staticx,yAsIntegerx=x+300y=y+300Picture1.Movex,yEndSub