VB中如何将输入文本框中的内容全部变为ASCII值

是要将输入文本框的内容全部转换哦要是编写程序哦...
2026年09月19日 05:31
有3个网友回答
网友(1):

Private Sub Command1_Click()
Dim a As String
Dim i As Integer
a = Text1.Text
For i = 0 To Len(a) - 1

  Print AscW(Mid(a, i + 1, 1))

Next i

End Sub

网友(2):

用mid函数逐一提取,然后用asc函数转换

网友(3):

网上应该有直接调用的api