后缀变化的变量的定义
我想在VB里定义后缀变化的变量，如a1,a2,...an,n的值是不定的，要怎么实现（不是定义数组）？期待各位大神的回答
[解决办法]
定义后缀变化的变量？就是“定义变量”。
在 VB 里定义变量，只有手工在代码里定义，当然有些也可以不定义。
没有什么程序运行后定义变量的概念。
因为定义变量这个过程，说白了就是编译时在编译代码中预留符合变量类型的空间而已，
在程序使用时，只是作为内存地址在程序里被使用的内存数据。
这种编译时预留内存空间的动作就是定义变量的过程。既然这个预留空间的动作是在编译时
才会产生，那么就不可能在运行时做，运行时只能做的是另辟内存空间或修改内存数据，
这种操作不叫定义，而是操作内存。而且变量名称其实只是在写代码的时候才有的概念，
在程序运行时，是没有变量名称的概念，所以程序运行后，无论你什么样的变量名称，即使是
中文的，也只会被程序当一个个内存地址来用，程序是不会知道编译前他是什么名称的。
至于像 javascript 那种用字符串找对象的方法，和变量的概念不一样，因为那是找对象属性值，
而不是找变量名。所以你应该搞清楚的是“什么是变量？”这个问题。
[解决办法]
举个例子
Dim sc Set sc = CreateObject("ScriptControl") sc.language = "VBScript" Dim Var$, VCount$, S1$, Sctmp$ Var = "a" '变量前缀名称 VCount = InputBox("请输入变量的数量", "输入") '变量数量 Sctmp = "sub sum()" & vbCrLf '脚本代码---过程开始 Dim S1$ For i = 1 To VCount Sctmp = Sctmp$ & "a" & i & "=" & InputBox("请输入" & Var & i & "的值", "输入") & vbCrLf S1 = S1 & Var & i & "+" Next S1 = Left(S1, Len(S1) - 1) Sctmp = Sctmp & "Msgbox (""" & S1 & """ & "" = "" & " & S1 & ") " & vbCrLf Sctmp = Sctmp & "End Sub" '代码---过程结束 MsgBox "VBCode" & vbCrLf & vbCrLf & Sctmp '显示全部代码 sc.AddCode Sctmp '加入代码 sc.run "Sum" '运行过程