填空题在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form Click()
Open "d：/test/smtext1.txt" For Input As #1
Do While Not
Line Input #1，aspects
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。请填空。
填空题下面的程序用于根据文本框Test中输入的内容进行以下处理：
若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text 为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。
Private Sub Command1_Click( )
Selct Case Val(Text1.Text)
Case【 】
Print "您的成绩为优秀！"
Case【 】
Print "您的成绩为良好！"
Case【 】
Print "您的成绩为一般！"
Case Else
Print "您的成绩为一般以下！"
End Select
End Sub
填空题在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示“打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。 Private Sub Command1_Click() CommonDialog1．Filter= 【12】 CommonDialog1．ShowOpen PCSTextBox．Text= 【13】 End Sub
填空题假定一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是______。
填空题假定在工程文件中有一个标准模块，其中定义了如下记录类型。 Private Type Books Name As String*10 TelNum As String#20 End Type 要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。 Private Sub Command1_Click() DimB As Books open“C/person.txt”For output As#1 B.Name=InputBox(“请输入姓名”) B.TeINum=InputBox(“请输入电话号码”) write#1， (9) close#1 End Sub
填空题运行表单时，Load事件是在Init事件之【5】被引发。
填空题有下列程序，程序运行后，单击“Command1”按钮，在列表框List1中显示的第一行和第二行的结果分别是 【13】 和 【14】 ，最后一行的结果是 【15】 。 Type type_a chr1 As String*1 num1 As Integer End Type Private Sub Command1_Click() Dim testdata As type_a, n As Integer Dim f1 As Integer, c()As String*1 f1=FreeFile Open "d:/data. txt" For Random As #f1 Len=Len(testdata) n=1 For I=97 To 102 ReDim Preserve c(n) c(n)=Chr(I) testdata. chr1=c(n) testdata. num1=I n=n+1 Put #f1, , testdata Next I Seek #f1, 1 For I=1 To UBound(c) Get #f1, , testdata List1. AddItem testdata. chr1 & testdata num1 Next I List1. AddItem UBound(c) Close End Sub
填空题问题处理方案的正确而完整的描述称为 【5】 。
填空题下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请在程序空白处填入适当内容使程序完整。 Sub PrintOut() Dim a As Integer a = MsgBox("输出结果?", vblnformation + vbYesNo, "提示：") If a = ______ Then Print "Myresult" End If End Sub
填空题有下列程序： Private Sub Command1_Click() Dim i As Integer Dim arrY(5)As Integer For i = 0 To 4 arrY (i) = 5 Next i Dim arrZ(5)As String For i = 0 To 4 arrZ(i)= "hello" Next i Dim arrX(2)AS Variant arrX(1)=arrY() arrX(2)=arr2() Text1.Text=arrX(1) (2) Text2.Text=arrX(2) (3) End Sub 程序运行后，单击命令按钮，在文本框Text1和Text2中分别显示的内容是 【14】 和 【15】 。
填空题在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Labe11，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图20-8所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。PrivateSubCommand1_Click()IfList1.ListIndex＞=0ThenList1．RemoveItem【7】Labe11．Caption=【8】ElseMsgBox“请选择要删除的项目”EndIfEndSub
填空题以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Commandl的命令按钮。运行时在文本框数组中输入7个分数，单击．“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低．分后的平均分即为最后得分)，如图所示。请填空。PrivateSubCommandl_Click()DimkAsIntegerDimsumAsSingle,maxAsSingle，minAsSinglesum=Text1(0)max=Text1(0)min={{U}}{{U}}{{/U}}{{/U}}Fork={{U}}{{U}}{{/U}}{{/U}}To6Ifmax＜Text1(k)Thenmax=Text1(k)EndIfIfmin＞Text1(k)Thenmin=Text1(k)EndIfsum=sum+Text1(k)NextkText2=({{U}}{{U}}{{/U}}{{/U}})/5EndSub
填空题欲打开各种Visual Basic窗口或显示工具栏，其对应的菜单命令均放置于主菜单项______。的下拉菜单中。
填空题执行以下程序段后，变量e的值是______。
a＄="3"：b＄="5"
c=Val(a＄)+Val(b＄)
d=Val(a＄+b＄)
e=c+d
填空题数据结构分为逻辑结构和存储结构，循环队列属于 【5】 结构。
填空题若有一个动态数组a有两个元素a(0)和a(1)，现要令数组a有三个元素a(0)、a(1)和a(2)，则应当使用{{U}} 【9】 {{/U}}语句。
填空题下面运行程序后，单击命令按钮，输出的结果是{{U}} 【11】 {{/U}}。
Private Sub Command1_Click( )
Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#
For i=1 To 4
a(i) =i
Next i
For i=3 To 6
b(i) =i
Next i
s1=YAS(A)
s2=YAS(B)
Print"s1="；s1；"s2="；s2
End Sub
Function YAS(a( )As Integer)
Dim t#，i%
t=1
For i=LBound(A) To UBound(A)
t=t * a(i)
Next i
YAS=t
End Function
填空题以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1_Click( )
For i=1 To 20
x=Int({{U}} 【6】 {{/U}}*100+200)
If{{U}} 【7】 {{/U}}=0 Then
Print x
S=S+{{U}} 【8】 {{/U}}
End lf
Next i
Print"Sum="；S
End Sub
填空题结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、 (4) 和限制使用goto语句。