填空题下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR()
Randomize
Dim a(10)
For j=1 To 10
a(i)=Int(______)
If______Then k=k+1
Print a(j)
Next J
Print
Print k/10
End Suh
填空题菜单项的唯一事件是{{U}} 【8】 {{/U}}。
填空题用户可以用 【8】 语句定义自己的数据类型。
填空题Visual Basic变量名字只能由字母、______、下划线组成，总长度不得超过255。
填空题菜单中的分隔条是一种菜单控件，其标题是______，不响应______事件，不能被选中。
填空题下面程序段的输出结果是 【7】 。 For X=1.5 To 5 Step 1.5 Print X； Next X
填空题下列程序是用来计算1+2+3+…+10的程序段，请补充完整该程序。 Dimi,s,k As Integer s=0:k=0 For______To-1 k=k+1 s=s+k Nexti Print S
填空题为了建立窗体的Click事件过程，即Form_Click，应先在代码窗口的{{U}} 【7】 {{/U}}栏中选择Form，然后在{{U}} 【8】 {{/U}}栏中选择Click。
填空题窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。Dimx(3)AsIntegerPrivateSubCommand1_Click()Fori=0To3x(i)={{U}}【10】{{/U}}NextiFori=0ToUBound(x)-1Forj=iToUBound(x)If{{U}}【11】{{/U}}Thent=x(i)x(i)=x(j)x(j)=tEndIfNextjNextiFori=0To3Text1(i).Text=Str(x(i))NextiEndSub
填空题建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为{{U}} 【13】 {{/U}}、
{{U}}【14】 {{/U}}、ShowColor、ShoWFont和ShowPrinter。
填空题菜单控件只包括一个______事件。
填空题记时器控件能有规律的以一定时间间隔触发{{U}} 【6】 {{/U}}事件，并执行该事件过程中的程序代码。
填空题软件工程学把软件从开始研制到最终软件被废弃的整个阶段叫做软件的 【3】 。
填空题窗体上有从左到右的4个单选按钮组成的控件数组Opt1,下标从0开始。程序运行时，单击命令按钮“选择”（名称为Command1），则在标签Label1中显示所选中的信息，如图所示。
以下是完成上述功能的程序，请填空。
Private Sub Command1_Click( )
For i=0 To 3
If Opt(i).Value=True Then
Call f(【 6 】)
End If
Next
End Sub
Private Sub f(x As Control)
Label1.Caption=”你选择的是：”&【 7 】.Caption
End Sub
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(1 To 100) As Integer For i=1 To 100 arr(i)=Int(Rnd*1000) Next i Max=arr(1) Min=arr(1) For j=1 To 100 If (7) Then Max=arr(i) End If If (8) Then Min=arr(i) End If Next i Print "Max="; Max, "Min="; Min End Sub 程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
填空题数据模型通常由3部分组成，它们是 【5】 ，数据操作和完整性约束。
填空题随机文件使用Put语句写数据，使用{{U}} 【14】 {{/U}}语句读数据。
填空题下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请将程序补充完整。 Private Sub Form_Click() Dim i As Integer Open "Num.txt"For Output As#1 For i=1 To 8 (11) Next Close#1 End Sub
填空题设有如下程序： Private Sub Form_Cliok()
Dima As Integer,S As Integer n=8
s=0 Do
s=s+n n=n-1 Loop
While n＞0 Print s End Sub
以上程序的功能是{{U}} [7] {{/U}}；程序运行后，单击窗体，输出结果为{{U}} [8]
{{/U}}。
填空题在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按钮，在输入对话框中分别输入321和456，则输出结果为{{U}} 【6】 {{/U}}。
Private Sub Command1_Click()
a=InputBox("请输入一个整数")
b=InputBox("请再输入一个整数")
Print a+b
End Sub