填空题如果一个工人可管理多个设备，而一个设备只被一个工人管理，则实体“工人”与实体“设备”之间存在______的联系。
填空题以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。
Private Sub Command1_Clcik()
Randomize
For I=1 To 20
X=Int(Rnd*______)
If X/2=______Then Print x
Next I
End Sub
填空题面向对象的程序设计是把______封装起来作为一个对象，并为每一个对象设置所需要的属性。
填空题下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输山文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) If______Then Print x Else ______ Text1.Text="" End If End Sub
填空题如果不指明函数过程参数的类型，则该参数的数据类型为______。
填空题要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim b()
Randomize
{{U}}【12】 {{/U}}
Do
x=Rnd
If x＞0.5 Then y=1 Else y=-1
t=y*Int(Rnd*100)+1
{{U}} 【13】 {{/U}}
Do While k＜j
If t ＜＞ b(k)Then
k = k + 1
Else
Exit Do
End If
Loop
If k=j Then
ReDim Preserve b(k)
b(k)=t
Print b(k)；
j=j+1
End If
Loop Until j＞50
Print
{{U}}【14】 {{/U}}
Max=b(1)
For n=2 To 50
If b(n)＞Max Then
{{U}}【15】 {{/U}}
p = n
End If
Next n
Print "最大数是："；Max
Print "位置在第"；p；"个"
End Sub
填空题以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。
Private Sub Form_ diek()
Dim x, y As Single
Dim z As integer
x=Input Box("Enter a score")
Do while{{U}} 【8】 {{/U}}
y=y+x
Z=Z+1
x=Input Box("Enter a score")
Loop
If=0 Then
z=1
End If，
y={{U}} 【9】 {{/U}}
Print y
End Sub
填空题算法复杂度主要包括时间复杂度和
______
复杂度。
填空题要想在文本框中显示垂直滚动条，必须将ScrollBars属性设置为2，同时还应将 【12】 属性设置为True。
填空题设循环队列的容量为55，如果头指针front=50(指向队头元素的前一位置)，尾指针rear=45(指向队尾)，则该循环队列中共有______个元素。
填空题Visual Basic 提供了列表框控件，当列表框中的项目较多。超过了列表框的长度时，系统会自动在列表框边上加一个{{U}} 【6】 {{/U}}。
填空题在一棵二叉树中，度为0的结点的个数为n0，度为2的结点的个数为n2，则有n0={{U}} 【1】 {{/U}}。
填空题在窗体上画一个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load() Open"d:/temp/dat.txt"For Output As#1 Text1.Text:“” End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If (13) =13 Then If UCase(Text1.Text1= (14) Then Close#1 End Else Write#1， (15) Text1.Text=“” End If End If End Sub 以上程序的功能是，在D盘temp目录建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCⅡ码是13)都把当前文本框中的内容写入文稿件dat.txt,并清除文本框中的内容；如果输入“END”，则结束程序。请将程序补充完整。
填空题下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所
占比例，但程序不完整，请补充完整。
Sub PR( )
Randomize
Dim a(10)
For j=1 To 10
a(i)=Int({{U}} 【14】 {{/U}})
If{{U}} 【15】{{/U}}Then k=k+1
Print a(j)
Next j
Print
Print k/10
End Sub
填空题数据管理技术发展过程经过人工管理、文件系统和数据库系统3个阶段，其中数据独立性最高的阶段是{{U}} 【4】 {{/U}}。
填空题在下面程序的执行过程中，将要进行{{U}} 【13】 {{/U}}次循环，而在第3次循环输出的数据是{{U}} 【14】 {{/U}}。
Private Sub Command1 Click()
Dim b(-1 To 3)
For i=LBound(b，1)To UBound(b，1)
b(i)=2*i
Print i，b(i)
Next i
End Sub
填空题数据是信息的符号表示，又称载体；信息是数据的{{U}} 【5】 {{/U}}。
填空题排序是计算机程序设计中的一种重要操作，常见的排序方法有插入排序、 【1】 和选择排序等。
填空题对软件是否能达到用户所期望的要求的测试称为 【4】 。