VB编程：规定每10万张为一个开奖组

Question

如题所述

Answer 1

你的意思是有四个数组，每个数组有十万个，要求用户输入数组名，然后随机产生号码输出！那么就很简单了，dim
s
as
string
s=inputbox("标题","输入数组号：")
randomize

a=int(10*rnd())
b=int(10*rnd())
c=int(10*rnd())
d=int(10*rnd())
e=int(10*rnd())
print
"中奖号码为："
&
s
&
a
&
b
&
c
&
d
&
e