用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的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 运用公式法:将下列各式因式分解:9(m+2n)²-16(m-n)²
- 用文中的一句话来说明学与问的关系
- 已知关于x的方程2ax=(a+1)x+3,求a为何整数是,方程的解是正整数.
- 已知(1+x)^n的二项展开式中第四项与第八项的二项式系数相同,求这两项的二项式系数
- 如何延长灯泡的使用寿命?
- 等腰三角形ABC中,AB=AC=18cm,AB的垂直平分线交AC于点D,三角形BCD的周长为34cm,则BC=()
- 参加课外活动400字作文
- The young man can write computer__(program).用括号内所给单词的适当形式填空
- 不等式ax+b>0的解集是x>-b/a,且a+b小于0,则抛物线y=ax^2+bx+c的对称轴所在的位置是————.
- 做匀速直线运动的物体,在4S内通过20M的路程,那么它在前2S内的平均速度是( )
热门考点