为什么不加下面的也能出正确结果?Str(s) //转化为字符串 r = Val(r) //转化为数值型 原来是变体型

为什么不加下面的也能出正确结果?Str(s) //转化为字符串 r = Val(r) //转化为数值型 原来是变体型
Private Sub Command1_Click()
r = InputBox("r=")
r = Val(r) //转化为数值型 原来是变体型
If r >= 0 Then
s = 3.14 * r * r
Else
r = Abs(r)
s = 3.14 * r * r
End If
Text1.Text = Str(s) //转化为字符串
End Sub
Private Sub Command2_Click()
End
End Sub