填空题在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。
Private Sub Disp_Click()
Me．Hide
Form2.{{U}} 【10】 {{/U}}
End Sub
填空题在程序的空白行处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。 Do While List2.ListCount ______ List2.RemoveItem() Loop
填空题当用户建立窗体文件时，都会产生______。
填空题某顶级菜单项的快捷键字符为F，______操作等同于单击该菜单项。
填空题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x)) End Sub 程序运行后，单击命令按钮，输出结果是______。
填空题顺序查找一般是指在{{U}} 【1】 {{/U}}中查找指定的元素。
填空题以下程序的功能是：把当前目录下的顺序文件smtextl.txt的内容读入内存，并在文本框Texd中显示出来。请填空。 Pfivme Sub Commandl_Click( ) Dim inData As String Textl.Text ="" Open"．/smtextl.txt" 【14】 As#1 Do While 【15】 Input#1，in Data Text1.Text=Text1.Text&inData Loop Close#1End Sub
填空题以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)～A
____
依次赋给B(1，1)～B(1，10)，把A(11)～A(20)依次赋给B(2，1)～B(2，10)，……，把A(91)～A(100)依次赋给B(10，1)～B(10，10)。请填空。
Option Base 1
Private Sub Form_Click()
Dim i As Integer,j As Integer
Dim A(1 To 100) As Integer
Dim B(1 To 10, 1 To 10) As Integer
For i=1 To 100
A(i)=Int(Rnd*100)
Next i
For i=1 To
________
For j=1 To
________
B(i,j)=
________
Print B(i,j)
Next j
Print
Next i
End Sub
填空题执行下面程序，第一行输出结果是 【14】 ，第二行输出结果是47。 Option Explicit Private Sub Form_Click( ) Dim A As Integer A=2 Call Sub1 (A) End Sub Private Sub1 (x As Integer) x=x*2+1 If x＜10 Then Call Sub1 (x) End If x=x*2+1 Print x End Sub
填空题在面向对象的设计中，用来请求对象执行某一处理或回答某些信息的要求称为{{U}} 【4】 {{/U}}。
填空题以下程序的功能是从随机产生的20个20～200(含20和200)的整数中，找出能够同时被3和5整除的数的最大值，并显示出来。请填空。
Option Base 1
Private Sub Command1_Click()
Dim a(20) As Integer
m=0
For i=1 To 20
a(i)=Int(Rnd*______)+20
If a(i) Mod 3=0 ______a(i) Mod 5=0 Then
If a(i)＞m Then m=a(i)
End If
Next
If ______ Then
Print"没有满足条件的数"
Else
Print"满足条件的数是"；m
End If
End Sub
填空题如下有一段不完整的程序段，如果要求该程序执行3次循环，则在程序中的括号里要填入{{U}} 【6】 {{/U}}。
Private Sub Command1_Click()
x = 1
do
x=x+3
Print x
Loop Until{{U}} 【6】 {{/U}}
End Sub
填空题为了把一个Visual BASIC应用程序装入内存，只要装入{{U}} 【6】 {{/U}}文件即可。
填空题数据模型是数据库系统中用于提供信息表示和操作手段的结构形式。实际数据库系统中斯支持的数据模型主要有层次模型、网状模型和 【5】 3种。
填空题下列程序段的输出结果为______。
Dimy As Integer
Private Sub Commandl_CUck()
DimX As Integer
x=2
TeKt1.Text=SecondFunc(FirStFunC(X)，y)
Text2.Text=FirstFunc(X)
End Sub
PrivateFunctionFirstFunc(XASInteger)As Integer
x=x+y:y=x+y
FirstFunc=x+y
End Function
PtivateFunction SecondFunc(X As Integer,y AS Integer)As Integer
SecondFunc=2*x+y
End Function
填空题下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量：
Dim PaintStart As Boolean
编写如下事件过程：
Private Sub Form_Load()
DrawWidth=2
ForeColor=vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_
X As Single，Y As Single)
【 】
End Sub
Private Sub Form_MouseMove(Button As Integer，Shift As Integer，_
X As Single，Y As Single)
If PaintStart Then
PSet(X，Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer，Shift As Integer，_
X As Single，Y As Single)
【 】
End Sub
Private Sub Form_Db1Click()
【 】
End Sub
填空题下列程序的功能是求336的个位和十位数的值，填空补充程序。 Private Sub Command1 Click() n=1 For i=1 To 6 n=n*33 n=n Mod 100 Next i m= 【12】 n= 【13】 Print"十位数是”；n；”个位数是”；m End Sub
填空题以下程序段的功能为，输入8个数给数组a,然后采用插入排序算法，将数组a中的数按照升序排列存入数组b中。请填空。 Private Sub Command1_Click () Dim a(1 To 8), b(1 To 8) For i = 1 To 8 a(i) = InputBox("请输入") Print a(i) Next i Print For i = 1 To 8 s = 1 For j = 1 To 8 If 【6】 Then s = s + 1 End If Next j 【7】 Next i End Sub
填空题下列程序的功能是：将数据1，2，…，10写入顺序文件Base．txt中，请填空。
Private Sub Form_Click()
Dim i As Integer
Open【 】 As #1
For i=1 To 10
【 】
Next i
Close #1
End Sub
填空题下面程序的作用是利用随机函数产生10个100～200之间(包含100、200)的随机数，打印其中是5的倍数的数，并求出它们的总和。请将下列程序补充完整。 Private Sub Command1_Click() For m=1 To 10 x=Int(Rnd *______) If Then Print x; k1=k1+x End If Next m Print"k1=";k1 End Sub