Question

VB里产生随机数

Randomize
i = Int((12 * Rnd) + 1)
Select Caes x
Case 1, 2, 3, 4, 5
..........
Case 6, 7
..............
End Select
kapai(ka).mingcheng = i
kashu = kashu + 1

在游戏里写了这样的代码,就是随机数产生后产生相应的动作,并把那个 i 的值给一个变量.然后这个随机数的产生及其内部的动作是每按一下鼠标就做一次的.
然后测试的时候发现,每次重复这个事件的时候,虽然做的动作的确是随随机数而改变的,但是那个最后一句话,每个变量的名称都是一个数.
再次测试的时候,那个名称变了,但是每个变量的名称都还是同一个数,测试几次都是这样.
有人帮忙看看吗?怎么样让那个名称的变量也是随随机数改变而改变的!!!
俄,那个 select 里面的是 i ,不是 x .
而且最后一行是 ka=ka+1

Answer 1

首先告诉我们kaaipai、ka、mingcheng等是什么东西。
我猜测如果是变量可能是因为变量的局部性，应该设置为静态变量或模块级变量。
方法：把定义放在声明部分（就是代码的最前面的第二排）。
目前只能这样。

Answer 2

不明白。。大概可以用用参数
sub Randomize(byval x)
x = Int((12 * Rnd) + 1)
Select Caes x
Case 1, 2, 3, 4, 5
..........
Case 6, 7
..............
End Select
kapai(ka).mingcheng = i
kashu = kashu + 1

Answer 3

前面加一个static ka as integer