求助 vb Rnd 问题

Question

第一个Rnd与第二个Fnd，第二个Rnd与第三个Rnd之间的 奇偶怎样控制呢

Answer 1

自己分别调用三次不同的Rnd就行了.A=int(Rnd(1)*N) '自然数,不分奇偶B=int(Rnd(1)*N)*2 '偶数C=int(Rnd(1)*N)*2+1 '奇数.你分别调用.要自然数用第一个,要偶数用第二个,要奇数用第三个.

Answer 2

Private Sub Command1_Click()
X1 = Int((100 * Rnd) + 1)
If X1 Mod 2 = 0 Then
MsgBox "X1是偶数!"
Else
MsgBox "X1是奇数!"
End If
X2 = Int((100 * Rnd) + 1)
If X1 Mod 2 = 0 Then
MsgBox "X1是偶数!"
Else
MsgBox "X1是奇数!"
End If
x3 = Int((100 * Rnd) + 1)
If X1 Mod 2 = 0 Then
MsgBox "X1是偶数!"
Else
MsgBox "X1是奇数!"
End If
End Sub
要偶数将奇数丢了,要奇数将偶数丢了

Answer 3

我是说间隔第一个Rnd与第二个Rnd 之间的偶数间隔

Answer 4

就是指第一个Rnd与第二个Rnd 之间的偶数间隔

Answer 5

我们只是不清楚你的意思,如果是要奇偶,得奇加1为偶,得偶加1为奇,
如果要控制两个Rnd之间为偶,只要判断两个Rnd的奇偶就可以了,偶偶,奇奇为偶,奇偶为奇,要变为偶只要将其中一个加1 就行了