用什么函数判断输入的是负数? if not isnumberic(xx) then msgbox "请输入数字"elseif xx<0 then msgbox "输入的是负数"end if 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 晕!自己写一个不就完了嘛function GetNumber(Number as integer) as stringif number<0 then getnumber="是个负数“else getnumber="是个正数或是0"end function if val("-12") < 0 then msgbox "负数!" val判断是否数字,然后判断是否<0 if isnumberic(Number)=false then msgbox "请输入数字"else if val(Number)<0 then msgbox "输入的是负数" endifend if VB对本地数据库操作的问题 菜鸟疑惑 setup factory WEBBROWSER 里的 一个表单,提交按钮 是个图片 ,能否用VB来 自动提交这个表单 ? 如何改变一个文件的属性(只读/正常) 100分!如何快速读取图片的16进制字符串? 各位兄弟帮帮忙吧 如何去掉VB程序的标题栏? 请问vb里有没有快捷方式可以调出语法的构架? 请教诸位:在VB调出EXCEL后,如何设置EXCEL的单元格的宽度。在线等候!谢谢!!! 难道MSDN也有错误 如何用Agent调用Microsoft提供的标准鸟? 有谁能够设置mscomm空间的接收和发送数据,从而实现多级通讯
getnumber="是个负数“
else
getnumber="是个正数或是0"end function
msgbox "请输入数字"
else
if val(Number)<0 then
msgbox "输入的是负数"
endif
end if