UC知道VB代码中的错误改正（谢谢高手来指点我一下）
来源：百度知道 编辑：UC知道 时间：2024/07/07 02:10:55
为什么不能6位啊？到了5位时还没有事呢！！怎么改正呢？
private Sub Cmd1_click()
Dim a as integer
a=Val(Txt1.Text)
If a mod 2=0 Then Print a;"是偶数" Else Print a;"是奇数"
End Sub
private Sub Cmd1_click()
Dim a as integer
a=Val(Txt1.Text)
If a mod 2=0 Then Print a;"是偶数" Else Print a;"是奇数"
End Sub
Dim a as integer
改为
Dim a as Long
因为Integer类型受大小的限制，很容易溢出
改为Long后范围扩大很多
如果还觉得不够大
那就
Dim a as Double
这是4中数字类型中存储量最大的类型
将a 设置成长整型。