超级简单问题

Question

我想在窗体放两个TEXT，一个BUTTON，点击BUTTON，TEXT2中显示TEXT1的ASCII值，例如，TEXT1为A,点击BUTTON后，TEXT2的值为65，如何实现

Answer 1

sub command1_click()
text2.text=ascw(text1.text)
end sub

Answer 2

private sub button_Click()
text2.text=asc(text1.text)
end sub

Answer 3

Private Sub Command1_Click()
Dim I As Integer
    For I = 1 To Len(Text1.Text)
        If I = 1 Then Text2.Text = ""
        Text2.Text = Text2.Text & " " & Asc(Mid(Text1.Text, I, 1))
    Next I
    Text2.Text = Mid(Text2.Text, 2)
End Sub

Answer 4

哈哈 又是一个新手楼主           用for循环               一个一个读取   然后获取其ascii值 然显示(&)到第二个文本框中