UC知道vb编程的一道题目
来源：百度知道 编辑：UC知道 时间：2024/05/14 05:08:34
这是用约翰·沃裏斯的方法计算圆周率的值
其中N表示重复的次数
Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As Integer, x As Integer, y As Integer
n = Text1.Text
If n Mod 1 = 0 And n >= 0 Then
i = 1
s = 1
x = 2
y = 1
Do While i <= n
s = s * (x / y)
i = i + 1
If i Mod 2 = 1 Then
x = x + 2
Else
y = y + 2
End If
Loop
Label2.Caption = 2 * s
Else
Label2.Caption = "您输入的数字不正确"
End If
End Sub
运行后发现和书上写的不一样，谁能告诉我为什麽？
其中N表示重复的次数
Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As Integer, x As Integer, y As Integer
n = Text1.Text
If n Mod 1 = 0 And n >= 0 Then
i = 1
s = 1
x = 2
y = 1
Do While i <= n
s = s * (x / y)
i = i + 1
If i Mod 2 = 1 Then
x = x + 2
Else
y = y + 2
End If
Loop
Label2.Caption = 2 * s
Else
Label2.Caption = "您输入的数字不正确"
End If
End Sub
运行后发现和书上写的不一样，谁能告诉我为什麽？
我在网络上没搜索出来什么是 约翰·沃裏斯的方法计算圆周率的值 ,所以看不了这个程序,
但是有个问题,
1.还有 n mod 1=0,mod是求余数的,那么任何数和1来除,肯定是0,等于没条件
2.就是n 是个整型的值, Text1.Text 是个文本默认的,两个赋值的.
n = Val(Text1.Text)
再看看了，可能理解有偏差吧
程序不完整
没有配套的语句
赋值上的错误