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的值變成了常量，此時在程序中不允許再賦新值