double是双精度 有效数值位52位 表示成指数的形式 即指数11位 即表示成
兴隆台ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！
所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101
即
180.89305在double中存在的实际数值是
1.01101001110010010011110111011001011111110110001010110110101 *2^7
取小数点后 52位有效值后 等于10进制的180.893049999999998
所及加最后变成了 1808930.99999999998
第一次当然输出近似值1808931
第二次int函数去掉了小数点后的数int就是只取整数的部位的不是四舍五入 所以少了1
可以用VB6里的函数
isnumeric()
比如要判断文本框里的内容是否数字
if isnumeric(TextBox1.text) Then
msgbox("是数字！")
else
msgbox("不是数字！")
end if
1、打开VB6.0软件，新建一个标准exe工程；
2、在设计界面上添加一个Text控件和一个Command控件，Text1的属性Text设置为空，Command1的Caption属性设置为"判断";
3、双击Command1控件，进入代码编辑窗口，在代码编辑窗口输入如下代码：
Private Sub Command1_Click()
Dim n As Double
n = Val(Text1.Text)
If n 0 Then
MsgBox (n "是一个正数")
ElseIf n = 0 Then
MsgBox ("n等于0")
Else
MsgBox (n "是一个负数")
End If
End Sub
4、点击运行工程，在Text1中输入一个数字，单击判断按钮，判断该数是正数、0还是负数；
