vb随即产成21位的随机数

先用个
randomize(time) '设置随机数种子
for i=1 to 21 '设置个for循环
str=str & cint(rnd*10) '获取一位随机数，并把它连接到str中
next i

这里得到的str就是一个21位的随机数了
最好不要用cint(rnd*10^21)的方法直接生成一个21位的随机数，因为这样如果第一位是0的时候产生的随机数就只有20位了

一位一位的产生
最后合并成一个字符串
再转换成数值
randomize(time) '设置随机数种子
for i = 1 ti 21
str=str & cint(rnd*10)
next i
这样可以得到一个长度为21的数字字符串
不过我不清楚你要21位随机数做什么