
CODE: [Copy to clipboard]Option Explicit
Dim r
Const PI=3.14
r=Inputbox("Please enter a num.")
Function area1()
area1=PI*r^2
Msgbox area1
End Function
Function area2()
area2=3.1415*r^2
Msgbox area2
End Function
area1
area2
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |