以下程序用来产生20个100以内的随机整数，并将其中的偶数在窗体上显示，请填空。 Randomize Fori=1 To 20 x= [5] If x/2= [6] Then PrintX End If Nexti

以下程序用来产生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

下面的程序的作用是利用随机函数产生10个100~300（不包含300） 之间的随机整数，打印其中7的倍数的数，并求它们的总和，请填空。

Sub TOF（）

Randomize

Dim s As Double

Dim a（10） As Integer

For i=0 To 9

【10】

Next

For i=0 To 9

If 【11】 Then

Print a（i）

s=s + a（i）

【12】

Next i

Print

Print "S="; s

End Sub

以下程序用来输出20个在开区间(10，87)上的随机整数R，每行输出4个整数。请完成空白处。

Private Sub Command1 Click()

For I=1 To 10

R=Int(Rnd*76+11)

Print R；

If【 】Then Print

Next I

End Sub

以下程序用来输出20个在开区间(10,87)上的随机整数数R,每行输出4个整数。请完成空白处.

Private Sub Commandl. Click()

For I=1 To 10

R = Int (Rnd * 76 + 11)

Print R;

If【 】Then Print

Next I

End Sub

以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。

Option Base 1

Private Sub Form. Click()

Dim Arr(10) As Integer

Dim Max As Integer

Randomize

For I = 1 To 10

Arr(i) = Int (Rnd * 1000)

Next i

Max= ______

For i = 2 To 10

If______Then

Max = Arr(i)

End If

Next i

Print Max

End Sub