新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
如果用常规编程的方法:
创新互联建站服务项目包括东阳网站建设、东阳网站制作、东阳网页制作以及东阳网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,东阳网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到东阳省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
直接用split(str1,“,”)的形式把str1字符串分成字符串数组,然后用for循环判断每个数组元素是否是数字或者是字符串就可以了。
计算溢出
1检查写入前是否对变量进行了计算操作+=*/等,如果是:
(1)检查除数与被除数是不是至少有一个不是数字,例如空值,文字,等
(2)检查除数是否为0
2声明的是数字型变量,存储并写入了文本型数据(这种情况通常会报错,提示类型不能转换)
你用的都是vb6的代码,改成:
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符,请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
可以用VB6里的函数
isnumeric()
比如要判断文本框里的内容是否数字
if isnumeric(TextBox1.text) Then
msgbox("是数字!")
else
msgbox("不是数字!")
end if
明白你的意思了,只要是字母都会转换成数字,帮你写好了("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