您的位置: 首页  >  作业答案  >  其他  >  用vb编写程序,输入半径,计算圆周长和圆面积为保证程序运行正确,对输入的半径要进行合法性检查,数据检查调用isnumeric函数,如有错,利用msgbox显示出错信息,通过setfocus方法定位于出错的文本框处,重新输入,计算结果保留两位小数.

用vb编写程序,输入半径,计算圆周长和圆面积为保证程序运行正确,对输入的半径要进行合法性检查,数据检查调用isnumeric函数,如有错,利用msgbox显示出错信息,通过setfocus方法定位于出错的文本框处,重新输入,计算结果保留两位小数.

分类: 作业答案 • 2021-12-20 05:45:21
问题描述：

用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

相关推荐