以下是引用扶风在2018/3/29 15:51:00的发言：
嗯，知道了，谢老师
Dim min As Double = Forms("数据自动生成").Controls("TextBox1").Value
Dim max As Double = Forms("数据自动生成").Controls("TextBox2").Value
Dim r1 As Double= Rand.Next(min*100, max*100)
Dim r2 As Double= Rand.Next(min*100, max*100)
另，老师，如上取随机数，在同一个窗口下，点击确定后，为什么r1的随机数会等于r2的随机数，如何各取各的？
你说的等于什么意思？r1=r2？r1是有可能等于r2的，只是，等于的概率不大。
Dim min As Double = 1
Dim max As Double = 3
Dim r1 As Double= Rand.Next(min*100, max*100)
Dim r2 As Double= Rand.Next(min*100, max*100)
msgbox(r1 & " " & r2)
加好友 
发短信
Post By：2018/3/28 17:44:00 [只看该作者]
