2个回答
展开全部
//连着输出?什么意思
Randomize
//初始随机函数
myArray = Split("a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z")
n = UBound(myArray)
//16个随机数并合=NU
Nu = myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))
MessageBox NU
Randomize
//初始随机函数
myArray = Split("a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z")
n = UBound(myArray)
//16个随机数并合=NU
Nu = myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))&myArray(Int((n+1)*Rnd))
MessageBox NU
追问
是这样的,但是我不要弹窗,而直接输出到文档呢?
追答
最后一句改为SayString nu
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询