发布网友 发布时间:2022-04-25 00:04
共2个回答
热心网友 时间:2022-04-27 15:18
明白你的意思了,只要是字母都会转换成数字,帮你写好了("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
热心网友 时间:2022-04-27 16:36
解决的思路:
方法1:把其中非数字忽略掉,即去除。
方法2:把字符转换成它的ASCII码.
另外,你的代码中声明变量的语句:Dim usernane, pasward As String
把usernane声明为String类型了,怎么在使用的时候:usernane = CLng(TextBox1.Text)
是试图存放长整型的数值呢?