Question

vb中如何产生随即函数问题

我先用随即方法产生一些数值 数值范围是0-99 其中随即产生的数值不能是20-30和80-90 有谁知道方法

Answer 1

先随机产生，然后判断呗
或者分开产生，一段是0~20，一段是31~80，一段是91~99

Answer 2

Private Sub Command1_Click()
Dim i As Integer

Randomize

Do
i = Int(Rnd * 100)
Loop While ((i >= 20 And i <= 30) Or (i >= 80 And i <= 90))

Print i
End Sub