vb编写程序求p的值

Ⅰ VB编程 谢谢啦 编写程序，用近似公式 求的近似值（直到最后一项的绝对值小于10^-4为止）

PrivateSubCommand1_Click()
k=1
DoWhile1/(2*k-1)>=10^(-4)
s=s+(-1)^(k-1)/(2*k-1)
k=k+1
Loop
Print"π≈";4*s
EndSub

Ⅱ 用VB编程，求这样的四个自然数p,q,r,s(p<=q<=r<=s),使得以下等式成立： 它们的倒数和等于1

因为：p<=q<=r<=s

所以：1/p>=1/q>=1/r>=1/s

因为：1/p+1/q+1/r+1/s = 1

所以：1/p+1/p+1/p+1/p >=1 从而推出：p<=4

因为：p,q,r,s都是自然数，显然，p必须大于1，所以 2<=p<=4 推出：1/2 >=1/p >=1/4

所以：1/q+1/r+1/s = 1 - 1/p 从而推出： 1/2 <= 1/q + 1/r + 1/s 所以：1/2<=1/q+1/q+1/q

从而得到：q<=6 所以：q = p to 6

到此，我们至少推断出两点：p = 2 to 4 ；q = p to 6

因为p<=q，所以如果p=2，而且倒数和为1，所以q必须大于2，如果p>2，那么q还是必须大于2，

所以可以确定：3<=q<=6 得到 1/3 >=1/q>=1/6，而1/2>=1/p>=1/4

所以：1/3+1/2>=1/q+1/p>=1/6+1/4 推出：5/6>=1/p+1/q>=5/12 那么:1/6<=1/r+1/s<=7/12

因为：1/6<=1/r+1/s<=1/r+1/r 所以：r<=12

因为：1/p>=1/q>=1/r>=1/s 而且1/p+1/q+1/r+1/s = 1 所以：1/s+1/s+1/s+1/s<=1/p+1/q+1/r+1/s=1

所以：s>=4

当p,q均取最小值的时候，p=2,q=3，那么1/p+1/q=5/6，所以1/r +1/s =1/6 ，当且仅当r的值最接近6的时候,s取得最大值，也就是r=7的时候s取得最大值42.

到此，我们得出了 p = 2 to 4 , q = 3 to 6 ; r<=12;4<=s<=42

为了防止数学推算部分的遗漏，将r和s的取值范围扩大，得到如下代码：

Sub Comand2_Click()
Dim p, q, r, s
For p = 2 To 4
For q = p To 6
For r = q To 100
For s = r To 1000
If (p * q * r + p * q * s + q * r * s + p * r * s) / (p * q * r * s) = 1 Then Print p & "," & q & "," & r & "," & s
Next s, r, q, p
End Sub

Ⅲ vb题：求p的值。p=1+2！+3！+4！+5！+6！+7！+8！+9！+10！

Function jiecheng(ByVal n As Long) As Long
Dim v As Long
Dim i As Long

If n <= 1 Then
jiecheng = 1
Else
v = 1
For i = 2 To n
v = v * i
Next i
jiecheng = v
End If

End Function

Private Sub Command1_Click()
Dim p As Long
Dim i As Long

For i = 1 To 10
p = p + jiecheng(i)
Next i
Print p

End Sub

Ⅳ VB编程 数学问题

'第一问

PrivateSubCommand1_Click()

DimP,I,J,JC

P=0

ForI=1To9Step2

JC=1

ForJ=1ToI

JC=JC*J

NextJ

P=P+JC

NextI

Text1.Text=P

EndSub

'第二问

PrivateSubCommand2_Click()

DimM,N,S

S=0

N=0

ForM=1To100

IfMMod7=0Then

N=N+1

S=S+N

EndIf

NextM

Text2.Text=N

Text3.Text=S

EndSub

Ⅳ 在VB中，编写一个程序，计算15！-8！+5！的值。

当键盘输入n，表示求该式的前n项的和。

比如输入3，就是求：1*3+2*4+3*5

比如输入2，就是求：1*3+2*4

所以代码为：

dim n as integer

dim s as double

dim i as integer

n = Val(InputBox("输入一个正整数!"))

s =0

for i = 1 to n

s = s + i*(i+2)

next i

Print s

(5)vb编写程序求p的值扩展阅读：

在计算机系统中，一条机器指令规定了计算机系统的一个特定动作。一个系列的计算机在硬件设计制造时就用了若干指令规定了该系列计算机能够进行的基本操作，这些指令一起构成了该系列计算机的指令系统。在计算机应用的初期，程序员使用机器的指令系统来编写计算机应用程序；

这种程序称为机器语言程序。使用机器语言编写的程序，由于每条指令都对应计算机一个特定的基本动作，所以程序占用内存少、执行效率高。缺点也很明显，如：编程工作量大，容易出错；依赖具体的计算机体系，因而程序的通用性、移植性都很差。

Ⅵ vb题：求p的值。p=1+2！+3！+4！+.........+19!+20!

Function jiecheng(ByVal n As Long) As Long Dim v As Long Dim i As Long If n <= 1 Then jiecheng = 1 Else v = 1 For i = 2 To n v = v * i Next i jiecheng = v End If End Function Private Sub Command1_Click() Dim p As Long Dim i As Long For i = 1 To 10 p = p + jiecheng(i) Next i Print p End Sub

Ⅶ VB程序计算

你这代码是错误的

Option Base
Private Sub Command1_Click()
Dim a(10),p(5) As Integer‘p(3) As Integer
k=0
For i=1 To 10’初始化数组A
a(i)=i
Next i
For i=1 To 5‘初始化数组P
p(i)=a(i*2)
Next i
For i=1 To 5’计算K 5次
k=k+p(i)*a(i)
Next i
MsgBox k
End Sub
结果显示110

Ⅷ vb编程 算圆周率

圆周率π，在vb
编程中，你用健盘是输入不到这个值的，你得用一个常数来定义它的值，如计算圆的体积v=4/3*π*r*r*r,且设r为2，可以用下面的程序代码来编写：
（方法一）：let
p=3.141592
let
r=2
let
v=4/3*p*r*r*r
print
v
end
(方法二）：const
p=3.141592
let
r=2
let
v=4/3*p*r^3
print
v
end
说明：第二个是利用符号常量来代表∏，也就是用函数const定义了p的值，p的值变成了常量，此时在程序中不允许再赋新值