如何由字符'a'得到字符'b' 在C语言里,'a'+1就是'b'在VB里面,通过什么操作可以把'a' 转化为'b',让字符的ASCII码加1? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 是这样,不过vb不支持象c那样可以随意的类型转换,所以要麻烦点dim x as string x = cstr(asc("a") + 1)可能还有更简单的 x = cstr(asc("a") + 1) 是错的,看来得更麻烦点了,copymemory 实现的dim x as string x="a"copymemory byval strptr(x),asc(x) + 1,1msgbox x 晕,是chr,忘了,给想成 cstr 去了 字节数组也可以Sub test() Dim bt() As Byte bt = "a" bt(0) = bt(0) + 1 MsgBox btEnd Sub x="a"x=chr(asc(x)+1)刚才发错了,少了点东西 Private Sub Command1_Click() Dim str As String str = "a" str = Chr(Asc(str) + 1) MsgBox strEnd Sub 如何使曲线的上不规律的点变成连接后成弧形 vb 如何做打印 编辑excel文件后,如何关闭Excel.EXE进程,急需高手指点 让你的文本框“聪明”一点 VB运行前提示正在配置,拷了dfst.dll文件还是解决不了问题。 征集大家开发过程中用到的公共函数,子程序(续六) 请教怎样写函数 VB如何编程实现数据库接口 怎样实现与 acdsee 中对图片放大缩小相同的效果! 谁有语音聊天组件的源代码?? SATO CG208条码打印机 急!!!为什么老是提示对象已打开时,不运行操作
x = cstr(asc("a") + 1)可能还有更简单的
x = cstr(asc("a") + 1) 是错的,看来得更麻烦点了,copymemory 实现的dim x as string
x="a"
copymemory byval strptr(x),asc(x) + 1,1
msgbox x
Sub test()
Dim bt() As Byte
bt = "a"
bt(0) = bt(0) + 1
MsgBox bt
End Sub
x=chr(asc(x)+1)
刚才发错了,少了点东西
Dim str As String
str = "a"
str = Chr(Asc(str) + 1)
MsgBox str
End Sub