vb高手请进！帮编写个程序！急求！

Question

生成20个100~200之间的随机数，将这20个数显示在窗体上。再显示出其中能够被7整除的数，并计算、输出他它们的和

Answer 1

Private Sub Command1_Click()
Cls
Dim s(1 To 20) As Integer, sum As Long
Print "随机20个整数："
For i = 1 To 20
s(i) = Int(Rnd * 100 + 100)
n = n & s(i) & ","
Next
Print n
Print "能被7整除的数："
For j = 1 To 20
If s(j) Mod 7 = 0 Then sum = sum + s(j): n1 = n1 & s(j) & ","
Next
Print n1
Print "能被7整除的数的和为：" & sum
End Sub

Answer 2

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
Dim nArr(20) As Integer
Dim nTot As Long

Randomize
'生成20个100~200之间的随机数，将这20个数显示在窗体上。
Print "生成20个100~200之间的随机数，将这20个数显示在窗体上"
For i = 0 To 19
n = Rnd * 100 + 100
nArr(i) = n
Print n
Next i

'再显示出其中能够被7整除的数，并计算、输出他它们的和
Print "再显示出其中能够被7整除的数，并计算、输出他它们的和"
For i = 0 To 19
If nArr(i) Mod 7 = 0 Then
Print nArr(i)
nTot = nTot + nArr(i)
End If
Next i

Print "Total=" & nTot
End Sub