将整个单词转换为Ascii

Question

Public Class Form1

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim a As Integer
    Dim s As String
    Dim b As String
    Dim length As Integer

    length = Len(TextBox1.Text)

    For x = 1 To length
        s = TextBox1.Text
        b = s.Remove(0, 1)
        a = Asc(b)
        TextBox2.Text = a
    Next
  End Sub
End Class

这是我的代码。我试图做一个循环，所以整个单词被翻译成ASCII，但它仍然无法正常工作，我试图得到它，所以用户输入一个单词到文本框（textbox1），然后如果他们按下按钮2，整个textbox1将转换为ASCII，并显示在textbox2中。

我已经在线查看，但我找不到任何东西，我当前的问题是，当我按下'转换'时，只有单词的第一个字母被转换，这不是我想要的。这是在2008年的vb形式中完成的。但我也尝试在控制台中使用类似的代码。

所有帮助都很棒。

Answer 1

尝试使用循环：

Imports System
Imports Microsoft.VisualBasic
Imports System.Text

Dim input As String = TextBox1.Text
Dim output as new StringBuilder
for each item as string in input.ToCharArray()
    output.Append(Asc(item).ToString() + " ")
next

Console.WriteLine(output)

在这种情况下：

输入：Sunil 产量：83 117 110 105 108

为了清晰起见，我添加了该空间，您可以将其更改为任何内容或将其删除。