字型转换问题？？

Question

Private Sub Command1_Click()Dim a1, d As Integera1 = 2
d = 1Text1.Text = "a" & dEnd Sub怎样能使Text1.Text显示的a1变成是2.

Answer 1

LZ的问题总是这么奇怪。
你是不是要这样：
Private Sub Command1_Click()
    Dim a1, d As Integer
    a1 = 2
    d = 1
    Text1.Text = a1 & d
End Sub

Answer 2

回楼上，不是你那样，
我那里有 a1=2
但 Text1.Text = "a" & d
的 "a" & d 是显示 a1
而不是显示 2我要的是Text1.Text显示出 2

Answer 3

Private Sub Command1_Click()
    Dim a1, d As Integer
    a1 = 2
    d = 1
    Text1.Text = "a" & a1
End Sub

Answer 4

我被你搞晕了，你是要显示单独a1的值嘛？Private Sub Command1_Click()
    Dim a1, d As Integer
    a1 = 2
    d = 1
    Text1.Text = a1
End Sub

Answer 5

Text1.Text = int（"a" & d）
变
Text1.Text = int（a1）
变
Text1.Text = 2

Answer 6

a1
a2
a3
a4
a5Text1.Text = "a" & d 的d为变量。

Answer 7

就是我想将a1分开成a和1
1为变量Text1.Text = int（a1）=2

Answer 8

有下面的多个字符a1
a2
a3
a4
a5Text1.Text = "a" & d 的d为变量。

Answer 9

用Replace 函数啊！应这个函数应该会符合你的逻辑的啊！但是具体怎么用你自己研究一下啊，全部告诉你了，你会记不住的啊！

Answer 10

我大概知道你要干嘛了，你直接用数组啊。
Private Sub Command1_Click()
    Dim n%(5)
    For i = 0 To 5
        n(i) = i
    Next i
    Text1.Text = n(2)
End Sub

Answer 11

还提示一点就是怎么把"a" & d替换成a1 怎么换你去看看replace函数就知道了！

Answer 12

你也看不清LZ要干嘛吧，LZ想拆分变量名，你能拆分变量名嘛？

Answer 13

数组或者scriptcontrol应该可以实现.