vb的问题：转换字符为数字

想自定义一个这样的规则：即键盘的字母键（不分大小写）均自动对应一个数字，如：
A→01；B→02；C→03；……；Z→26
定义好以后，要实现这样的转换：可以对随机的一个字母单词自动转换为数字表示。如ASD（或Asd,ASd,AsD等不分大小写的）转换成“011904”。
求助高手，用代码怎么实现？

举报该问题

推荐答案 2006-08-16

首先定义一个函数：
Function trans(ByVal S As String) As String
Dim i As Integer
Dim t As String
S = UCase(S)
For i = 1 To Len(S)
t = Asc(Mid(S, i, 1)) - 64
If t < 10 Then
trans = trans & "0" & t
Else
trans = trans & t
End If
Next
End Function

在程序中调用此函数即可，如：
ss=trans("ASD")

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/WWvXjtWt.html

其他回答

第1个回答 2006-08-16

asc('A')-A的ascii码+1

第2个回答 2006-08-16

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html xmlns="http://www.w3.org/1999/xhtml">

<script language="vbscript">
Function MyCode(ByVal s)
s=LCase(s)
For i=1 To Len(s)
MyCode=MyCode & Decode(Mid(s,i,1))
Next
End Function

Function Decode(ByVal str)
Decode=Asc(str) - 32
End Function

document.write(MyCode("abcdefg,ABCDEFG"))
//-->
</SCRIPT>

第3个回答 2006-08-16

数组啊，
dim a(1 to 26)
a(1)="01"
a(2)="02"
……
function fac(byval a as string) as string
dim i
dim s as string
a=lcase(a)
for i=1 to len(a)
s=s & a(asc(mid(a,i,1))-64)
next
fac=s
end function

然后fac调用

相似回答

急问:VB的将字符串转化为数字的函数是什么?答：CLNG((STR)--转长整型 CBYTE(STR)--转字节型

vb字母转化为数字答：Private Function ChangeStr(ByVal strTemp As String) As String Dim i As Integer Dim str1 As String str1 = ""'如果字符串全是数字 If IsNumeric(strTemp) Then For i = 1 To Len(strTemp)str1 = str1 & Chr(Asc("a") + Val(Mid(strTemp, i, 1)) - 1)Next '如果字符串全是...

在VB中怎么把字符型转化成数字型???答：用val()，如val("12")如果是要获取字符的Ascii码，就用asc()，如asc("A")

VB 怎样将字符串转化为数值答：最简单的就是直接转换，就是把字符串变量赋值给数值变量。\x0d\x0a数值变量=字符串\x0d\x0a\x0d\x0a如果必须转换，就使用 Val 函数赋值，会把字符串转换成双精度数。\x0d\x0a比如：数值变量=Val(字符串)\x0d\x0a例：\x0d\x0an = Val("3.5") ' 变量n赋值为3.5\x0d\x0...

VB把任何字符串强制转为数字答：用 Asc 函数返回字符串首字母的字符值（ASCII 值）当输入的数字超过255 随机生成0-255之间的一个数来充当该值 Private Sub Form_click()Dim r, g, b As Integer Randomize r = Asc(InputBox("请输入R的值", "颜色"))g = Asc(InputBox("请输入G的值", "颜色"))b = Asc(InputBox("...

VB.NET如何把字符串(不全是数字或为空)转换成数字?答：明白你的意思了,只要是字母都会转换成数字,帮你写好了("usernane"和 "pasward" 我这里写成 "username" 和" password"）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim username, password As String Dim temp As Long Dim ...

vb字符串和数字转换功能答：VB中，字符串与数字之间的转换是关键功能，本文总结了几个主要的转换方法。Str（）与Val（）用于字符串与数字之间的转换，例如Str（-459.65）返回“-459.65”，Str（459.001）返回“459.001”。Val（）函数则可以将字符串转换为数值，如Val（“2457”）返回2457。Chr（）与Asc（）用于字符串与ASCII...

vb6 将字符串中数字转换成数字答：新建一个VB的EXE程序，画一个TEXT1，将文本改为110，再画一个COMMAND1，复制以下代码 Option Explicit Private Sub Command1_Click()Dim a As Single a = CSng(Text1.Text)Print a End Sub 将字符串转换成数字的函数还有，CInt和Val都是整型,CLng长整型，用法和本例差不多的。本例中的CSng是单...

在VB中字符串转为数值型的需要什么样的条件啊?答：Val(x) 将字符串中的数字转换成数值如:Val(“45mn”) 得45 Int(x) 取小于等于x的最大整数如:Int(-8.4)得-9 Int(8.4)得8 Fix(x) 将数值型数据x中的小数部分舍去 CBool(x) 将任何有效的数字字符串或数值转换成逻辑型如:Cbool(8)得true Cbool(“0”)得false...

大家正在搜

vb删除字符串中的指定字符 vb数字转字符 vb字符串截取字符函数 vb查找字符串指定字符 vb字符串中字符位置 vb统计文本框的字符个数 vb转化为字符串 vb选中字符数 vb 字符串函数