vb如果转化显示

来源：百度知道 编辑：UC知道 时间：2024/06/17 13:50:32
一个整数型变量，随机减少数值的
举例
1000 900 850 800 400 100 0
到为止
我想要用另外一个变量来显示它，变成每次-1的（类似倒数计时，只是速度按原变量来），按原变量每次减的数值来控制新变量减少的速度
应该怎么写呢？
希望能给出可用的代码
1L的测试无效，直接显示0........
另外a也不是固定为1000.
a是由另外一个变量赋予的
我上面的只是举了一个例子

Dim a As Long, b As Long
a = 1000
Do Until a <= 0
Randomize
b = Int((a + 1) * Rnd)
a = a - b
DoEvents
Loop
MsgBox a
结果都是到0的啊！你在DOEVENTS前加list1.additem a就知道了！
a 本身就是变量，这只是一个说明！