python输入圆的半径求面积及周长并保留两位小数_VB程序题：输入半径，计算圆周长和圆面积，如下图所示。...

VB程序题：输入半径，计算圆周长和圆面积，如下图所示。

进一步要求，为了保证程序运行的正确，对输入的半径要进行合法性检查，数据检查调用IsNumeric函数，参阅教材例2.5；若有错，利用MsgBox显示出错信息，如下图所示。通过Focus方法定位于出错的文本框处，重新输入；计算结果保留2位小数。

数据输入结束有两种方法，分别编写事件过程对数据进行检验：

1.按Tab键，检查数据的合法性，这时利用Text1_LostFocus事件。

2.按Enter键，利用Text1_KeyPress事件，返回参数“KeyAscii”的值为13表示输入结束。

解题：

Private Sub Command1_Click()

Label2 = Format(Val(Text1) * Val(Text1) * 3.14, "0.00")

End Sub

Private Sub Command2_Click()

Label3 = Format(Val(Text1) * 3.14 * 2, "0.00")

End Sub

Private Sub Text1_LostFocus()

If IsNumeric(Text1.Text) = False Then MsgBox "有非法数字字符，请重新输入！"

End Sub

程序运行效果如下图所示。

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码