vb编程 通过输入框输入一个数,计算开方值

[复制链接]
查看11 | 回复2 | 2008-9-6 08:50:44 | 显示全部楼层 |阅读模式
要求:有错误处理程序

回复

使用道具 举报

千问 | 2008-9-6 08:50:44 | 显示全部楼层
dim a,b100a=val(inputbox("请输入一个非负数:"))if a<0 then msgbox "开方只能输入非负数!请重新输入!"goto 100elseif a=0 thenexit subelseprint "你输入的数是";a;"开方得:";sqr(a)end if...
回复

使用道具 举报

千问 | 2008-9-6 08:50:44 | 显示全部楼层
on error goto errhandleprint sqr(val(text1.text))exit suberrhandle: '错误处理msgbox"负数不能开偶次方根"text1.text=""...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行