求求各位大神了，明天就要上交作业了，真心不会啊，哪位好心的大神帮忙看看啊

千万不能沉啊，沉了我就该毕业了，哇哇哇哇哇哇，好心的大神啊，快来帮帮我吧

不能沉不能沉啊，在线等，急求啊，啊啊啊啊啊啊

求求好心的大神了，来人啊

该毕业了 不是很好吗
出现的次数就是10000次啊

这tm的有什么好求教的. 定好π要统计的位数.把π转成字符串 for循环一下不就出来了.

π是给定的还是要自己算？
给定了π的话就这样：

Const pi As String = "3.1415926535"
Dim p As String
Dim n(9) As Long
Dim i As Long
Dim j As Integer
p = Replace(pi, ".", "") '去除小数点
For i = 1 To Len(p)
j = Val(Mid(p, i, 1))
n(j) = n(j) + 1
Next i
For i = 0 To 9
Print i & "出现" & n(i) & "次"
Next i

α/4=1-1/3+1/5-1/7+1/9-1/11+…-1/99 按这个公式，要求出10000位的π double都装不下，得用字符串，然后要实现字符串的 加减乘除，最后遍历字符串，得出次数。

那就定义个字符串来放它呗 然后用8楼的代码 我还没来得及试试呢

Option Explicit
Private Sub Command1_Click()
Dim pi As String
Dim n(9) As Long
Dim i As Long
Dim j As Integer
pi = getpi
For i = 1 To Len(pi)
j = Val(Mid(pi, i, 1))
n(j) = n(j) + 1
Next i
For i = 0 To 9
Print i & "出现" & n(i) & "次"
Next i
End Sub
Function getpi(Optional ByVal nums As Long = 10000) As String
nums = nums / 5
Dim max As Long, laptime As Single, result() As String
Dim i As Long, j As Long, t, d As Long, g, k As Long, f()
laptime = Timer
max = 18 * nums
ReDim f(0 To max)
ReDim result(nums)
For i = 0 To max
f(i) = 20000
Next
g = 20000
For j = max To 1 Step -18
t = 0
For i = j To 1 Step -1
t = t + f(i) * 100000
d = 2 * i + 1
f(i) = t - Int(t / d) * d
t = Int(t / d) * i
Next
result(k) = Format(Int(g + t / 100000) Mod 100000, "00000")
k = k + 1
g = t Mod 100000
Next
getpi = Join(result, "")
Me.Caption = "计算完毕！总计用时" & Timer - laptime & "秒！"
End Function