【求助】随机的调用变量---想的我头痛了

来源:百度知道 编辑:UC知道 时间:2024/06/04 13:37:39
【求助】随机变量调用---想的我头痛了
-------代码的一部分-------------
上面一直到 Q1=357329481
q72 = 860385946
q73 = 860328479
q74 = 860379870
q75 = 860395085
q76 = 860320697
Randomize
a = Int((76 - 1 + 1) * Rnd + 1)
b = "q" & a
Text1 = Text1.Text & Chr(13) & Chr(10) & b
Text1.SelStart = Len(Text1.Text)

------------------------------------

要求 在文本显示的是 变量的号码

现在确只能显示变量 可能是数据没转换好吧。。。

这样是不行的哦,只能用数组才可以读出.

dim q(76)
q(1)=357329481

q(72) = 860385946
q(73) = 860328479
q(74) = 860379870
q(75) = 860395085
q(76) = 860320697
Randomize
a = Int(75 * Rnd + 1)
b = q(a)
Text1 = Text1.Text & Chr(13) & Chr(10) & b
Text1.SelStart = Len(Text1.Text)