Rem start Randomize //得到 1~999 之间的一个随机数 x = Int((999 * Rnd) + 1) //判断这个数字是否8位数字，如果不是8位数字，就重新生成 If x<1000 Then Goto start End If SayString x