vb6.0用do while循环产生10个0-100之间的随机整数求它们的和并输出！！！！

Question

如题所述

Answer 1

  dim i as Integer,x as Integer
  dim s as Long
  s=0
  i=1
  randomize() 
  do while i<11
   x=101*rnd()
   s=s+x
   i=i+1
   console.writeline(x)
  loop
  console.writeline(s)