Question

vb.net 循环语句中循环一次输出一个值

这是我的代码
Dim A1 As String
Dim B As String
Dim m As String
Dim z As String
A1 = TextBox19.Text
For i = 1 To Len(A1) Step 2
B = Mid(A1, i, 2)
TextBox2.Text = Chr(Val("&H" & B))
Next i

Answer 1

把 TextBox2.Text = Chr(Val("&H" & B))
改为
TextBox2.Text =TextBox2.Text & Chr(Val("&H" & B)) & VbCrlf
试试？而且 TextBox2 的MultyLine属性要事先改为True

或者是：
TextBox2.Text =TextBox2.Text & Chr(Val("&H" & B)) & “ ”

追问

并不可以啊，我的想法是 比如 输入 ASC码 313233 然后会输出 1 2 3 ，但是按照你提供的方法还是只能输出1。

追答

那是你没有 TextBox2 的MultyLine属性要事先改为True
而且没有试
TextBox2.Text =TextBox2.Text & Chr(Val("&H" & B)) & “ ”啊

照你的意思，只要用第二种TextBox2.Text =TextBox2.Text & Chr(Val("&H" & B)) & “ ”就可以了。