在VBA编程中怎样选出6个幸运号？
方法/步骤
1、打开excle软件，进入VBA的编程界面，新建一个子过程。
2、定义两个常量。一个最大值，一个最小值，等一下我们要选出在1-60之间的6个幸运号码。ConstminNum=1ConstmaxNum=60
3、然后定义变量，t,i,用来循环的变量，lucky是用来存储幸运号码的数组。Di葡矩酉缸mtAsIntegerDimiAsIntegerDimlucky(6)AsString
4、然后进行第一层循环。
5、进行第二层循环，检查是否有重复的数字。
6、将结果打印出来。完整代码如下：Subfind_lucky()Const葡矩酉缸minNum=1ConstmaxNu罪焐芡拂m=60DimtAsIntegerDimiAsIntegerDimlucky(6)AsStringFort=1To6Randomizelucky(t)=Int((maxNum-minNum+1)*Rnd)+minNumFori=1To(t-1)Iflucky(t)=lucky(i)Thenlucky(t)=Int((maxNum-minNum+1)*Rnd)+minNumi=0EndIfNextiMsgBox"第"&t&"个luckynumberis"&lucky(t)NexttEndSub
7、最后运行程序即可。
