代ç å注éå¦ä¸ï¼
Private Sub Command1_Click()'ç¹å»å½ä»¤æé®æ§è¡ç¨åº
Randomize'åå§åéæºæ°åçå¨
x = Round((Rnd() * 9), 0)'å
å©ç¨éæºæ°å¾å°0-1åºé´çå°æ°ï¼ç¶åä¹ä»¥9ï¼å¨å¯¹è¿ä¸ªæ°è¿è¡åèäºå
¥åï¼èµå¼ç»x
Print x'çªä½æå°x
End Sub
温馨提示:答案为网友推荐,仅供参考