vb菜鸟编程问题：文本1中输入A文本2出现1

来源：百度知道编辑：UC知道时间：2024/06/14 20:06:10

文本1 中输入 A 文本2 中就出现 1
文本1 中输入 B 文本2 中出现 2

依次类推到 Z 出现 26

百度HI在线等~
麻烦您有没有QQ 联系我：327763057 我给分！

private sub text1_keypress(byref keyascii as integer)
text2.text = text2.text & (keyascii - 64)
end sub

A的ASCII码是多少？B的？
他们的ASCII码是连续的，只要减去差值就可以了

下载 VB 6 鼠标 Wheel.exe 文件，包括加载 DLL 和代码用于创建加载项 DLL。 1.下载 VB 6 鼠标 Wheel.exe 文件，应运行。可用于从 Microsoft 下载中心下载下列文件：

Download the VB6MouseWheel.EXE package now. (http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe)

private sub text1_keypress(byref keyascii as integer)
text2.text = Asc("text1.text")- 64
end sub

Private Sub Text1_Change()
Text2.Text = ChrW(Asc(Text1.Text) - 16)
End Sub