填空题
下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR()
Randomize
Dim a(10)
For j=1 To 10
a(i)=Int({{U}} {{U}} 5 {{/U}} {{/U}})
If{{U}} {{U}} 6 {{/U}} {{/U}}Then k=k+1
Print a(j)
Next J
Print
Print k/10
End Suh
Sub PR()
Randomize
Dim a(10)
For j=1 To 10
a(i)=Int({{U}} {{U}} 5 {{/U}} {{/U}})
If{{U}} {{U}} 6 {{/U}} {{/U}}Then k=k+1
Print a(j)
Next J
Print k/10
End Suh
填空题
度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为______。
填空题
假设用一个长度为50的数组成(数组元素的下标从0到49)作为栈的存储窨，栈底指标bottom指向栈底元素，栈顶指针top指向栈顶元素，如果bottom=49，top=30(数组下标)，则栈中具有{{U}} {{U}} {{/U}} {{/U}}个元素。
填空题
具有n个结点的完全二叉树的深度为______。
填空题
一个控件在窗体上的位置由Top和Left属性决定，其大小由{{U}} {{U}} {{/U}}{{/U}}和{{U}} {{U}} {{/U}}{{/U}}属性决定。
填空题
“编辑”菜单中“粘贴”命令所对应的快捷键是______。
填空题
栈中允许进行插入和删除的一端叫做______。
填空题
Printer.Print"*"星号输出到______。
填空题
数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为______。
填空题
窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为"计算"的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
