UC知道帮帮我吧。VB语言问题！
来源：百度知道 编辑：UC知道 时间：2024/06/24 18:11:58
if ((pool1.value > pool2.value)||(pool2.value-pool1.value>0.5))
{
alert ("格式错误!");
pool1.focus();
return false;
}
我要加一句是pool1和pool2中如果有一个不能整除0.5就输出格式错误，就是输入这两个数一定要是0.5的倍数！零也算！
能包括上面的语句把整条写出来吗？谢谢！
{
alert ("格式错误!");
pool1.focus();
return false;
}
我要加一句是pool1和pool2中如果有一个不能整除0.5就输出格式错误，就是输入这两个数一定要是0.5的倍数！零也算！
能包括上面的语句把整条写出来吗？谢谢！
把 0.5 乘 10 并且把 pool1、pool2 也乘 10 然后使用 Mod 运算符，看结果是否为零
Dim poolA As Long, poolB As Long, result As Boolean
poolA = CLng(pool1.Value) * 10
poolB = CLng(pool2.Value) * 10
result = CBool(poolA Mod 5) And CBool(poolB Mod 5)
If result Then
'格式错误
Else
'格式正确
End If