填空题
下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click()
Dim an (10) As Integer
Dim max As Integer
Randomize
For i%=1 To 10
an(i%)=______
Next i%
max=an(1)
For i%=2 To 10
if______then
max=an(i%)
End If
Next i%
print max
End Sub
End Sub
Private Sub Form_Click()
Dim an (10) As Integer
Dim max As Integer
Randomize
For i%=1 To 10
an(i%)=______
Next i%
max=an(1)
For i%=2 To 10
if______then
max=an(i%)
End If
Next i%
print max
End Sub
End Sub
填空题
对象的属性是指______。
填空题
在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中，{{U}} {{U}} {{/U}} {{/U}}负责数据的模式定义与数据的物理存取构建。
填空题
下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。
请填空。
Sub PrintOutO
Dim aAs Integer
a=MsgBox("输出结果?"，vblnformation+vbYesNo，"提示：")
If a=______Then
Print "Myresult"
EndIf
EndSub
填空题
当对象得到焦点时，会触发GotFocus事件，当对象失去焦点时将触发______事件。
填空题
在算法的4个特性中，算法必须能在执行有限个步骤之后终止指的是算法的______特性。
填空题
下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678，45，324，528，439，387，87，875，273，823)
For i={{U}} {{U}} {{/U}}{{/U}}
For j={{U}} {{U}} {{/U}}{{/U}}
If a(i){{U}} {{U}} {{/U}}{{/U}}a(j)Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
填空题
给定年份，下列程序用来判断该年是否为闰年，请填空。
提示：闰年的条件是年份可以被4整除但不能被100整除，或者能被400整除。
Private Sub Comand6_Click()
Dim y As Integer
y=InputBox("请输入年份")
If(y Mod 4=0______y Mod 100＜＞0)or(y Mod 400=0)Then
Print"是闰年"
Else
Print"是普通年份"
End If
End Sub
填空题
使用已经存在的类作为基础建立新类的定义，这种技术叫作做类的______。
填空题
常用的黑箱测试有等价类划分法、______和错误推测法3种。
填空题
一棵二叉树第六层(根结点为第一层)的结点数最多为______个。
填空题
在窗体上建立一个单选钮组Option1和一个图片框Picture1，如下图所示。当选择不同的单选钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。
