Private Sub Command1_Click()
Const pi = 3.1415966 '定義常量pi
s = pi * Val(Text1.Text) ^ 2
Debug.Print s 'Debug立即視窗輸出s的計算結果
End Sub
Private Sub Command1_Click()
Const pi = 3.1415966 '定義常量pi
s = pi * Val(Text1.Text) ^ 2
Debug.Print s 'Debug立即視窗輸出s的計算結果
End Sub