如题所述
VBçæ1-100ä¹é´çéæºæ´æ°ï¼å¯ä»¥ä½¿ç¨ç³»ç»èªå¸¦çRnd()æ¹æ³è¿è¡å®ç°ï¼ä»£ç å¦ä¸ï¼
Private Sub Command_Click()Dim MyValue //å®ä¹ä¸ä¸ªéæºæ°
MyValue = Int((100 * Rnd) + 1) //rnd()å½æ°çæéæºæ°
Print MyValue //æå°åºè¿ä¸ªéæºæ°
End Sub
Private Sub Form_Load()
Randomize //åå§åéæºæ°çæå¨
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2013-07-19
int(rnd*100 + 1),rnd生成0~1之间的实数,rnd*100生成0~100之间的实数,rnd*100+1 生成1~101之间的实数,int使随机数向下取整,由于rnd生成的实数小于1,所以实际生成的是1~100之间的整数。追问
为什么输入a=int(rnd*100 + 1)有错误呢?
第2个回答 2013-07-19
Private Sub Command1_Click()
Dim MyValue
MyValue = Int((100 * Rnd) + 1)
Print MyValue
End Sub
Private Sub Form_Load()
Randomize
End Sub追问
Dim MyValue
MyValue = Int((100 * Rnd) + 1)
Print MyValue
End Sub
Private Sub Form_Load()
Randomize
End Sub追问
那个,对不起,我是新手,有更简单一点的方法吗?
追答这是·最基本的代码,可以不用
Randomize
但只能获得同一系列的随机数。