VB：输入半径，计算圆周长和圆面积。运行界面如下

Question

重点是若输入的数中有非法数字，要利用MsgBox显示出错信息，利用SetFocus方法定位出错文本框。这两个怎么弄？
Private Sub Command1_Click()Dim r As Singler = Val(Text1.Text)Text2.Text = 3.14 * r * r
End Sub
Private Sub Command2_Click()Dim r As Singler = Val(Text1.Text)Text3.Text = 2 * 3.14 * r
End Sub
这是我写的，怎么加上MsgBox和Setfocus的部分？最好给我完整的程序编码，谢谢！

Answer 1

不了解isnumeric,写了个函数
Private Sub Command1_Click()
Dim r As Single
If isval(Trim(Text1.Text)) Then
r = Val(Text1.Text)
Text2.Text = 3.14 * r * r
Else
MsgBox "input error"
Text1.SetFocus
End If

End Sub
Private Sub Command2_Click()
Dim r As Single
If isval(Trim(Text1.Text)) Then
r = Val(Text1.Text)
Text3.Text = 2 * 3.14 * r
Else
MsgBox "input error"
Text1.SetFocus
End If
End Sub

Function isval(str As String) As Boolean
Dim strCmp
Dim i As Integer
Dim strTemp As String
strCmp = "0123456789."
isval = True

For i = 1 To Len(str)
strTemp = Mid(str, i, 1)
If Mid(str, i, 1) = "." And Mid(str, i + 1, 1) = "" Then
isval = False
Exit Function
End If
If InStr(strCmp, strTemp) = 0 Then
isval = False
Exit Function
End If

Next

Dim str1() As String
str1 = Split(str)
If UBound(str1) > 0 Then
isval = False
Exit Function

End If

End Function

Answer 2

Private Sub Command1_Click()
If Not IsNumeric(Text1) Then
MsgBox "xxx"
Text1.SetFocus
Exit Sub
End If

Dim r As Single
r = Val(Text1.Text)
Text2.Text = 3.14 * r * r

End Sub

Private Sub Command2_Click()
If Not IsNumeric(Text2) Then
MsgBox "xxx"
Text2.SetFocus
Exit Sub
End If

Dim r As Single
r = Val(Text1.Text)
Text3.Text = 2 * 3.14 * r

End Sub本回答被提问者和网友采纳