UC知道VB 关于取方溢出,怎么定义防止输入大于某个范围的数
来源：百度知道 编辑：UC知道 时间：2024/06/21 15:45:51
大家好,小弟初学的VB,今天在这请教大家一个问题
编了个计算器,可以取方 例:
Dim a As Double, b As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
text3.text = a ^ b
但是当取方的值大于一定范围时(它不能区太大了),它就显示溢出了 请问
要怎么解决呢?
再有一个问题,例:
If a = 50 Then
msgbox"不得输入50"
else
end if
问:我不要设为"50"了,我要设定一个范围,如50到1000000中的任意一个数,该怎么设呢?
If a = Rnd()*1000000+50 我设过这个,但是也不行
我弄了一天没搞明白,希望哪位大哥或大姐帮个小忙,谢谢了!
编了个计算器,可以取方 例:
Dim a As Double, b As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
text3.text = a ^ b
但是当取方的值大于一定范围时(它不能区太大了),它就显示溢出了 请问
要怎么解决呢?
再有一个问题,例:
If a = 50 Then
msgbox"不得输入50"
else
end if
问:我不要设为"50"了,我要设定一个范围,如50到1000000中的任意一个数,该怎么设呢?
If a = Rnd()*1000000+50 我设过这个,但是也不行
我弄了一天没搞明白,希望哪位大哥或大姐帮个小忙,谢谢了!
问题一：
设置错误处理
Function MyFunction
On Error Goto Err_Label
'.....你代码
Exit Function
Err_Label:
If Err.Number = 6 Then '溢出错误的编号为 6
MsgBox "溢出啦。"
Else
MsgBox "意外错误。"
End If
End Function
问题二：
If A >= 50 And A <= 1000000 Then
MsgBox "输入正确"
Else
MsgBox "输入数字的返回必须在 50 - 1000000 之间。"
End If
问1
可以提示用户溢出了，判断text3.text的值是否为溢出，然后改成自己想要的信息，比如
text3.text = "溢出啦！！！"
问2
50到1000000 你if条件不对
If a >= 50 And a <=1000000 Then
MsgBox "不得输入" & a
EndIf