数组重命名
已知一个 string类型的s如何创建数组 名为s
或者实现当i=1时 访问数组s1
i=2时 访问数组s2
--------------------编程问答-------------------- UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP --------------------编程问答-------------------- 没读懂题目 --------------------编程问答-------------------- 二维数组 s(,)
用 s(n, i)去访问。 --------------------编程问答-------------------- VB里同一过程序或函数里根本不允许这样做
也不知道楼主这样做的目的是什么？有意义吗？ --------------------编程问答-------------------- 看懂以下代码，也许就可以实现你想要的了。
--------------------编程问答-------------------- 同一过程或函数中局部变量在VB 6.0 中是不允许同名的,当i=1时 访问数组s1
Private Sub Command1_Click()
Dim s1 As String
Dim s2(1 To 2) As String
Dim s(1 To 2) As Variant
s1 = "xxxxxxxxxxxxx"
s2(1) = "yyyyyyyyyyyyy"
s2(2) = "zzzzzzzzzzzzz"
s(1) = s1
s(2) = s2
Print s(1)
Print s(2)(1)
Print s(2)(2)
End Sub
i=2时 访问数组s2却是可以的.
Private Sub Command1_Click()
For i = 0 To 2
x i
Next
End Sub
Private Sub x(ByVal i As Integer)
Dim s(2)
s(0) = Array("ryy", "ee", "tt", "qs", "yo")
s(1) = Array("aa", "eo", " 23", "q8", "46")
s(2) = Array("hh", "48", "25", "qer", "yi")
MsgBox s(i)(2)
End Sub
--------------------编程问答-------------------- 用IIF()去做
如:
DIM A,B AS INT
A=IIF(B>0,1,0)
补充：VB , 基础类
