填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a(10)As Integer
For i=1 To 10
a(i)=i
Next
Call swap({{U}} 【13】 {{/U}})
For i=1 To 10
Print a(i)；
Next
End Sub
Sub swap(b()As Integer)
n={{U}} 【14】 {{/U}}
For i=1 To n/2
t=b(i)
b(i)=b(n)
b(n)=t
{{U}} 【15】 {{/U}}
Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，
a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
填空题下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。 Private Sub Form_Click() Dim i As Integer Open"Num.txt"For Output As #1 For i=1 To 8 ______ Next Close #1 End Sub
填空题在执行KeyPress事件过程时，KeyASCII是所按键的{{U}} 【8】 {{/U}}值。对于有上档字符和下档
字符的键，当执行KeyDown事件过程时，KeyCode是{{U}} 【9】 {{/U}}字符的ASCII值。
填空题在面向对象方法中，信息隐蔽是通过对象的______性来实现的。
填空题假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和 Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将下面的程序补充完整。
Private Sub Command1_Click()
{{U}} 【14】 {{/U}}Form1
Form2．{{U}} 【15】 {{/U}}
End Sub
填空题下面运行程序后，单击命令按钮，输出的结果是 【9】 。 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 For i=3 To 6 b(i)=i Next s1.= Fun(a) s2 =Fun(b) Print "s1 ="; s1; "s2 ="; s2 End Sub Function Fun( a( ) As Integer) Dim t#, i% t=1 For i = LBound(a) To UBound(a) t=t * a(i) Next Fun=t End Function
填空题在关系数据库中，用来表示实体之间联系的是{{U}} 【4】 {{/U}}。
填空题假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String * 10 TelNum As String * 20 End Type 要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将经下程序补充完整。 Private Sub Command1_Clickk( ) Dim B As Books open "c: /person. txt" For output As #1 B. Name = InputBox ("请输入姓名t" ) B. TelNum = InputBox("请输入电话号码" ) write #1, 【15】 close #1 End Sub
填空题以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以 5余3，除以7余4，则输出；否则，将焦点定位在文本框Text中，选中其中的文本。
Private Sub Command1_Click()
x＝Val(Text1.Text)
If{{U}} 【9】 {{/U}}Then
Print x
Else
Text1.SetFoeus
Text1.SetStart＝0
End If
End Sub
填空题如果在菜单标题的某个字母前面输入一个字符“ 【6】 ”，就会使该字母成为热键字母；如果建立菜单时，在标题文本框中输入一个字符“ 【7】 ”，那么菜单显示时就会形成一行分隔符。
填空题假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2。启动窗体为 Form1，在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，在横线处将程序补充完整。
Private SubCommand1_Click()
Unload Form1
Form2．{{U}} 【7】 {{/U}}
End Sub
填空题下面程序运行后，窗体中显示______。 Private Sub Command1_Click)() a$="*"：b$="$" For k=1 To 3 X$=String$(Len(a$)+k,b$) Print X$： Next Print End Sub
填空题软件开发过程主要分为需求分析、设计、编码与测试4个阶段，其中在______阶段将产生“软件需求规格说明书”。
填空题数据结构的实质一般包括3部分：数据元素的逻辑结构、 【1】 以及数据元素的操作(运算)。
填空题一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示{{U}} [2]
{{/U}}文件；包含ActiveX控件的文件扩展名为{{U}} [3] {{/U}}。
填空题要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。 Option Base 1 Private Sub Command1_Click( ) Dim b( ) Randomize ______ Do x = Rnd If x ＞ 0.5 Then y = 1 Else y = -1 t = y * Int(Rnd * 100)+ 1 ______ Do While k If t ＜＞ b(k)Then k = k + 1 Else Exit Do End If Loop If k = j Then ReDim Preserve b(k) b(k)= t Print b(k); j = j + 1 End If Loop Until j ＞ 50 Print ______ Max = b(1) For n = 2 To 50 If b(n)＞ Max Then ______ p = n End If Next n Print "最大数是："; Max Print "位置在第"; p; "个" End Sub
填空题下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt" For Output As#1
For i=1 To 8
{{U}} 【8】 {{/U}}
Next
Close #1
End Sub
填空题建立随机文件Workers．dat。存取职工的姓名和职工号，然后把该文件中的数据读出显示。请在空白处填入适当的语句。 Type Worker name As String*8 number As Integer End Type Open"e://Workers．dat"For Random As #1 Len=Len(Workerl) Workerl．name="zn"：Worker1．number=100# 【8】 Close #1 Open"Workers．dat"For Random As #1 Len=Len(Worker1) 【9】 Print"Worker1："，Worker1．name Print "Worker1："，Worker1．number Close #1
填空题窗体上有两个按钮，则执行程序后按键盘Cancel键的输出结果是{{U}} 【7】 {{/U}}。
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
填空题下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在 【9】 、 【10】 、 【11】 处将程序补充完整。 Option Base 1 Private Sub Command1_Click () Dim a a=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823) For i= 【9】 For j= 【10】 If a(i) 【11】 a(j) Then a1=a(i) a(i)=a(j) a (j) =a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub