题目

VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0,1,2..9的元素个数（使用数组

提问时间：2020-11-14

答案

 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