Private Sub Command1_Click()
Randomize
Text1.text = Int(Rnd * 9000) + 1000
End Sub
***********张志晨提示：
Int(Rnd * 9000) 得到从0到8999之间的9000个一到四位数，
加上1000后，得到从1000到9999之间的9000个四位数
思路二：
Private Sub Command1_Click()
Randomize
Text1.text =9999- Int(Rnd * 9000)
End Sub
效果：
7057 9451 7771 7318 5764 4030 5943 8996
6091 7574 7749 7501 8641 4456 2343 5957
1436 2509 6574 9930 9913 5552 8694 7772
5507 6441 6202 6099 5386 3600 7788 9418
3682 7903 5036 5814 4391 9697 7605 4515
8842 7551 1187 2644 7094 4552 7356 8684
5541 1065 3967 5258 6593 9431 6175 8513
1965 4787 4950 5788 8262 8952 4124 5400
3185 3415 5628 4496 3714 8086 2746 3259
1716 2812 1333 2880 8399 9635 5421 2811
8462 5157 9092 9690 9214 8437 4266 8042
2792 3686 4142 2313 2027 9285 2088 3519
5420 1665 7240 5430 8427 1821 1304 6591
3542 2777 1126 3683 2342 7672 6427 7708
1521 9238 9260 1870 5969 6661 3594 5063
9152 8287 6756 9992 3189 7994 6208 7966
3013 2274 7715 2302 3355 9663 7848 7324
1462 8212 5577 4007 5382 9335 5372 3566
7153 4844 7064 6747 8914 8813 5420 3712
4031 1559 3747 7356 4908 1984 1588 2700
2153 3114 8462 9807 9937 9634 2577 1940
5161 4440 1258 7380 4385 3588 8009 1772
6014 2750 1744 5596 4506 5217 8405 9751
3701 2553 3946 2841 4001 4522 2779 5652
5805 2334 9115 6103 9591 3041 4038 9035
4403 1463 5768 8891 4138 9274 7259 6583
6548 8623 2186 1389 3271 9372 8584 9838
1043 3862 3138 7836 8299 2298 6814 2432
4934 9840 3242 4305 3789 8430 8102 6598
Randomize
Text1.text = Int(Rnd * 9000) + 1000
End Sub
***********张志晨提示：
Int(Rnd * 9000) 得到从0到8999之间的9000个一到四位数，
加上1000后，得到从1000到9999之间的9000个四位数
思路二：
Private Sub Command1_Click()
Randomize
Text1.text =9999- Int(Rnd * 9000)
End Sub
效果：
7057 9451 7771 7318 5764 4030 5943 8996
6091 7574 7749 7501 8641 4456 2343 5957
1436 2509 6574 9930 9913 5552 8694 7772
5507 6441 6202 6099 5386 3600 7788 9418
3682 7903 5036 5814 4391 9697 7605 4515
8842 7551 1187 2644 7094 4552 7356 8684
5541 1065 3967 5258 6593 9431 6175 8513
1965 4787 4950 5788 8262 8952 4124 5400
3185 3415 5628 4496 3714 8086 2746 3259
1716 2812 1333 2880 8399 9635 5421 2811
8462 5157 9092 9690 9214 8437 4266 8042
2792 3686 4142 2313 2027 9285 2088 3519
5420 1665 7240 5430 8427 1821 1304 6591
3542 2777 1126 3683 2342 7672 6427 7708
1521 9238 9260 1870 5969 6661 3594 5063
9152 8287 6756 9992 3189 7994 6208 7966
3013 2274 7715 2302 3355 9663 7848 7324
1462 8212 5577 4007 5382 9335 5372 3566
7153 4844 7064 6747 8914 8813 5420 3712
4031 1559 3747 7356 4908 1984 1588 2700
2153 3114 8462 9807 9937 9634 2577 1940
5161 4440 1258 7380 4385 3588 8009 1772
6014 2750 1744 5596 4506 5217 8405 9751
3701 2553 3946 2841 4001 4522 2779 5652
5805 2334 9115 6103 9591 3041 4038 9035
4403 1463 5768 8891 4138 9274 7259 6583
6548 8623 2186 1389 3271 9372 8584 9838
1043 3862 3138 7836 8299 2298 6814 2432
4934 9840 3242 4305 3789 8430 8102 6598
温馨提示：内容为网友见解，仅供参考
第1个回答 2011-08-26
Private Sub Command1_Click()
Randomize
Text1.text = Int(Rnd * 8999 ) + 1000
End Sub
Randomize
Text1.text = Int(Rnd * 8999 ) + 1000
End Sub
第2个回答 2011-08-26
Private Sub Command1_Click()
Randomize
Text1 = Int(Rnd * (9999 - 1000 + 1) + 1000)
End Sub
Randomize
Text1 = Int(Rnd * (9999 - 1000 + 1) + 1000)
End Sub
相似回答
