从品牌网站建设到网络营销策划,从策略到执行的一站式服务
用一个简单的自定义函数来判断。
吴江ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联公司的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:18980820575(备注:SSL证书合作)期待与您的合作!
Function isint(s As String) As Boolean
Dim i%, j%
isint = True
If Left(s, 1) = "+" Or Left(s, 1) = "-" Then j = 2 Else j = 1
s = Trim(s)
For i = j To Len(s)
If Mid(s, i, 1) "0" Or Mid(s, i, 1) "9" Then isint = False
Next i
End Function
一、判断是否为数字且是否包含小数点:
IsNumeric(Text1) And InStr(1, Text1, ".", vbTextCompare)=0
二、计算:
Int(Val(Text1)) = Text1
Private Sub Command1_Click()
Dim i As Integer
i = Text1.Text
If i Mod 2 = 0 Then
MsgBox "偶数"
Else
MsgBox "奇数"
End If
End Sub
示例如下:
dim ss
ss =122.02
if ssint(ss) then
msgbox("非整数")
else
msgbox("整数")
end if
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图