填空题在数据库设计的4个阶段中，每个阶段都有自己的设计内容。“为哪些表、在哪些字段上、建立什么样的索引”，这些设计内容应该属于 (4) 设计阶段。
填空题下面运行程序后，单击命令按钮，输出的结果是
________
。
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
填空题下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2，完成下列程序。 Private Sub Backwarda() Dim i As Integer,Tmp As Integer For i=1 To 5 Tmp:a(i) (7) a(5-i)=Tmp Next End Sub
填空题下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:/a1．txt文件中的所有小写字母。 Private Sub Form_Click() Dim Ch As String*1 Open"c:/a1．txt"For Input As #10 Do While 【13】 Ch=Input(1，#10) If 【14】 Then Print Ch； End If Loop 【15】 End Sub
填空题以下程序段的输出结果是{{U}} 【15】 {{/U}}。
num=0
Do While num＜=5
num=mum+1
Loop
Print num
填空题改变驱动器列表框的Drive属性值将引发【 】事件。
填空题链表适用于{{U}} 【2】 {{/U}}查找。
填空题进行文件操作时，常需要使用______函数返回一个当前可以使用的文件号。
填空题假定有以下当循环： While Not条件 循环体 Loop 则执行循环体的"条件"是______。
填空题在程序运行执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句。这样用户可以在获得系统的控制权后进行其他操作。这个语句是______。
填空题设有以下函数过程： Function fun(m As Integer)As Integer Dim k As Integer, sum As Integer sum=0 For k=m To 1 Step-2 sum=sum+k Next k fun=sum Fnd Function 若在程序中用语句s=fun(10)调用此函数，则s的值为______。
填空题对长度为20的线性表进行冒泡排序，最坏情况下需要比较的次数为______。
填空题下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个， 完成下列程序。 Private Sub Backward(a()) Dim i As Integer,Tmp As Integer Fori=1 To5 Tmp=a(i) a(5-i)=Tmp Nexti End Sub
填空题下列事件过程的功能是：通过Foma_Load事件给数组赋初值为35、48、15、22、67， Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。 Dim Arr() Private Sub Form_Load() ______ End Sub Private Sub Form_CUck() For EaCh x In Arr If Int(x/3)=x/3 Then Pdnt X End If NeXt X End Sub
填空题在长度为n的顺序储的线性表中删除一个元素，最坏情况下需要移动表中的元素个数为______。
填空题以下程序代码实现单击命令按钮Commandl时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。 Dimalt(1 To 20) Fori=1 To 20 arr(i)= Nexti Sub=0 For Each X In arr If X＞50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；"Sub="；Sub
填空题设有一个10个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换……，第五个元素与第六个元素交换，请补充完该程序。
Private Sub Commnd1_Click()
Dim a(1 To 10)As Integer
Dim i As Integer
Dim p As Integer
Dim t As Integer
Dim j As Integer
For i=1 To 10
a(i)=i
Next i
For j=1 To 5
{{U}}【9】 {{/U}}
{{U}}【10】 {{/U}}
{{U}}【11】 {{/U}}
Next j
For i=1 To 10
Print a(i)
Next i
End Sub
填空题下列程序运行后，在窗体上打印的结果是{{U}} 【14】 {{/U}}。
Private Sub test(a， b，c)
a = a + 1： b = b + 2：C = C + 3
End Sub
Private Sub Command1 Click()
x = 1：v = 2：z = 3
Call test(x，y + 3， (z))
Print "Main:"；x；y；z
End Sub
填空题下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值。请完善程序。
Function SumF(n As Integer)As Single
s=0
For i=1 To n
s=______
Next i
SuraF=s
End Function
Private Sub Form_Click
____
Sum1=SumF(100)
Print
Print "sum1=" :sum1
End Sub