VB编程题目。。。。


1.命令按钮Command1_Click事件过程如下：
Private Sub Command1_Click(  )
Dim a As Integer,n As Integer
a=1:n=0
Do While a<20
a=a*3
n=n+1
Loop
Text1=a
End Sub
程序运行时，单击命令按钮后，文本框1上显示的结果为_____。
2.下面的程序按从小到大的顺序产生不超过20个介于100到400（包括100、400）的数，每次产生的一个数总大于它前面已产生的数，然后求产生的数的平均值。数组b(20)用于存放所产生的随机数，运行结果如图所示：
Form1
312 333 345 359 389 396 400 aver=  362
                                                 Command1
 
Private Sub command1-click()
Dim b(20),i as Integer,j As Integer,sum As Single
j=1
Do
re:
b(j)=Int(__(1)_____)
If b(j)=400 or j =20 Then
Exit Do
ElseIf  b(j)<=b（j-1) Then
         ____(2)_______
End If
_____(3)_______
Loop
sum=_(4)________
For i=1 to j
Print b(i);
sum=sum+b(j)
Next i
print"aver",__(5)________
End Sub

追问：那个有人做出go to re那个空(就是第2空）是j=j-1......到底是哪个。。。。

答案：第一题结果是27

第二题：

re:

b(j)=Int(rnd*301+100)

If b(j)=400 or j =20 Then

Exit Do

ElseIf b(j)<=b（j-1) Then

goto re

End If

j = j + 1

Loop

sum=0

For i=1 to j

Print b(i);

sum=sum+b(j)

Next i

print"aver",sum / j

End Sub