Private Sub Command1_Click()
for i=1 to 3
randomize
i = 100 + Int(Rnd * 901)
MsgBox "产生" & i & ",输出" & StrReverse(i)
next
End Sub