1、首先在电脑中找到并打开VB软件，找到一句输出的函数。
目前成都创新互联公司已为上千的企业提供了网站建设、域名、虚拟主机、网站托管、服务器租用、企业网站设计、蠡县网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
2、然后在其数组变量中，套上一个Str函数。
3、这里注意函数的关键字，是没有区分大小写的。
4、然后函数是可以多个嵌套使用。
5、最后点击运行按钮，这样就可以成功运行测试，如下图所示，转换就完成了。
date是一个类型。。。似乎不能赋值吧
由Sting转换成 Integer 可以这样写
dim a as string="adasdfsdfsferqwer"
dim b as integer
b= CUInt(a)
语法是正确的。。。但你要是把 几个字符转硬转换为 数字整型 但这几个字符串又不是数子 一定要出错的
如果是下面就没错了
dim a as string="45446464646"
dim b as integer
b= CUInt(a)
最简单的就是直接转换，就是把字符串变量赋值给数值变量。\x0d\x0a数值变量=字符串\x0d\x0a\x0d\x0a如果必须转换，就使用 Val 函数赋值，会把字符串转换成双精度数。\x0d\x0a比如：数值变量=Val(字符串)\x0d\x0a例：\x0d\x0an = Val("3.5") ' 变量n赋值为3.5\x0d\x0a\x0d\x0a或者使用取整函数，也可以转换。\x0d\x0a比如：数值变量=Int(字符串) 或者 数值变量=CInt(字符串)\x0d\x0a例：\x0d\x0an = Int("3.5") ' 取整数，变量n赋值为3\x0d\x0a\x0d\x0an = CInt("3.5") ' 四舍五入取整数，变量n赋值为4
明白你的意思了,只要是字母都会转换成数字,帮你写好了("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 r As String = ""
Dim v As String = TextBox1.Text
For Each c In v.ToString
If IsNumeric(c) Then
r = c
Else
r = ((Asc(c) - 65).ToString("00"))
End If
Next
username = r
temp = username * 3 - 500
password = CStr(temp)
TextBox2.Text = password
End Sub
