如何转换输入的字符???

sliverfish 2003-09-12 04:13:03
在VB的TEXTBOX中输入的是字符,比如“E”,会被转换成ASCII码保存在变量中。

我想,如何能使输入的字符转换成原来的表示的“E”,即14?
如何把TEXTBOX中输入的EE,转换成“EEh”?

小弟初学VB,请各位高手指点!
...全文
21 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
sliverfish 2003-09-15
  • 打赏
  • 举报
回复
to tanyx:

你的方法只能转一个字符?

如我输入“EE”,
返回值是“14”
没办法返回“1414”。
minghui000 2003-09-13
  • 打赏
  • 举报
回复
UP
tanyx 2003-09-13
  • 打赏
  • 举报
回复
d=asc(text1.text)-48
if d>10 then d=d-7
sliverfish 2003-09-13
  • 打赏
  • 举报
回复
嗯,可能,我试试看。谢谢!
Hattiss 2003-09-12
  • 打赏
  • 举报
回复
不太明白你的意思,是否是
Text1.text = "AA"
CByte("&H" + Text1.text)

CByte 能将一个表达式转换成字节型
sliverfish 2003-09-12
  • 打赏
  • 举报
回复
谢谢火花!

但这样转换出来是它的ASC码。
如何把输入的“A”变成0Ah,也就是“10”。

如果按上面的转换成ASC码,对于1、2……,9和A,B,……F的转换公式是不一样的。
还要进行判断,太麻烦了。

有没有更好的方法?

如,输入:AA 则存入内存的是: 65 65
我想输入:AA 使之存入内存的是:AA (只占一个字节)
sparkcn 2003-09-12
  • 打赏
  • 举报
回复
可以用asc,chr对字符进行ascii和字符转换
1,Dim MyNumber
MyNumber = Asc("A") ' Returns 65.
MyNumber = Asc("a") ' Returns 97.
MyNumber = Asc("Apple") ' Returns 65.
2。
Dim MyChar
MyChar = Chr(65) ' Returns A.
MyChar = Chr(97) ' Returns a.
MyChar = Chr(62) ' Returns >.
MyChar = Chr(37) ' Returns %.
sliverfish 2003-09-12
  • 打赏
  • 举报
回复
能不能说清楚些?

首先如何把输入的字符转换成它所表示的BCD码?
betagain 2003-09-12
  • 打赏
  • 举报
回复
拆分

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧