UC知道VB编程问题...
来源：百度知道 编辑：UC知道 时间：2024/06/07 13:58:46
求π: π/4=1-1/3+1/5-1/7+...+1/(4n-3)-1/(4n-1),n=10000 VB编程
写出程序
还有道题...
在窗体上画了一个名称为command1的命令按钮，然后编写如下程序
private sub command1_click()
static x as integer
Cls
For i = 1 to 2
y=y+x
x=x+2
Next
Print x.y
End sub
知道答案是 12 18 但是看不懂过程...解释一下它的程序 麻烦了
写出程序
还有道题...
在窗体上画了一个名称为command1的命令按钮，然后编写如下程序
private sub command1_click()
static x as integer
Cls
For i = 1 to 2
y=y+x
x=x+2
Next
Print x.y
End sub
知道答案是 12 18 但是看不懂过程...解释一下它的程序 麻烦了
Private Sub Command2_Click()
Dim pai As Double
Dim n As Double
For n = 1 To 10000
pai = pai + 1 / (4 * n - 3) - 1 / (4 * n - 1)
Next n
pai = 4 * pai
MsgBox pai
End Sub
'Static x As Integer表示把x定义为了静态变量，静态变量的结果是被保存下来的，下次用的时候它就是上次运行的结果而不是零。
'答案是:
'第一次:4 2 i=1时:y=x+y=0+0=0 x=x+2=0+2=2;i=2时:y=x+y=2+0=2 x=x+2=2+2=4
'第二次:8 10 i=1时:y=x+y=4+0=4 x=x+2=4+2=6;i=2时:y=x+y=6+4=10 x=x+2=6+2=8
'第三次:12 18 i=1时:y=x+y=8+0=8 x=x+2=8+2=10;i=2时:y=x+y=10+8=18 x=x+2=10+2=12
求 圆周率 上面几位 都不是很准
还不如用这个简单又准确
Private Sub Command1_Click()
MsgBox 4 * Atn(1)
End Sub
Private Sub command1_click()
Static x As Integer
Cls
For i = 1 To 2
y = y + x
x = x + 2
Next
Print x, y
End Sub
答案是 x=4
y=2
ld 因为他只执行了两次循环
VB啊，我也不会，看不懂事，又记不住，哎，
定义模块 Declare Function FindWindow Lib "user32" Alias "F