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
用vb编写程序,输入半径,计算圆周长和圆面积
用vb编写程序,输入半径,计算圆周长和圆面积
为保证程序运行正确,对输入的半径要进行合法性检查,数据检查调用isnumeric函数,如有错,利用msgbox显示出错信息,通过setfocus方法定位于出错的文本框处,重新输入,计算结果保留两位小数.
为保证程序运行正确,对输入的半径要进行合法性检查,数据检查调用isnumeric函数,如有错,利用msgbox显示出错信息,通过setfocus方法定位于出错的文本框处,重新输入,计算结果保留两位小数.
其他人气:641 ℃时间:2020-02-05 23:48:44
优质解答
我来回答
类似推荐
猜你喜欢
- 1过点A(2,3)的直线L被两平行线L1:3++4Y-7=0,L2:3x+4y+8=0截得的线段中心在直线X+Y+2=0上,求直线L的方
- 2用英语写出下列时间的两种表达方式
- 3一杯糖水,糖占糖水的十分之一,加10克糖后,糖占糖水的十一分之二,原来糖水有多少克?
- 4将下面的字母组合成一个单词,并写出其中文意思
- 5若函数f(x)=ax²-lnx在点(1,a)处的切线平行于x轴,(1)求a的值;(2)求f(x)的单调区间.
- 6海葵是动物还是植物
- 7用Be动词:Where( )your friend’s room?
- 8二氧化碳的百分比浓度为6%,如何转化为mg/m3?
- 9把两个完全相同的金属球A和B接触一下,再分开一小段距离,发现两球间互相排斥,则A、B两球原来的带电情况可能是( ) A.A和B原来带有等量异种电荷 B.A和B原来带有同种电荷 C.A和B原来
- 10英语翻译