用VB计算π的近似值π的计算公式：注意：①分别显示当n=10、100、1000时的结果,由此可见,此计算公式熟练程度如何?②同时要防止大数相乘时结果溢出的问题,将变量类型改为长整型或实数型.

Question

用VB计算π的近似值
π的计算公式：注意：①分别显示当n=10、100、1000时的结果,由此可见,此计算公式熟练程度如何?②同时要防止大数相乘时结果溢出的问题,将变量类型改为长整型或实数型.

Answer 1

Option Explicit
Dim A(1 To 10) As Integer
Private Sub Command1_Click()
Randomize
Dim I As Integer
For I = 1 To 10
A(I) = Int(Rnd * (99 - 10 + 1) + 10)
Print A(I);
Next
End SubPrivate Sub Command2_Click()
Dim I As Integer,J As Integer,T As Integer
J = 10
I = 1
Do While I < J
T = A(I)
A(I) = A(J)
A(J) = T
I = I + 1
J = J - 1
Loop
Print
For I = 1 To 10
Print A(I);
Next
End Sub