Dim MyValue, ResponseRandomize '初始化随机数生成器。Do Until Response = vbNo MyValue = Int((999999 * Rnd) + 1) ' 产生 1 到 999999 之间的随机数。 MsgBox "随机数:"&MyValueLoop
随机数=int((9999-1)*rnd+1)
