填空题关系数据库的关系演算语言是以{{U}} 【5】 {{/U}}为基础的DML语言。
填空题以下程序的功能是，产生10个0～1000的随机整数，放入数组Art中，然后输出其中的最大值。请填空。 Option Base 1 Private Sub Form Click( ) Dim Arr(10)As Integer Dim Max As Integer Randomize For i=1 To 10 Arr(i)=Int(Rnd*1000) Next i Max= (14) For i=2 To 10 If (15) Then Max=Arr(i) End If Next i Print Max End Sub
填空题为了改变计时器控件的时间间隔，应该修改该控件的 【13】 属性。
填空题在窗体上画一个名为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum=
________
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p=1
For i=1 To t
p=p*i
Next i
________
End Function
以上程序的功能是，计算1!+2!+3!+…+n!，其中n从键盘输入，请填空。
填空题Visual Basic识别对象靠的是对象的______属性。
填空题设有如下程序 Private Sub Search(a()As Variant， ByVal key As Variant， index%) Dim I% For I=LBound(a) To UBound(a) If key=a(I) Then Index=I Exit Sub End If Next I Index=-1 End Sub Private Sub Form Load() Show Dim b()As Variant Dim n As Integer b=Array(1，3，5，7，9， 11， 13， 15) Call Search(b， 11， n) Print n End Sub 程序运行后，输出结果是______。
填空题假定建立了一个工程，该工程包括两个窗体，其名称分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示Form2，请在空白处将程序补充完整。 Private Sub Command1_Click() ______ form2．______ End Sub
填空题下面程序的运行结果是 (14) 。程序的功能是 (15) 。 Public Function myfun(m,n) Do while m＞n Do while m＞n:m=m-n:Loop Do While n＞m:n=n-m:Loop Loop Myfun=m End Function Private Sub Command1_Click() Print myfun(15,15) End Sub
填空题执行以下程序段，并输入1.23，则程序的输出结果应是
________
。
N=Str(InputBox("请输入一个实数:"))
p=InStr(N,".")
Print Mid(N, p)
填空题编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放后再输出。根据题意，请完善下列程序。
Private Sub subl(b()As Integer, ByVal n As Integer)
Dim i As Integer, j As Integer, t As Integer
________
j=n
Do While i＜j
t=b(i):b(i)=b(j):b(j)=t
i=i+1:j=j-1
Loop
End Sub
Private Sub Command1_Click()
Dim a(1 To 10)As Integer, i As Integer
Randomize
For i=1 To 10
a(i)=Int(100*RnD) +1
Next i
For i=
________
Print a(i);
Next i
Print
Call
________
For i=i To 10
Print a(i);
Next i
Print n
End Sub
填空题已知K=2，J=3，A=True，则VB表达式(K-J＜=K)AND(NOT A)OR(K＋J＞=J)的值为{{U}} {{U}} {{/U}} {{/U}}。
填空题以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为景后得分)，如图所示。请填空。PrivateSubCommand1_Click()DimkAsIntegerDimsumAsSingle，maxAsSingle，minAsSinglesum=Text1(0)max=Text1(0)min=____________Fork=____________To6Ifmax＜Text1(k)Thenmax=Text1(k)EndIfIfmin＞Textloc)Thenmin=Text1(k)EndIfsum=sum+Textl(k)NextkText2=____________/5EndSub
填空题在窗体上面两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来。请填空。 Option Base 1 Dim a(3,2) As Integer Private Sub Command1_Click() For i=1 To 3 For i=1 To 2 (7) =i+j Next i End Sub Private Sub Command2_Click() For j=1 To 3 For i=1 To 2 s=s+a(i，j) Next i Next j Text1.Text= (8) End Sub
填空题高度为h(h＞O)的二叉树最少有 【3】 个结点。
填空题窗体中有两个命令按钮：“显示”(控件名为CmdDisplay)和“测试”(控件名为cmdTest)．单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮，否则退出。请填空。
Private Sub cmdTest_ lick()
answer=MsgBox (“隐藏按钮”，65)
If answer=vbOK Then
cmdDisplay.{{U}} 【8】 {{/U}}
Else
End
End If
End Sub
填空题设一棵完全二叉树共有500个结点，则在该二叉树中有
________
个叶子结点。
填空题为了使标签能自动调整大小以显示全部文本内容，应把标签的 【7】 属性设置为True。
填空题数据库管理一般包含：数据库的建立、数据库的调整、数据库的重组、数据库的安全性控制与完整性控制、数据库的
________
和数据库的监控。
填空题执行下列程序段后，显示的结果是______。 Dim x If x Then Print x Else Print x+1 End If
填空题执行如下程序段后，输出结果为 (7) 。 Private Sub Command1_Click() sum=0 For i=1 To 18 Step 2 For j=2 T0 6 If (Mod j)＜＞0 Then sum=sum+j Next Next Print sum． End Sub