填空题在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按钮，在输入对话框中分别输入321和456，则输出结果为
________
。
Private Sub Command1_Click()
a=InputBox("请输入一个整数")
b=InputBox("请再输入一个整数")
Print a+b
End Sub
填空题软件工程的出现是由于 【2】 。
填空题把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_Click( ) Open"d：/test/smtext1．txt"For lnput As#1 Text1.Fontsize=14 Text1.FontName=“幼圆” Do While Not EOF(1) 【8】 whole＄=whole $ aspect $+Chr$(13)+Chr $(10) Loop Text1.Text= 【9】 。 Close Open"d：/test/smtext2．txt"For Output As#1 Print #1 【10】 Close End Sub
填空题执行下列语句后，程序的输出结果为 【7】 。 x=6： y=2： z=5 Print z=x-y
填空题设计一个窗体，窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。
Private Sub Command1_Click()
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
________
Text1.ForeColor=CommonDialog1.Color
End Sub
填空题在E-R图中，矩形表示 (5) 。
填空题以下程序段的作用是首先按降序输入10个数到数组Y的前10个元素中，又输入一个YO插入到数组Y中，插入YO后Y中的数据仍按降序排列。请补充完该程序______。
Dim Y(1 To 11)
For i =1 To 10
Y(i) = Val(InputBox(“请输入Y(i)：”))
Next i
X = Val(InputBox (“请输入x：”))
For i = 10 To 1 Step -1
If{{U}} 【8】 {{/U}}Then
Y(i + 1) = X
Exit For
End If
Y (i + 1) =Y(i)
Next i
'Print Y(10)
For i =1 To 11
Print Y(i)
Next I
填空题以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入。请填空。
Private Sub Command1_Click()
Dim x,amax,amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While______
If x＞amax Then
amax=x
End If
If______Then
amin=x
End If
x=InputBox("enter a score")
Loop
Print "max=";amax,"min=";amin
End Sub
填空题一组具有相同名称，不同下标的下标变量称为______。
填空题对如图4所示的二叉树进行中序遍历的结果是________。
填空题在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序： Private Sub Command1_Click() Dim ave As Single, max As Integer, i As Integer, n As Integer Dim min As Integer, Sum As Integer, s As String Dim t As Integer s=InputBox("输入一个正整数: ") n=Val(s) If n＞0 Then max=n: min=n: Sum=0 For j=1 To n t=______ print t; Sum=Sum+t If t＜min Then min=t ElseIf max＜t Then max=t End If Next j ______ ave=Sum/n MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后" End If End Sub
填空题为了使一个标签透明且没有边框，必须把它的______属性设置为0，并把BackStyle属性设置为0。
填空题设窗体上有一个名称为CD1的通用对话框、一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click() CD1.Filter="文本文件|*.txt|Word文档|*.doc" CD1.FilterIndex=1 CD1.ShowOpen If CD1.FileName＜＞"" Then Open{{U}} {{/U}}For Input As #1 Line Input #1, Ch$ Close #1 Text1.Text={{U}} {{/U}}End If End Sub
填空题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程： Private Sub Form_Load() Show Text1.Text="" Text2.Text="" Text2.SetFocus End Sub Private Sub Text2 KeyDown(KeyCode As Integer,Shift As Integer) Text1.Text=Text.Text+Chr(KeyCode-4) End Sub 程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容为 【11】 。
填空题如果存在如下过程： Private Function FMax(a( )As Integer) Dim First As Integer，Last As Integer，i As Integer First=LBound(A) Last=UBound(A) Max=a(First) For i=First To Last If a(i) ＞ Max Then Max=a(i) Next i FMax=Max End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click( ) ReDim m(1 To 4) As Integer m(1)=20：m(2)=30：m(3)=50：m(4)=100 c=FMax(m) Print c End Sub 单击命令按钮，其输出结果为 【12】 。
填空题请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。 Private Sub Command1 Click() Dim s(6，6) For i=1 To 6 For j=1 To 6 If i=j Then 【7】 Else 【8】 End If Print 【9】 Next j Print Next i End Sub
填空题在窗体上画一个命令按钮和一个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程： Private Sub Command1_Click() CommonDialog1.______="打开文件" CommonDialog1.Filter="All Files(*.*)|*.*" CommonDialog1.InitDir="C:/" CommonDialog1.ShowOpen End Sub 该程序的功能是：程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“All Files(*.*)”，并显示C盘根目录下的所有文件。请填空。
填空题下列程序用于输出一个主对角线上元素值为“*”，其他元素值为“#”的5×5阶的方阵，试将程序补充完整。
Private Sub Command1_Click()
Dim x(5, 5)
For i = 1 To 5
For j = 1 To 5
If ______ Then
x(i, j) = '*'
Else
______
End If
Print ______
Next j
Print
Next i
End Sub
填空题在面向对象程序设计中，从外面看只能看到对象的外部特征，而不知道也无需知道数据的具体结构以及实现操作的算法，这称为对象的______。
填空题在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test .dat中。请在空格处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open "c:/test.dat"For 【14】 As #1 For i=1 to Len(Text1.text) print#1，mid(Text1.Text，i，1) Next Close #i End Sub