素数是指除了1和本身不能被任何数整除的数。请将3到100间的素数添加到LIST1中。
PRIVATE   SUB    FORMCLICK
FOR  I = 3  TO 　________1
F=0
FOR  J= 2  TO  I-1
IF ________2 THEN
F=1
EXIT  FOR
END   IF
NEXT  J
IF   F=0   THEN  ________3
________4
END  SUB

以下程序的功能是随机生成20个1到100之间的正整数，用选择排序法将其按从大到小的顺序排列后输出。请将下列程序补充完整。
Private Sub Command1_Click()
Dim a(20) As Integer，i As Integer
Dim j As Integer，temp As Integer
Prin “排序前：”
For i＝1 To 20
a(i)＝Int(Rnd*100)＋1
Print a(i)；
Next i
Print
For i＝1 To 19
For__①__ To 20
If __②__ Then
t＝a(i)
a(i)＝a(j)
③__
End If
Next j
Next i
Print“排序后：”
For i＝1 To 20
Print a(i)；
Next i
End Sub
(1)程序中划线处①应填入_______________________________________。
(2)程序中划线处②应填入_______________________________________。
(3)程序中划线处③应填入_______________________________________。

随机产生10个12,20间的随机整数放在A数组中,打印最大的和最小的.请完善程序
PRIVATE   SUB   FORM_CLICK( ）
________1
MAX=0:  MIN=21
FOR   I=  1  TO  10
A(I)=________2
IF ________3THEN   MAX=A(I)
IF ________4THEN  MIN=A(I)
NEXT  I
PRINT   “最大数是”；MAX ,”最小数是” ；MIN
END  SUB

下面VB程序段运行后，文本框Text1和Label1显示的内容分别是（  ）
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text = Text1.Text + Str(n)
If n <= 1 Then
f = 1
Else
f = f(n - 1) + 2
End If
End Function

A．3 2 1 和  5	B．1 2 3 和  5
C．5 和  3 2 1	D．6 和  3 2 1

有如下VB程序段：
a(1)=20: a(2)=3: a(3)=21: a(4)=37
a(5)=62: a(6)=20: a(7)=13: a(8)=33
k=Abs(a(2)-a(1))
For i=3 To 8
If Abs(a(i)- a(i-1))>k Then k= Abs(a(i)-a(i-1))
Next
执行该程序段后，变量k的值为（   ）

A．7

B．17

C．25

D．42