赞 共回答了18个问题采纳率：94.4% 举报
dim a(99) as integer
dim i as integer
dim sums(9) as integer
dim index as integer
Randomize
for i=0 to 99
a(i)=int(100*rnd)
index=a(i) mod 10
sums(index)=sums(index) +1
next i
for i =0 to 9
print i "的个数是：" sums(i)
next
dim i as integer
dim sums(9) as integer
dim index as integer
Randomize
for i=0 to 99
a(i)=int(100*rnd)
index=a(i) mod 10
sums(index)=sums(index) +1
next i
for i =0 to 9
print i "的个数是：" sums(i)
next
1年前
9
可能相似的问题
-
VB程序设计-利用随机函数产生80个10～99之间的随机整数
1年前2个回答