请教一段vb程序

Question

private sub command_click()
dim a(30) as integer
for i =1 to 30
a(i)=int(rnd*100)
next
for each arritem in a
if arritem mod 7=0 then print arritem
if arritem>90 then exit for
next
end sub
请问int(rnd*100) 是什么意思？
arritem是只什么？
请翻译一下这段程序

Answer 1

Private Sub command_click()
Dim a(1 To 30) As Integer ' 定义一个数组
For i = 1 To 30
a(i) = Int(Rnd * 100) '生成0——100以内的随机数
Next i
For Each arritem In a ' arritem 取到 a数组的每一个值
If arritem Mod 7 = 0 Then Print arritem '如果arritem可以整除 7 的话 则输出 arritem值
If arritem > 90 Then Exit For '如果arritem大于 90 则退出循环
Next
End Sub

这段程序解释好了 还有你有几个地方 语句有问题 我给你改了 你仔细看看
建议一哈 arritem是for each 语句在这里显得很笨拙 可以再用 for next
语句 有疑问 再联系我 ！！！！

Answer 2

产生1-100的随机整数
arritem是for each的一个临时变量,是遍历数组A的每一个元素