数字转化成英文字的问题? Dim a As Integera = 11MsgBox Chr(a + 64)数字加64 然后用chr 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 11是转成AA 还是K.后者用qdcb的就可以。前者可以使用mid分解后再转换。 Dim strSource As StringDim strDest As StringDim i As IntegerstrSource = "123456789"For i = 1 To Len(strSource) strDest = strDest & Chr(Asc(Mid(strSource, i, 1)) + 16)NextMsgBox strDest 使用Inet(Internet Transfer control)控件的一个很奇怪的问题 关于键盘休眠等特殊键的禁用(user32.dll)急! 我将一个MDI窗体放到了系统托盘中!可是~~~~~ 在线等待(50)急!!! combo控件问题 关于SQL的一个简单的问题 如何用VB代码实现SQL Server数据库的备份与恢复!? 送分了,怎么知道某一个月有多少天? 在菜单里怎样添加图标? 两个菜鸟问题? 在VB中如何用"GradientFill"这个函数实现颜色渐变? commondialog.showopen
后者用qdcb的就可以。
前者可以使用mid分解后再转换。
Dim strDest As String
Dim i As Integer
strSource = "123456789"
For i = 1 To Len(strSource)
strDest = strDest & Chr(Asc(Mid(strSource, i, 1)) + 16)
Next
MsgBox strDest