vb数组的赋值

显示全部楼层 · 2010-11-26 22:39:26

例如：
dim B() As Integer
dim a As Integer
A=456123789
如何把a中每一个数分别装进B中
就是让B(0)=4，B(1)=5，B(2)=6，B(3)=1，B(4)=2，B(5)=3…………

千问 · 2010-11-26 22:39:26

Private Sub Form_Load()Dim a(10) As Integer, n As Integer, i As Integern = InputBox("请输入n的值(n>=2且n<=10)")For i = 1 To na(i) = InputBox("请按顺序输入数组中各元素的值")Picture1.Print "a(" & i & ")="; a(i)Next iEnd Sub1)你代码稍作修改可以输入数组中各各元素的值.2)当然也可在窗体初始化时给数组赋值:Private Sub Form_Load()a(0) = 1a(0) = 11a(0) = 27a(0)

千问 · 2010-11-26 22:39:26

s = CStr(a)ReDim B(Len(s) - 1)For i = 1 To Len(s)B(i - 1) = Val(Mid(s, i, 1))Next注意：a是Integer，不可能那么大的