下面程序
Private Sub Command1_Click()
Randomize
Static a As Integer, b As Integer, c As Integer
a = Int(Rnd * 100): b = Int(Rnd * 100): c = Int(Rnd * 100)
Form1.Print "a,b,c="; a; b; c
If a >= b And a >= c Then
Form1.Print "max="; a
ElseIf b >= a And b >= c Then
Form1.Print "max="; b
Else
Form1.Print "max="; c
End If
End Sub

请问randomize是什么意思？随机整数是怎么表示的？为什么最后用ＥＬＳＥ就能解决问题？

ranodmize是初始化随机计数器 因为随机数是伪随机序列
随机整数0 到 N －1的表达式是 int(Rnd * N); 1到N 是 INT(Rnd *N) + 1

最后那些else。。不过是3个数比大小用的 和随机无关

如果没有这个ranodmize 会出现什么情况?

每次启动.都会出现相同的数.

ps:可以自己试出来的.就不要问了.

好的,多谢版主指点!!
我刚学,不要说我菜.!

Private Sub Command1_Click()
Randomize
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(Rnd * 50)
b = Int(Rnd * 50)
c = Int(Rnd * 50)
Form1.Print a; b; c
If a > b And a > c Then
Form1.Print "×î´óÊýÊÇ" & a
Else
If b > a And b > c Then
Form1.Print "×î´óÊýÊÇ" & b
Else
Form1.Print "×î´óÊýÊÇ" & c
End If
End If

End Sub
我试过了,Randomize要不要好像是没什么不同,可以解释下吗

谁说没什么不同呀,你仔细看下啊!要Randomize和不要Randomize分别试几次看下，不要时，每次出现的都是那几组数据。
因为没有Randomize时，Ran的种子是一定的，所以生成的随机数也是一定的。

试过了,不要的时候确实重复的机率大些,不过很不明显!!

[此贴子已经被作者于2007-3-27 20:08:14编辑过]

晕~~~~~~~~~~如4楼所说的，是启动，要关了重开，汗！

,受教了