求按键精灵随机生成一个4位数字 输入到文本里 之后再重新输入一遍这个数字的源代码
展开全部
Randomize
myArray = Split("1 2 3 4 5 6 7 8 9")
n = UBound(myArray)
Number = myArray(Int((n+1)*Rnd)) & myArray(Int((n+1)*Rnd)) & myArray(Int((n+1)*Rnd))& myArray(Int((n+1)*Rnd))
Call Plugin.File.WriteFileEx("C:\测试.txt", Number)
SayString Number
myArray = Split("1 2 3 4 5 6 7 8 9")
n = UBound(myArray)
Number = myArray(Int((n+1)*Rnd)) & myArray(Int((n+1)*Rnd)) & myArray(Int((n+1)*Rnd))& myArray(Int((n+1)*Rnd))
Call Plugin.File.WriteFileEx("C:\测试.txt", Number)
SayString Number
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
