填空题新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，
Form1窗体消失，显示Form2窗体，程序如下，请填空。
Private Sub Command1_Click()
Form1.Hide
Form2.{{U}} 【8】 {{/U}}
End Sub
填空题下面是用冒泡法将5个整数按升序排列，请将程序补充完整。 Sub GASR() Dim m m=Array(10，1，5，6，7) For i=0 To 3 For j= 【13】 If m(i) ＞=m(j) Then 【14】 m(i) =m(j) m(j) =t End If Next j 【15】 For i=0 To 4 Print m(i) Next i End Sub
填空题一棵二叉树第六层(根结点为第一层)的结点数最多为 (3) 个。
填空题已知变量boo1Var是一个布尔型的变量，如果要给其赋值为True，则正确的赋值语句是______。
填空题读下列程序： Private Sub Form_Click() Static x(4) As Integer For i=1 To 4 x(i)=x(i)+i*3 Next i Print For i=1 To 4 Print “x(“；i；”)=”X(i) Next i End Sub 该程序在运行了3次后，其最终结果是 (7) 。
填空题符合结构化原则的三种基本控制结构是顺序结构、______和循环结构。
填空题数据库系统的核心是______。
填空题与数学表达式对应的，VisualBasic表达式是________。
填空题面向对象的程序设计方法是把 【13】 封装起来作为一个对象，并为每一个对象设置所需要的 【14】 。
填空题设置状态栏控件的______属性可以改变状态栏在窗体上的位置。
填空题如果存在如下过程：
Private Function Fun( a( ) As Integer)
Dim First As Integer, Last As Integer, i As Integer
First = LBound(a)
Last=UBound (a)
Max = a(First)
For i=First To Last
If a(i)＞Max Then Max =a(i)
Next
Fun=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
ReDim m(1 To 4) As Integer
m(1) =20: m(2) =30: m(3) =50: m(4) =100
c =Fun(m)
Print c
End Sub
单击命令按钮，其输出结果为{{U}} 【10】 {{/U}}。
填空题以下程序的功能是：把当前目录下的顺序文件smText1. txt的内容读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1. Text=""
Open". /mText1. txt" {{U}}【14】 {{/U}}As 1
Do While{{U}} 【15】 {{/U}}
Input #1, inData
Text1. Text=Text1. Text & inData
Loop
Close #1
End Sub
填空题计时器事件之间的间隔通过{{U}} 【8】 {{/U}}属性设置。
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
n = 5
f = 1
s = 0
For i = 1 To n
f = f【 】
s = s + f
Next
Print s
End Sub
该事件过程的功能是计算
s=1+1/2!+1/3!+…+1/n!
的值。请填空。
填空题表示“A＋B＋C大于等于255，或A与B分别大于90，且C大于80”的VB表达式为{{U}} 【4】 {{/U}}。
填空题将变量SUM1、SUM2定义为单精度型，写出相的定义语句______。
填空题在窗体上画1个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load() Open"d:/temp/dat.txt"For Output As #1 Text1.Text="" End Sub Private Sub Text1_KeyPress(Key Ascii As Integer) If (10) =13 Then If U Case(Text1.Text)= (11) Then Close 1 End Else Write #1, (12) Text1.Text="" End If End If End Sub 以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。
填空题数据是信息的符号表示，又称载体；信息是数据的 【5】 。
填空题新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，
Form1窗体消失，显示Form2窗体，程序如下：
Private Sub Command1_Click()
______
Form2______
End Sub
试补充完整。
填空题设有如下程序
Option Base 1
Private Sub Command1_Click()
Dim arrl
Dim Min As Integer，i As Integer
arrl=Array(12，435，76，-24，78，54， 866， 43)
Min=____
For i=2 To 8
If arrl(i)＜Min Then
Next i
Print “最小值是：”；Min
End Sub
以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。