(相关资料图)

1、Private Sub Command1_Click()If Not IsNumeric(Text1) Then MsgBox "xxx" Text1.SetFocus Exit SubEnd IfDim r As Singler = Val(Text1.Text)Text2.Text = 3.14 * r * rEnd SubPrivate Sub Command2_Click()If Not IsNumeric(Text2) Then。

本文到此分享完毕，希望对大家有所帮助。