VB题→急→大家进来帮帮忙

来源：百度知道 编辑：UC知道 时间：2024/06/05 12:47:10
一、写出下列表述的VB逻辑表达式：
(1)X的绝对值大于等于0;
(2)X能同时被4或6整除；
(3)闰年的条件：Year能被400整除 ；或者Year能被4整除，但不能被100整除？

(1) 绝对值大于等于0？ 还有绝对值小于0的数吗？
(2) (i - Int(i / 4) * 4 = 0) Or (i - Int(i / 6) * 6 = 0)
(3) (year - Int(year / 400) * 400 = 0) or (（year - Int(year / 4) * 4 = 0) and (year - Int(year / 100) * 100 <> 0))

建议做一个 mod 函数：
Function mod(ByVal x As Integer, ByVal y As Integer) As Integer
return x - Int(x / y) * y
End Function
之后上面的（2）、（3）两个条件就变成：
(2) mod(i,4)=0 or mod(i,6)=0
(3) mod(year,400)=0 or (mod(year,4)=0 and mod(year,100)<>0)

如果再做一个“整除”函数更方便：
Function zhengchu(ByVal x As Integer, ByVal y As Integer) As Boolean
if mod(x,y)=0 then
return true
else
return false
end if
End Function
之后上面的（2）、（3）两个条件就变成：
(2) zhenchu(i,4) or zhenchu(i,6)=0
(3) zhenchu(year,400)=0 or (zhenchu(year,4)=0 and not zhenchu(year,100)<>0)

(1):abs(x)>=0
(2):x mod 4=0 or x mod 6= 0
(3):(year mod 400=0 or year mod 4= 0 ) and year mod 100<