Question

VB关于字符串连接的问题

例如：
Text2.Text = Asc(Text1.Text)
比如我输入TEXT1内容为11

但是现实只有一位49应该现实2个4949的
我用FOR，怎么这样显示
----------------------------------------
Private Sub Command1_Click()
Dim Name, AA As String
Dim L, i As Integer
Name = CStr(Text1.Text)
L = AscW(Name)
For i = 1 To L
AA = AA & AscW(Name)
Next i
Text2.Text = AA

End Sub

---------------------------------
结果输出很多个494949494949494949
我先获取当前TEXT位数，用FOR循环次数。然后用&连接上，怎么最后又问题啊！

Answer 1

Option Explicit

Private Sub Command1_Click()
    '取出Text1的内容。如果内容空，退出
    Dim s As String
    s = Trim(Text1.Text)
    If s = "" Then Exit Sub
    
    '内容不空，则开始处理
    Dim i As Integer, c As String
    Text2.Text = ""
    ' 循环，Len(s)是Text1输入的字符数量
    For i = 1 To Len(s)
        ' 用Mid函数，逐个取出字符
        c = Mid(s, i, 1)
        ' 转换成ASC，在Text2中显示
        Text2.Text = Text2.Text & Asc(c)
    Next
End Sub

Private Sub Form_Load()
    '清空两个TextBox
    Text1.Text = ""
    Text2.Text = ""
End Sub