填空题新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮， Form1窗体消失，显示Form2窗体，程序如下，请填空。 Private Sub Command1_Click() Form1.Hide Form2. 【8】 End Sub
填空题如果存在如下过程：
Private Function Fun(a()As Integer)
Dim First As Integer，Last As Integer，i As Integer
First=LBound(a)
Last=LBound(a)
Max=a(First)
For i=First To Last
If a(i)＞Max Then Max=a(i)
Next
Fun=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
ReDim in(1 To 4)As Integer
m(1=20:m(2)=30:m(3)+50:m(4)=100
c=Fun(m)
Print c
End Sub
单击命令按钮，其输出结果为______。
填空题窗体上有两个按钮，则执行程序后按键盘Cancel键的输出结果是【 】。
Private Sub Command1 _ Click( )
Print"北京"；
End Sub
Private Sub Command2 _ Click( )
Print"南京"；
End Sub
Private Sub Form _ Load( )
Command2．Cancel＝True
Command1．Cancel=True
End Sub
填空题在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示“已成功添加新输入项。”，如图3所示。如果输入的项目已存在，则在Label2中给出提示“输入项已在组合框中。”。请填空。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1.ListCount-1IfCombo1.Text=(7)ThenLabel2.Caption="输入项已在组合框中。"ExitSubEndIfNextiLabel2Caption="已成功添加新输入项。"Combo1.(8)Combo1.TextEndIfEndSub
填空题设有如下程序 Private Sub Fom1_Click( ) Dim s As Integer，b As Integer a=20：b=50 p1 a，b p2 a，b p3 a，b Print"a="；a，"b=";b End Sub Sub pl(x As Integer，ByValy As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer，y As Integer) x=x+10 y=y+20 End Sub Sub p3(ByVal x As Integer，ByValy As Integer) x=x+10 y=y+20 End Sub 该程序运行后，单击窗体，则在窗体上显示的内容是：a= 【9】 和b= 【10】 。
填空题表达式"12345"＜＞"12345"&"ABC"的值是______。
填空题假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello!”，所使用的语句为{{U}} {{U}} {{/U}} {{/U}}。
填空题在窗体上画一个命令按钮，然后编写如下程序；
Function fun(By Val num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(hum Mod 10)
nam=num/10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dire r As Long
n=Input Box("请输入一个数")
n=CLng(n)
r=fun(n)
Printr
End Sub
程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为{{U}} 【10】 {{/U}}
填空题在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的
MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click() 5
Open "d:/test/smtext1.txt" For Input As #1
Do While Not _________
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop
Text1.Text = whole$
Close #1
Open "d:/test/smtext2.txt" For Output As #1
Print #1, _________
Close #1
End Sub 上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把 该文本框中的内容存入磁盘文件smtext2.txt。请填空。
填空题设根结点的层次为0，则高度为k的二叉树的最大结点数为{{U}} 【1】 {{/U}}。
填空题 【3】 是一种信息隐蔽技术，目的在于将对象的使用者和对象的设计者分开。
填空题窗体上有一个名称为List1的列表框，列表框中有若干数据项，列表框的style属性为1;有一个名称为Label2的标称；还有一个名称为Command1,Caption属性为“计算”的命令按钮（见图）。运行程序，在列表框中选中某些数据项后，单击命令按钮，则可以计算机所选数据之和，并将结果显示在标签Label2中。以下是实现上述功能的程序，请填空。
Private Sub Command1_Click( )
s=0
For i=0 To List1.ListCount-1
If 【 8 】=True Then
s=s+【 9 】
End If
Next
Label2.Caption=【 10 】
End Sub
填空题有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。
Private Sub Form_Click0
Dim X As Single,y As Single
Open"NM1.txt"For Input As #1
Open"NM2.txt"For OutputAs#2
Do While Not EOF(1)
______
Print X
y=x^2
Print#2,x,f
Printy
Loop
Close#1,#2
End Sub
填空题在窗体上画一个命令按钮，然后编写如下程序：
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为
________
。
填空题在面向对象的程序设计中，类描述的是具有相似性质的一组{{U}} 【1】 {{/U}}。
填空题在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() A=Text1.Text+Text2.Text Print A End Sub Private Sub Form Load() Text1.Text=" " Text2.Text=" " End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和 321，然后单击命令按钮，则输出结果为______。
填空题在关系数据库中，把数据表示成二维表，每一个二维表称为 【4】 。
填空题数据库的逻辑模型设计阶段的主要任务是将{{U}} 【5】 {{/U}}转换成关系模型。
填空题下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Commandl_Click() Max=0 Min=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n＞Max Then Max=n If n＜Min Then Min=n s=s+n _______ s=s-Min-Max p=s/18 Print "最高分"；Max；"最低分"；Min Print "最后得分："；p End Sub
填空题为了便于对照检杏，测试用例应由输人数据和预期的{{U}} 【4】 {{/U}}两部分组成。