UC知道如何得到变量组名
来源：百度知道 编辑：UC知道 时间：2024/07/04 13:42:19
如何赋值
MessageBox 告诉我你有多少组！
msg="请给组数量:"
a=Inputbox(msg,"名称")
Delay 1000
x=1
MessageBox 组的变量！
For a
msg="第"&n&"组的变量"
s(n)=Inputbox(msg,"名称")
n=n+1
EndFor
我这s(n)是组名(s1,s2,s3.......sn),需要后期赋值，但一直出是s(n)错误，
我要如何得到变量组名，成功赋值，请高手帮忙
谢谢各位的解答，因本人不懂编程，只是用按键精灵试写一个脚本，所以各位精典的语法在按键精灵这用不上，现在我找了一些语法，解决了变量组的问题，但赋值只能是一个，望大侠们能解疑.
VBS dim n(12),x
MessageBox 告诉我你有多少组！
msg="请给组数量:"
a=Inputbox(msg,"名称")
Delay 1000
x=1
MessageBox 组的变量！
For a
msg="第"&x&"组的变量"
k=Inputbox(msg,"名称")
VBS n(x)=k
VBSCall MessageBox("n("&x&")="&n(x))
x=x+1
EndFor
MessageBox 告诉我你有多少组！
msg="请给组数量:"
a=Inputbox(msg,"名称")
Delay 1000
x=1
MessageBox 组的变量！
For a
msg="第"&n&"组的变量"
s(n)=Inputbox(msg,"名称")
n=n+1
EndFor
我这s(n)是组名(s1,s2,s3.......sn),需要后期赋值，但一直出是s(n)错误，
我要如何得到变量组名，成功赋值，请高手帮忙
谢谢各位的解答，因本人不懂编程，只是用按键精灵试写一个脚本，所以各位精典的语法在按键精灵这用不上，现在我找了一些语法，解决了变量组的问题，但赋值只能是一个，望大侠们能解疑.
VBS dim n(12),x
MessageBox 告诉我你有多少组！
msg="请给组数量:"
a=Inputbox(msg,"名称")
Delay 1000
x=1
MessageBox 组的变量！
For a
msg="第"&x&"组的变量"
k=Inputbox(msg,"名称")
VBS n(x)=k
VBSCall MessageBox("n("&x&")="&n(x))
x=x+1
EndFor
首先说一下，你的vb语法好像有点问题，我修改了一下，下面的能够顺利进行，你不妨试试：
Dim s() As String
Dim n As Integer
'MessageBox 告诉我你有多少组! 这句好像不是VB语法吧
msg = "请给组数量:"
a = InputBox(msg, "名称")
'Delay 1000 'vb中也没有这样的语法，除非你用的不是VB
'x = 1 '此变量确实没有什么用
'MessageBox 组的变量! '语法不对
For n = 0 To CInt(a)
ReDim Preserve s(n) '删除此句会出错，由于前面定义的是一个动态
'数组，所以必须加上这句动态变更
msg = "第" & n & "组的变量"
s(n) = InputBox(msg, "名称") '进行赋值
Print "s(" & CStr(n) & ")=" & s(n) '这句用于打印结果，方便观察
'n = n + 1 使用for循环的可以不用这句
Next n
上面的语句我已经试验过了，可以正常运行。
Dim s() As Long, a As Integer, n As Integer
Private Sub Command1_Click()
a = InputBox("变量数目")
For n = 1 To Val(a)
Msg = "第&n&组的变量:"
s(n) = Str(InputBox("输入变量"))
Next n
Pri