中科新闻网第一纨绔妃天才召唤师:vb 6.0 变数问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/01 17:50:20
Dim currentquestion As Integer
currentquestion = 1
Dim question1 As String
question1 = "yoyo"
go.Caption = ("question" & currentquestion)
我想将 go 的 caption 变成 yoyo 而不是 question1 ，有甚麼辨法？
一到五楼的去死 =.=
六楼：抱歉，问的不太好。
我本来就是用阵列的，看见你这个以后突然想起能用二维阵列。
以致又引申出另一问题：
一维阵列可以这样用 array
Dim question(4) As Variant
question = Array("none", "yo", "yoyo", "yoyoyo", "yoyoyoyo")
那二维阵列怎麼弄？
Dim question(0,4) As Variant
question(0) = Array("none", "yo", "yoyo", "yoyoyo", "yoyoyoyo")
这样会说维数不正确
该不会只能这样弄吧？
question(0, 0) = "none"
question(0, 1) = "yo"
question(0, 2) = "yoyo"
question(0, 3) = "yoyoyo"
question(0, 4) = "yoyoyoyo"
-----------------------------------------------
我是想做个类似百万富翁的测验考试东西。
第一题就是 question(0)
第二题就是 question(1)......
第 n题就是 question(n-1).......
裏面的资料就用二维阵列。
谢谢。
currentquestion = 1
Dim question1 As String
question1 = "yoyo"
go.Caption = ("question" & currentquestion)
我想将 go 的 caption 变成 yoyo 而不是 question1 ，有甚麼辨法？
一到五楼的去死 =.=
六楼：抱歉，问的不太好。
我本来就是用阵列的，看见你这个以后突然想起能用二维阵列。
以致又引申出另一问题：
一维阵列可以这样用 array
Dim question(4) As Variant
question = Array("none", "yo", "yoyo", "yoyoyo", "yoyoyoyo")
那二维阵列怎麼弄？
Dim question(0,4) As Variant
question(0) = Array("none", "yo", "yoyo", "yoyoyo", "yoyoyoyo")
这样会说维数不正确
该不会只能这样弄吧？
question(0, 0) = "none"
question(0, 1) = "yo"
question(0, 2) = "yoyo"
question(0, 3) = "yoyoyo"
question(0, 4) = "yoyoyoyo"
-----------------------------------------------
我是想做个类似百万富翁的测验考试东西。
第一题就是 question(0)
第二题就是 question(1)......
第 n题就是 question(n-1).......
裏面的资料就用二维阵列。
谢谢。
使用数组吧，这样可以用它的索引。
如：
Dim question(1) As String
question(1) = "yoyo"
go.Caption = question(currentquestion)
------------------
看了楼主问题补充，不知道楼主这样做法用意何在呢，为什么要用到二维？
go.caption=question1
go.caption = question1
go.caption = question1
加了双引号以后， 里面的内容就是字符串了,而不加的话,就表示变量名
go.Caption = question1 & currentquestion
go.caption = question1