以下是引用扶风在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)