VB问题！！如何在一群数里排除一个数值如 1 2 3 这3个数我要排除2 在这3个数里循环抽签看里永远抽不到2

显示全部楼层 · 2012-1-27 23:13:04

Dim a As IntegerPrivate Sub Command1_Click()Timer1.Enabled = Not Timer1.EnabledTimer1.Interval = 500If Timer1.Enabled = False And a = 2 Then Cls Print a + 1End IfEnd SubPrivate Sub Timer1_Timer()a = a + 1If a = 4 Thena = 1End IfClsPrint aEnd Sub大约就是这个意思了，人慢慢捉摸吧...

千问 · 2012-1-27 23:13:04

先对数组进行排序，之后再用折半查找法速度相当的快就能找到...

千问 · 2012-1-27 23:13:04

Private Sub Command1_Click()Dim mArr(1 To 5), i%For i = 1 To 5
mArr(i) = iNexti = Int(Rnd * 5) + 1Do While i = 2
i = Int(Rnd * 5) + 1LoopPrint mArr(i)End Sub...

千问 · 2012-1-27 23:13:04

抽到2就再抽一次...

VB问题！！ 如何在一群数里排除一个数值 如 1 2 3 这3个数 我要排除2 在这3个数里循环抽签看里永远抽不到2

VB问题！！如何在一群数里排除一个数值如 1 2 3 这3个数我要排除2 在这3个数里循环抽签看里永远抽不到2