填空题下面程序的功能是把文件file1.txt中重复的字符去掉后(即若有多个字符相同，则只保留1个)写入文件file2.txt。请填空。
Private Sub Commana1_Click()
Dim inchar As String,temp As String,outchar As String
outchar=""
Open "file1.txt" For Input As #1
Open "file2.txt" For Oulput As{{U}} {{U}} {{/U}} {{/U}}
n=LOF({{U}} {{U}} {{/U}} {{/U}})
inchar=Input$(n,1)
For k=1 To n
temp=Mid(inchar,k,1)
IfInStr(outchar,temp)={{U}} {{U}} {{/U}} {{/U}}Then
outchar=outchar & temp
End If
Next k
Ptint #2,{{U}} {{U}} {{/U}} {{/U}}
Close #2
Close #1
End Sub
填空题将一般窗体转换为MDI窗体的子窗体时要把MDIChild 属性的值设置为 【8】 。
填空题对随机文件数据存取是以【 】为单位进行操作的。
填空题把文字字符串“Hello Word”写入#1号文件，然后把回车/换行写入文件的操作应该是 (13) 。
填空题Visual Basic对象可以分为两类，分别为【 】和【 】。
填空题滚动条响应的重要事件有______和Change。
填空题多态性机制不仅增加了面向对象软件系统的灵活性，进一步减少了信息冗余，而且显著地提高了软件的可重用性和{{U}} 【2】 {{/U}}。
填空题在窗体上画一个文本框(其Name属性为Text1)，编写如下事件过程，运行结果是______。 Private Sub Form_Load() Show Text1.Text = "你好!" Text1.SetFocus For i = 1 To 15 Sum = Sum + i Next i Text1.Text = Sum End Sub
填空题______测试的任务是检查软件的功能、性能及其他特征是否与用户的需求一致。
填空题已知一棵含有n个结点的树中，只有度为k的结点和度为0的叶子结点，则该树中含有的叶子结点个数为 【2】 。
填空题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后；单击命令按钮，输出结果是 【14】 。
填空题在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。 Sub SORT( ) Dim a(1 To 10) For i=1 To 10 a(i)=Val(InputBox(" " ，" "，0)) Next i For i= 【10】 k=i For j= 【11】 If a(k)＞a(j)Then 【12】 If k＜ ＞i Then b＝a(k) a(k)＝a(i) a(i) =b End If Next j Next i For k=1 To 10 Print a(k) Next k End Sub
填空题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x= -1 a=InputBox("请输人第一个数字a的值") a=Val(a) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第三个数字x的值") x=Val(x) a=a + b + x Loop Print a End Sub 在程序运行后，单击命令按钮，在对话框中分别输入5、4,8、5、8、-1，输出结果为 [9] 。
填空题执行下面的程序段后，S的值为______。 s-5 For i=2.6 To 4.9 Step 0.6 s-s+1 Next i
填空题以下程序的功能是：将当前目录下的顺序文件mText1.txt的内容读入内存，并在图片框 Picture1中显示出来。请完善程序。
Private Sub Command1_Click()
Dim inData As String
Open "./mText1.txt"{{U}} 【13】 {{/U}}As 1
Do While Not EOF(1)
Input #1，inData
Picture1.Print inData
Loop
Close #1
End Sub
填空题在VB中，当改变目录列表框的path属性值时，改变了当前驱动器的______。
填空题在窗体上画一个名称为Combol的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示“已成功添加新输入项。”，如图所示。如果输入的项目已存在，则在Label2中给出提示“输入项已在组合框中。”。请填空。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori＝0ToCombo1.ListCount-1IfCombo1.Text={{U}}【12】{{/U}}ThenLabel2.Caption="输入项已在组合框中。"ExitSubEndIfNextiLabel2.Caption="已成功添加新输入项。"Combo1.{{U}}【13】{{/U}}Combo1.TextEndIfEndSub
填空题下列程序段的执行结果为______。
i=4
a=5
Do
i=i+1
a=a+2
Loop Until i＞=7
Print "A="; a
填空题在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，输出结果是 【15】 Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k=k+p(i) *2 Next i Print k End Sub
填空题以下程序的功能是在程序运行后，单击命令按钮，输出如下结果： 1 4 7 2 5 8 3 6 9 请完善以下程序。 Private Sub Command1_Click() Dim Arr(3，3)As Integer For i=1 To 3 For j=1 To 3 Arr(i，j)= 【15】 Print Arr(i，j)； Next j Print NeXt i End Sub