输入半径,用VB编写计算圆面积和圆周长的程序为保证程序运行的正确,对输入的半径进行合法检查,数据检查调用ISNUMERIC函数,利用MSGBOX先是出错信息,结果保留两位小数.要求面积和周长用两个COMMAND完成.半径用一个标签控制输入.

分类: 作业答案 • 2022-01-03 09:48:39

问题描述：

输入半径,用VB编写计算圆面积和圆周长的程序
为保证程序运行的正确,对输入的半径进行合法检查,数据检查调用ISNUMERIC函数,利用MSGBOX先是出错信息,结果保留两位小数.要求面积和周长用两个COMMAND完成.半径用一个标签控制输入.

答

Private Sub Command1_Click()
Dim bj As Single
Dim zz As Single
Dim mj As Single
bj = CSng(Text1.Text)
If bj