填空题在关系代数中专门的关系运算包括选择，投影、 【5】 、除等运算。
填空题以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。 Private Sub Form_ diek() Dim x, y As Single Dim z As integer x=Input Box("Enter a score") Do while 【8】 y=y+x Z=Z+1 x=Input Box("Enter a score") Loop If=0 Then z=1 End If， y= 【9】 Print y End Sub
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式
n!计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在 (n-r)!r!
Text1、Text2中分别输入n和r的值，单击Commandl按钮即可求出选法的个数，并显示在Text3文本框中。请填空。
Private Sub Commandl_Click() Dim r As Integer，n As
hteger n=Text1 r=Text2
Text3=fun(n)/fun({{U}} [14] {{/U}})/fun(r) End
Sub Funcion fun (n As Integer)as long Dim
t As Long {{U}} [15] {{/U}}
Fork=1 To n t=t*k
Next fun=t End Function
填空题在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1. Text＝"VB Programming" Text2. Text＝Text1. Text Text1. Text＝"ABCD" End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为 【7】 和 【8】 。
填空题Visual Basic中的控件分为3类，它们是______、______和______。
填空题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 3 For j=1 To 4 If j Mod 2＜＞0 Then a=a+1 End If a=a+1 Next j Next i Print a End Sub 程序执行后，单击命令按钮，输出结果是 【3】 。
填空题以下程序段在窗体上输出______，在图片框中输出______，在立即窗口中输出______。
A="your"
B="aname"
C="iscr"
Print Right(A，3)
Picture1.Print Mid(B,2,4)
Debug.Print Left(C.2)
填空题下面程序是用来打印九九乘法表的，请填空。
Dim i As Integer，j As Integer，Str1 $
Str1=""
For i=1 To 9
For j=1 To 9
If {{U}}[12] {{/U}}Then
Str1=Str1+Str$(j)+"X"+Str$(i)+"="+Str$(Val(i*j))
Else
Str1=Str1 & Chr(13)
{{U}} [13] {{/U}}
End If
Next
Next
Print Str1
填空题在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作，必须触发Drive1_Change()事件和Dir1_Change()事件，在这两个事件中执行的语句分别是{{U}} 【8】 {{/U}}和{{U}} 【9】 {{/U}}。
填空题对于任何一棵二叉树，若度为1的结点数为n1，度为2的结点数为n2，则叶子数n0为______。
填空题要选择多个不相领的控件，按住{{U}} 【14】 {{/U}}咸SHIFT 键不放，再单击要选择的控件。
填空题编写如下通用过程：
Sub proc(By Val num As Long，ByRef ren As Long)
Dim k As Long
K = 1
num=Abs(num)
Do While num
k= k *(num Mod 10)
num=num/ 10
Loop
ren=k
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click()
Dim n As Long， r As Long
n=InputBox("请输入一个整数")
n = CLng(n)
proc n，r
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是{{U}} 【15】 {{/U}}。
填空题下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Command1 Click() Max==0 Min=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n＞Max Then Max=n If n＜Min Then Min=n s=s+n ______ S=S-Min-Max P=s/18 Print"最高分"; Max; "最低分"; Min Print"最后得分：": P End Sub
填空题为了使一个标签透明且没有边框，必须将它的BorderStyle属性设置为0，并将{{U}} 【7】 {{/U}}属性设置为0。
填空题建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。 Private Type PerData Name 1 As String Phon As String *11 Address As String *10 PostCd As String*6 End Type ______'定义PerData类型的变量xData Pdvate Sub Form Load() Open"C:/phonBook.txt"For Random As 1 End Sub Private Sub Command1_Click() xData.Name1=Text1.Text xData.Phon=Text2.Text ______=Text3.Text '地址 xData.PostCd=Text4.Text Put#1,1,xData Text1.Text="":Text2.Text="" Text3.Text="":Text4.Text="" End Sub Ptirate Sub Command2_Click() reno=LOF(1)/Len(xData) i=1 Do While i＜=reno Get#1,i,xData Debug.Print xData.Namel, ______ ,xData.Address,xData.PostCd i=i+1 Loop End Sub
填空题在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮。程序运行后，在两个文本框中输入数据，当单个按钮时，标签Label1中显示运算的结果。程序的功能是计算，n!+(n+1)!+(n+2)!+…+(n+m)!。 请在 【15】 处填入适当的内容，将程序补充完整。 Private Sub Command1_Click( ) Dim a，b，c，d As Double Dim i，n，m As Integer n=Val(Text1.Text):m=Val( 【15】 ) a=0： b=1： c=0： d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub
填空题在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。 Private Sub Form_Load() Show Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Text1_KeyDown(KeyCode As Integer， Shift As Integer) Text2.Text = ______ End Sub
填空题在数据库的三级模式体系结构中，模式与内模式之间的映像(模式/内模式)实现了数据库的{{U}} 【5】 {{/U}}独立性。
填空题冒泡排序在最好情况下时间复杂度为 【3】 。