重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
如果用常规编程的方法:
成都创新互联公司专业为企业提供湛江网站建设、湛江做网站、湛江网站设计、湛江网站制作等企业网站建设、网页设计与制作、湛江企业网站模板建站服务,十多年湛江做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
直接用split(str1,“,”)的形式把str1字符串分成字符串数组,然后用for循环判断每个数组元素是否是数字或者是字符串就可以了。
你用的都是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
计算溢出
1检查写入前是否对变量进行了计算操作+=*/等,如果是:
(1)检查除数与被除数是不是至少有一个不是数字,例如空值,文字,等
(2)检查除数是否为0
2声明的是数字型变量,存储并写入了文本型数据(这种情况通常会报错,提示类型不能转换)
可以用VB6里的函数
isnumeric()
比如要判断文本框里的内容是否数字
if isnumeric(TextBox1.text) Then
msgbox("是数字!")
else
msgbox("不是数字!")
end if