论坛: 编程破解 标题: 利用多边形求圆周率VBA代码(原创) 复制本贴地址    
作者: SCANDISK [scandisk]    论坛用户   登录
Option Explicit

Sub YZL()
Dim PI As Double, R As Long, N As Integer, I As Integer, L As Double, JA As Double, YZL As Double, QGCS As Integer
'变量说明:PI 为派 R为半径 N为多边形初始边数 I为循环变量，控制翻倍几次 L为多边形周长  YZL为圆周率 QGCS为多边形的边数翻倍几次
R = 5
PI = 3.14159265358979
QGCS = Val(InputBox("请输入N边形的边要翻倍次数:", "提示", 5))
N = 6
For I = 1 To QGCS
N = N * 2
JA = (180 / N) * (PI / 180)
L = 2 * N * R * Sin(JA)
YZL = L / (2 * R)
Debug.Print "当多边形为数:" & N; "边时周长与直径之比为:" & YZL
Next I

End Sub


地主 发表时间: 23-12-11 02:30

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号