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

Private Sub Command1_Click()
Dim s As Integer,a(1 to 20) as integer
s = 0
Randomize
Print "输出20个100~200的随机数"
For i = 1 To 20
a(i) = Int((200 - 100 + 1) * Rnd + 100)
print a(i)；
Next i
print
Print "输出能被7整除"
For i=1 to 20
If aIi) Mod 7 = 0 Then
Print a(i);
s=s+a(i)
End If
next i
print
print "能被7整除的数之和为："+str(s)
End Sub

Private Sub Command1_Click()
Dim s As String
s = 0
For i = 1 To 20
Randomize
n = Int((200 - 100 + 1) * Rnd + 100)
s = s + n
If n Mod 7 = 0 Then
Print n & "能被7整除"
Else
Print n
End If
Next i
Print "和为:" & s
End Sub