如题所述
代ç å注éå¦ä¸ï¼
Private Sub Command1_Click()'ç¹å»å½ä»¤æé®æ§è¡ç¨åº
Randomize'åå§åéæºæ°åçå¨
x = Round((Rnd() * 9), 0)'å å©ç¨éæºæ°å¾å°0-1åºé´çå°æ°ï¼ç¶åä¹ä»¥9ï¼å¨å¯¹è¿ä¸ªæ°è¿è¡åèäºå ¥åï¼èµå¼ç»x
Print x'çªä½æå°x
End Sub
Private Sub Command1_Click()'ç¹å»å½ä»¤æé®æ§è¡ç¨åº
Randomize'åå§åéæºæ°åçå¨
x = Round((Rnd() * 9), 0)'å å©ç¨éæºæ°å¾å°0-1åºé´çå°æ°ï¼ç¶åä¹ä»¥9ï¼å¨å¯¹è¿ä¸ªæ°è¿è¡åèäºå ¥åï¼èµå¼ç»x
Print x'çªä½æå°x
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 推荐于2017-10-14
Dim a As Integer
Randomize()
a = CInt(Rnd * 9)
Msgbox a
Randomize()
a = CInt(Rnd * 9)
Msgbox a
Randomize() 是随机初始化,防止每次生成的随机数一样。
Rnd 是生成一个 0~1 的随机数。
CInt() 是将小数变为整数。
本回答被提问者采纳第2个回答 2015-12-05
Sub s()
text1.Text = Int(Rnd() * 10)
End Sub
text1.Text = Int(Rnd() * 10)
End Sub
第3个回答 2013-08-10
[这里是dim什么的。。。]
randomize
a:=round(ran(10))
print a
randomize
a:=round(ran(10))
print a
第4个回答 2013-08-10
Dim a As Long
a = Rnd * 9
a = Rnd * 9