2道关于VB的试题（程序填空，求答案）

程序填空

1．下面程序用来产生20个50~100范围内的随机整数，将其中的偶数打印出来，然后将这20个数按从小到大输出。
Privat Sub Command1_Click()
Dim a(1 to 20)
Randomize
For i=1 to 20
a(i)=int(Rnd(1)*________)
If a(i)/2=_________then print a(i);spc(2);
Next I
Print
For i=1 to 19
k=i
for j=1 to 20
if a(j)<a(k) then k=j
next j
min=a(i)
_____________
a(k)=min
End sub
2．下面程序用来计算1+2+3+…+n ，当和大于1000时停止。
Privat Sub form1_Click()
Dim n%,s%
_____________
For i=1 to n
s=s+i
_____________
next i
print “s=”;s
End sub

1．下面程序用来产生20个50~100范围内的随机整数，将其中的偶数打印出来，然后将这20个数按从小到大输出。
Privat Sub Command1_Click()
Dim a(1 to 20)
Randomize
For i=1 to 20
a(i)=int(Rnd(1)*51+50)
If a(i)/2=A(i)\2 then print a(i);spc(2);
Next I
Print
For i=1 to 19
k=i
for j=1 to 20
if a(j)<a(k) then k=j
next j
min=a(i)
a(i)=a(k)
a(k)=min
End sub
2．下面程序用来计算1+2+3+…+n ，当和大于1000时停止。
Privat Sub form1_Click()
Dim n%,s%
N=100 '此处有问题,这个题不应该用For循环,只要能保证1~N的和>1000时,N取任何值都行 ,比如 N=200,N=300
For i=1 to n
s=s+i
If S>1000 Then Exit For
next i
print “s=”;s
End sub

1．下面程序用来产生20个50~100范围内的随机整数，将其中的偶数打印出来，然后将这20个数按从小到大输出。
Privat Sub Command1_Click()
Dim a(1 to 20)
Randomize
For i=1 to 20
a(i)=int(Rnd(1)*51+50)
If a(i)/2=A(i)\2 then print a(i);spc(2);
Next I
Print
For i=1 to 19
k=i
for j=1 to 20