@@@@什么函数把0.1取整成1?即:XXX(0.1)=1 x = 0.1(Int(x) - x) * 10 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 自己写一个吧private function MyInt(Num as Double) as long if int(num)=num then myInt=num else MyInt=int(num)+1 end ifend function 求vb兼职类工作 VB中获取鼠标滚动事件 如何编出这个图形,求VB源程序 不访问数据库,可以直接给ADODC的Recordset属性付值吗??请指教,给加分 VB 加载损坏图片文件时程序被卡死的问题 标注下面的程序,并说明该程序运行的结果 报表的问题?请各位大哥大姐多帮忙! 变量问题 初学者的问题:帮我解释一下这段代码 谁有播放DVD的控件,方法或代码,小小分数以表敬意 VB中创建了一个word对象,打印其中的内容,如果文件很大,刚打印就关WORD会出错,有什么好办法能判断打完没打完吗? 我有VB源代码
private function MyInt(Num as Double) as long
if int(num)=num then
myInt=num
else
MyInt=int(num)+1
end if
end function