安装autoIt,输入代码,并编译成新的可执行文件
代码:
Dim $pi=3.1415926
Dim $r,$s$r=InputBox(" 圆的面积计算 "," 请输入圆的半径: ")
If @error=1 Then Exit
If $r="" Then Exit
$s=$pi*$r^2
MsgBox(0,"圆的面积计算",Round($s,2))
安装autoIt,输入代码,并编译成新的可执行文件
代码:
Dim $pi=3.1415926
Dim $r,$sMsgBox(0,"圆的面积计算",Round($s,2))