题目
用vb编写程序,输入半径,计算圆周长和圆面积
为保证程序运行正确,对输入的半径要进行合法性检查,数据检查调用isnumeric函数,如有错,利用msgbox显示出错信息,通过setfocus方法定位于出错的文本框处,重新输入,计算结果保留两位小数.
为保证程序运行正确,对输入的半径要进行合法性检查,数据检查调用isnumeric函数,如有错,利用msgbox显示出错信息,通过setfocus方法定位于出错的文本框处,重新输入,计算结果保留两位小数.
提问时间:2020-10-13
答案
Const PI = 3.14159
Dim r As Double
Dim C As Double
Dim S As Double
If IsNumeric(Text1.Text) Then
r = Val(Text1.Text)
C = 2 * PI * r
S = PI * r ^ 2
Text2.Text = Format(C, "0.00")
Text3.Text = Format(S, "0.00")
Else
MsgBox "输入不是一个有效的数值.", vbCritical
Text1.SetFocus
End If
Dim r As Double
Dim C As Double
Dim S As Double
If IsNumeric(Text1.Text) Then
r = Val(Text1.Text)
C = 2 * PI * r
S = PI * r ^ 2
Text2.Text = Format(C, "0.00")
Text3.Text = Format(S, "0.00")
Else
MsgBox "输入不是一个有效的数值.", vbCritical
Text1.SetFocus
End If
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1汉译英:亚洲冬季运动会将在我居住的城市举办.
- 2用下面的字组成恰当的词语,填写在句子里.
- 3The book is expensive .T-,it’s worth it. 句中的“—”里填什么啊!
- 4乡愁是从“诵读时,乡愁是唐诗宋词.”开始的
- 5甲、乙两地相距300千米,两辆车同时从甲开往乙,已知两辆车速度各是48千米、52千米,快车到达乙地后立即返回,两车从甲地开出后几小时相遇?
- 63次函数如何求导
- 7用“介词+关系代词”引导的定语从句改写下列句子(2道)
- 8在一家医院用英语怎么说
- 9若曲线(x^2)/(k+2) +(y^2)/k^2=1表示焦点在X轴上的椭圆,求k的取值范围,
- 10在硝酸铜和硝酸银溶液的混合溶液中加入一定量的铁粉,充分反应后过滤,下列有关结论正确的是( ) A.滤渣中一定含有银 B.滤液中一定含有铜 C.在滤液中间加入稀盐酸,若生成白色沉
热门考点
- 1英语翻译
- 2Life is a maze and love is a riddle什么意思?
- 3已知,关于x的方程x²-2mx=-m²+2x的两个实数根x1,x2满足x1的绝对值=x2,求m的值
- 4为什么酒精棉被的表面燃烧酒精着了但是棉布无损
- 5乌鸦除了往瓶子里放石子还有什么办法喝到水
- 6“集团有限公司”用英语怎么说
- 7已知a,b,c是△ABC的三边,且满足a^c^-b^c^=a的4次方-b的4次方,则△ABC是什么三角形?
- 820元,用了8元,还剩几分之几元,为什么
- 9英语问题(初一的)好的+100分
- 10一根劲度系数k = 103N/m的弹簧,长l = 0.2m,一端固定在光滑水平转台的转动轴上,另一端系一个质量m=2kg的物体,当转台以180r/min转动时,试求此时弹簧伸长量为多少