十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Function PriceIsNotNumberic(price)As Boolean
创新互联建站专注于赤峰企业网站建设,响应式网站建设,商城网站建设。赤峰网站建设公司,为赤峰等地区提供建站服务。全流程按需定制开发,专业设计,全程项目跟踪,创新互联建站专业和态度为您提供的服务
If IsNumeric(price)=false Then
lblMessage.Text="错误:你必须为价格输入一个数字类型的值。"
lblMessage.ForeColor=Color.Red
Grid_Bind
Return(false)
Else
Return(true)
End If
End Function
dim mbool as boolean=false
strTmp=strTmp.trinstart(0)//strTmp.trimstrart(0)这样的目的是把前面的0替换掉
if strTmp="" then
mbool=true
else
mbool=val(strTmp).tostring()=strTmp
end if
遍历整个字符串,然后使用 chr() 函数来判断是不是字母。
我记得 A 是 chr(65) ,a 是 Chr(97) 。
用到的函数大致包括:len() 、chr() 、mid()
大致的结构是:
for i=1 to len(str)
if mid(str,i,1) 不在指定的范围 then
警告!
Exit For
end if
next