//清空随机种子数 Rem start Randomize //得到 1~99999999 之间的一个随机数 x = Int((99999999 * Rnd) + 1) //判断这个数字是否8位数字,如果不是8位数字,就重新生成 If x<10000000 Goto start EndIf SayString x