重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
楼上的午饭吃多了吧?
成都创新互联公司从2013年开始,先为密云等服务建站,密云等地企业,进行企业商务咨询服务。为密云企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
num=asc("A")-96
就可以了,但是只能转换大写字母,大小写字母通用的:
str="a"
num=asc(ucase(str))-96
Convert.ToInt32(char);
描述:将指定的
Unicode
字符的值转换为等效的
32
位有符号整数。
由
.NET
Compact
Framework
支持。
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)
1、int类型数组转换为Integer类型的数组。
2、long类型数组转换为Integer类型的数组。
3、char类型数组转换为Integer类型的数组。
4、String类型数组转换为Integer类型的数组。
5、double类型数组转换为Integer类型的数组。
明白你的意思了,只要是字母都会转换成数字,帮你写好了("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