分开显示数值问题

Question

如题：
n=text1.text
a=3*n & 4*n & 0*n & 0*n & 2*n
b=1*n & 5*n & 3*n & 0*n & 0*n
lable1.caption=(a的第一个值+b的第一个值)也就是3*n+1*n这个值
lable2.caption=(a的第二个值+b的第二个值)
lable3.caption=(a的第三个值+b的第三个值)
lable4.caption=(a的第四个值+b的第四个值)
lable5.caption=(a的第五个值+b的第五个值)

Answer 1

lable1.caption=3*n+1*n
lable2.caption=4*n+5*n
lable3.caption=0*n+3*n
lable4.caption=0*n+0*n
lable5.caption=2*n+0*n

Answer 2

楼主不会是在问这样的问题吧？疑惑ing

Answer 3

这样简单的值我应该还会算吧。但算术N多的情况下，这样写是不是太过于麻烦和（无词）我的意思是有没有什么函数或代码可以来自动识别你所需要的是那个值，用分配到你相应取值的地方。我上面的代码只是个例子。
如果n=text100.text
a=*****
...........
a100=******
要是这样按上面的例子去写，会写到什么时候？？？？？？

Answer 4

需要该你的a,和b的格式
Private Sub Command1_Click()
Dim a As String, b As String
Dim n As Integer, c() As String, i As Integer
n = Val(Text1.Text)
a = 2 * n & ";" & 3 * n & ";" & 2 * n   ';为分号
b = 1 * n & ";" & 1 * n & ";" & 1 * n
c = Split(a, ";")
d = Split(b, ";")
For i = 0 To UBound(c)
 Print Val(c(i)) + Val(d(i))
Next i
End Sub