填空题以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。
Private Sub Command1_click()
Dim A(4，4)
For I=1 To 4
For J= 1 To 4
{{U}}【12】 {{/U}}=1
Next I
{{U}} 【13】 {{/U}}
{{U}} 【14】 {{/U}}
Next J
For i=1 To 4
For j=1 To 4
Print A(i，j)：
Next j
Print
Next I
End Sub
填空题设一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为{{U}} 【2】 {{/U}}。
填空题在用菜单编辑器设计菜单时，必须输入数据的项目是 【6】 。
填空题若s、i均为整型变量，执行下列程序段后s的值为 【11】 。 S=0 i=1 DO S=S+i ┊ i=i+1 Loop Until i>5
填空题在菜单中，唯一能够识别的事件是______。
填空题在窗体上画一个名称为“Command1”的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As String a="123456789" For i=1 To 5 Print Space(6-i);Mid$(a,______,2*i-1) Next i End Sub 程序运行后，单击命令按钮，窗体上的输出结果是如下，请填空。 5 456 34567 2345678 123456789
填空题下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open“C:/Data1.txt”For Random As#2 Len=10 Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx:Sin(i*Y) Ksc.Cosx:Cos(i*Y) (15) Next Close#2 End Sub
填空题执行下面的程序段后，i的值为{{U}} 【14】 {{/U}}，s的值为{{U}} 【15】 {{/U}}。
s=2
For i=3.2 To 4.9 Step 0.8
s=s+1
Next i
填空题在窗体上画一个名称为Text1的文本框，一个名称为CD1的通用对话框，一个名称为 C1、标题为“存盘”的命令按钮，编写适当的事件过程。程序运行时，如果单击“存盘”命令按钮，则打开保存文件对话框，并把Text1中的内容按照在对话框中选定的路径和文件存盘。在刚打开对话框时的默认路径是“c: /my documents/”。请填空。
Private Sub C1_ Click()
CD1. InitDir =
CD1. FileName = "myflie.txt"
CD1. Filter = “文本文件｜ ______”
CD1. ______ =
Open______ For Output As #1
Print #1, ______
Close #1
End Sub
填空题下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填写空白处。 Sub PrintOut() Dim a As Integer a=MsgBox("输出结果?",vbInformation+vbYesNo,"提示:") If a=______Then Print "Myresult" End If End Sub
填空题Visual Basic中的控件分为3类，它们是标准控件、{{U}} 【6】 {{/U}}和可插入对象。
填空题如果不指明函数过程参数的类型，则该参数的数据类型为 (10) 。
填空题{{U}}【5】 {{/U}}是数据库应用的核心。
填空题下列程序段在窗体上输出______，在立即窗口中输出______。 S1="software" S2="hardware" S3="computer" Print Right(S1，3) Picturel.Print Mid(S2，2，4) Debug.Print Left(S3，2)
填空题对于一个具有n个结点的单链表，已知p所指结点后插入一个新结点的时间复杂度是O(1)；在给定值为x的结点后插入一个新结点的时间复杂度是 【2】 。
填空题全局变量必须在 【14】 模块中定义。
填空题下面程序的功能是统计字符串中“广的个数，请填空。
Sub COU( )
a$="Beijing University of Technology"
Dim n AS Integer
n=Len(a$)
For i=1 To n
b$=【 】
If 【 】 Then x=x+1
Next i
Print "x="；x
End Sub
填空题窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labell、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。PrivateSubForm_Load()Fori=1To100TfiMod7=0Then______EndIfNextEndSubPrivateSubCommand1Click()Sum=0Fori=0To______Sum=Sum+______NextText1.Text=SumEndSub
填空题在程序运行时，可以通过______方法来移动滚动条的位置。
填空题在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。PrivateSubCombolClick()CallShowltem(Combol，Labell)EndSubPrivateSubCombo2Click()CallShowltem(Combo2，Label2)EndSubPublicSubShowltem(tmpComboAsComboBox，tmpLabelAsLabel)______.Caption=______.TextEndSub