求一个数是否被整除?急 请问怎样判断一个数是否被整除呀,急,请帮帮忙吧,谢谢各位老大啦 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这要用到求模的函数Mod(),如果Mod(数字)为0,则括号内的数字是整数,否则为小数 我是这样做的:dim a as integerdim b as integerif a/b <> a\b then ’不能整除else ’可以整除end if mod是运算符吧比如if x mod 12 = 0 then msgbox "x能被12整除" dim a as integerdim b as integerif a\b*b=a then msgbox "可以整除"else msgbox "不能整除"end if function IsInt(x as variant,y as variant) as boolean const eps=0.00001 if abs(x-round(x/y)*y)<eps then IsInt=true else IsInt=false end ifend function 如何获得http://www.xxx.com/xxx.exe文件的大小? VB怎么实现像按键精灵那样在游戏中找图 如何通过代理服务器下载图片?请大侠帮忙!! 简单的问题,解决了立即给分~~快来啊 有用windows2003配置过com+成功过的朋友进来看看! VB中怎么取得一个地址的值?请大家进来看看。 100分.关于类的处理!!! vc编的dll的用法问题: vb禁用系统快键键 VB中如何通过API获得当前的系统资源? 如何判断当前要加载的控件已经加载过,详请请进,急,在线等待,马上给分 SQL文本字段取出并分割问题?
dim a as integer
dim b as integerif a/b <> a\b then
’不能整除
else
’可以整除
end if
if x mod 12 = 0 then msgbox "x能被12整除"
dim b as integerif a\b*b=a then
msgbox "可以整除"
else
msgbox "不能整除"
end if
const eps=0.00001
if abs(x-round(x/y)*y)<eps then
IsInt=true
else
IsInt=false
end if
end function