填空题在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text="VB Programming" Text2.Text=Text1.Text Text1.Text="ABCD" End Sub 程序运行后，单击命令按钮，Text1文本框中显示的内容为 【7】 。
填空题通常使用______方法来显示自定义对话框。
填空题下面程序的功能是把文件file1.txt中重复字符去掉后(即若有多个字符相同,则只保留1个)写入文件 file2.txt。请填空。
Private Sub Command1_Click()
Dim in char As String,temp As String,out char As String
Out char=""
Open"file1.txt"For Input As#1
Open"file2.txt"For Output As【 】
n=LOF( 【 】)
in char=Input$(n,1)
For k=1 To n
temp=Mid(in char,k,1)
If InStr (out.char,temp)= 【 】Then
Out char=out char＆temp
End If
Next k
Print #2, 【 】
Close #1
Close #2
End sub
填空题随机文件以______为单位读写。
填空题能够将文本框控件隐藏起来的属性是{{U}} 【9】 {{/U}}。
填空题诊断和改正程序中错误的工作通常称为【3】。
填空题Sub subl(x As Single, ByVal y As Single) t=x x=t/y y=t Mod y End Sub Private Sub Form_Click() Dim a As Single Dim b As Single a=5 b=4 sub1 a,b Print "a="；a，"b="；b End Sub 程序运行后，单击命令按钮，则a= (6) ，b= (7) 。
填空题______运算指从关系模式中指定若干属性组成新的关系。
填空题设窗体上有一个名称为Combo1的组合框，并有以下程序： Private Sub ComboLKeyPress(KeyAscii As Integer) If (7) =13 Then 回车符的ASCⅡ码是13 For k=0 To (8) -1 If Combo1.Text=Combo1.List(k)Then Combo1.Text=" " Exit For End If Next k If Combo1.Text＜＞" "Then Combo1.AddItem (9) End If End If End Sub 程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。请填空。
填空题在一个窗体上有两个命令按钮，cmdMax 和 cmdMin。单击cmdMax时，窗体上显示“字体由小变大”，字号每次增加2；单击cmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。
Private Sub Form_Load()
Forml．Caption =“字体变化示范”
cmdMax．Caption=“字体变大”
cmdMin．Caption=“字体变小”
End Sub
Private Sub cmdMax_Click()
{{U}} 【9】 {{/U}}
Forml．Print”字体由小变大”
End Sub
Private Sub cmdMin_Click()
{{U}} 【10】 {{/U}}
Forml．Print“字体由大变小”
End Sub
填空题Jackson结构化程序设计方法是英国的M.Jackson提出的，它是一种面向 【3】 的设计方祛。
填空题结构化分析方法的基本思想是采用{{U}} 【4】 {{/U}}方法，分析整个系统，有效的控制系统开发的复杂性。
填空题有如下程序： Private Sub Command1_Click() j =10 For i= -1 To 1 Step 0.3 j =j + 1 Next i Print j End Sub该程序共循环 【7】 次，程序执行完毕后j的值是 【8】 。
填空题组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和 (12) 。在这3种不同类型的组合框中，只能选择而不能输入数据的是 (13) 。
填空题对于任何一棵二叉树，若度为l的结点数为n1，度为2的结点数为n2，则叶子数n0为______。
填空题有以下程序： Private Sub Form_Activate() For j=1 to 3 x=3 For i=l to 2 x=x+6 Next Next Print x End Sub 程序运行后，窗体上显示的结果为______。
填空题函数Str$(256.36)的值是{{U}} 【7】 {{/U}}。
填空题设在工程中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String (10
TelNum As String *20
End Type
在窗体上添加一个名为Command1的命名按钮，要求当执行事件过程Command1
Click时，在顺序文件Person.txt中写入一条记录。请在横线中填入适当的内容，将程序补充完整。
Private Sub Command1_Click()
Dim B As ______
Open．"c：/Person.txt" For Output As #1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入学号”)
Write#1， B.Name， B.TelNum
Close #1
End Sub
填空题按数据流的类型，结构化设计方法有两种设计策略，它们是变换分析设计和 【3】
填空题在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Cliek() Dim arr()As Integer Re Dim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") IfVal(x)＞4 Then Rc Dim arr(4) arr(4)=x End If Me.Print(arr(4)-arr(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。