Question

关于VB中数字加减的问题

Dim MyValue, Response
Randomize '初始化随机数生成器。
Do Until Response = vbNo
MyValue = Int((2 * Rnd) + 1) ' 产生 1 到 2 之间的随机数。
If MyValue = 1 Then KeyPress "Num 1", 1
If MyValue = 2 Then KeyPress "Num 2", 1
Loop
上面这个程序是在1和2中随即产生一个数，并按出这个数

如果我想变一下，把这句去掉 “If MyValue = 1 Then KeyPress "Num 1", 1
If MyValue = 2 Then KeyPress "Num 2", 1”
加一个n, 若 MyValue=1 ,则n=n-1 并按出n.若 MyValue=2, 则n=n+1，并按出n 按出n后 再加一个逗号 如此循环 这个该怎么写 谢谢了

Answer 1

Dim MyValue, Response, n As Integer
n = 0 '初始化n值
Randomize()
Do Until Response = vbNo
MyValue = Int((2 * Rnd()) + 1) ' 产生 1 到 2 之间的随机数。
If MyValue = 1 Then
n = n - 1
KeyPress("Num " + CStr(n)+“，”, 1)
End If
If MyValue = 2 Then
n = n + 1
KeyPress("Num " + CStr(n)+“，”, 1)
End If
Loop

Answer 2

不好意思，您这是要干什么？n是什么东西？没看明白

Answer 3

没看明白