用vb编写程序,输入半径,计算圆周长和圆面积
题目
用vb编写程序,输入半径,计算圆周长和圆面积
为保证程序运行正确,对输入的半径要进行合法性检查,数据检查调用isnumeric函数,如有错,利用msgbox显示出错信息,通过setfocus方法定位于出错的文本框处,重新输入,计算结果保留两位小数.
答案
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
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 表示xx的英语单词(3个)
- 描写白色的词语
- 修一部电梯,甲单独做需要12小时完成,甲乙合作四小时后,乙又用了6小时才完成工作,那么甲乙如果从一开始合作,需要几小时?
- 二氧化硅和二氧化钛的折光率哪个高
- f(x)值域 [ 3/8,4/9] y=f(x)+√1-2f(x)
- 改正病句:1.小芳伤心极了,她多么希望知心朋友和她分享这无限的苦恼啊.
- 骑马舞的英文翻译
- 已知反应:2H2S+SO2= 3S↓+2H2O,将等物质的量SO2和H2S于常温下定容的密闭容器中反应,待反应充分后恢复
- 李明告诉老师,他叫李明,是从北京转来的.(改为直接叙述)
- 有一杯浓度为5%的糖水,如再加入5克糖,浓度就变成8%.这杯糖水原来有糖多少克?