å¦ä¸ä¸ªæé®æ¥æ¾æä¸ä¸ªæ°å¨ç¬¬å 个åºç°ï¼ç»ææ¾ç¤ºå¨text2éï¼ï¼ï¼ï¼
ââè¿å¥é¾ä»¥ç解åï¼âæä¸ä¸ªæ°âæ¯æéæºçæçè¿æ¯æå®ï¼
âå¨ç¬¬å 个åºç°âæ¯æå¨ä»ä¹ä¸ç¬¬å 个åºç°é£ï¼ï¼ç»å®çæ°ç»ä¹ï¼
Private Sub Command1_Click()
Randomize 'éæºç§ååå§å
Text1.Text = Int(Rnd() * 1000) 'çæ0-999ä¹é´çéæºæ´æ°
End Sub
追é®å¤§ç¥ è¿å¨åï¼æç»ä½ 说æä¸ä¸
ç¹â产çæ°ç»âï¼éæºåºç°10个1ââ100çæ°å¨ä¸é¢çææ¬æ¡æ¾ç¤º
ç¹âæ¥æ¾âï¼è·³åºæ示æ¡èªå·±è¾å
¥ä¸ä¸ªæ°æ¥æ¾æ¯å¦æ¯éæºäº§ççæ°