緊急詢問 VB 程式段 s 1 3 5 7 999 的價值

private sub command1_click()s=0for i = 1 to 1000 step 2s = s + i

next i

print s

end sub

或。 private sub command1_click()i = 1do while i <= 1000s = s + i

i = i + 2

loopprint s

end sub

或。 private sub command1_click()i = 1do until i > 1000s = s + i

i = i + 2

loopprint s

end sub

答案是 250,000 您可以將其複製到 vb** 視窗並嘗試一下......

階乘 99 接近 10 的 156 次冪，即它是乙個 155 位值，不能完全儲存在 VB 值型別中。

一般演算法型別的程式設計問題，如求該值的最後6位數字，或者使用貪婪演算法計算階乘和問題，此類問題通常不超過10個階乘值或整數變數的範圍。

s=0for i= 1 to 99

for j=1 to i

s1=1s1=s1*j

next j

s=s+s1

next i

總結。 以下是當 i 項的值小於 10 的 -4 次冪時計算 s s s s 的 **：

VB程式設計計算s=1+1 2+1 4+1 7+1 11+1 16+1 22+1 29+...當項 i< -4 的值為 10 的冪時。

以下是滑移器使用 Visual Basic 編寫的 s 計算的**，它允許滑移 ** 計算 i 項值小於 10 的 -4 次方時 s 的摺疊值

在這種情況下，我們使用乙個迴圈來計算每個殘障專案的值，並將其新增到變數 s 中，直到當前專案的值小於該值。 在每個迴圈中，我們首先將 i 的值增加 1，然後使用小數形式的一般項等式 1 （（i-1）*（i+1）） 計算當前項的值。 計算出當前項的值後，將其新增到 s 中，直到當前項的值小於。

最後，我們使用 msgbox 函式在訊息框中顯示 s 的值。 請注意，這個求和級數的計算是無限的，所以在**中，我們使用乙個迴圈來控制計算的結束。

有沒有乙個基本的，比如在範圍內使用 from i 或類似 while 的東西

Dim i As 和 mzgbox 還沒有被學習。

你能看看這個嗎？

我要麼想要乙個詳細的答案，要麼我想採取不同的方法，因為這是學校的家庭作業，我還沒有學會你給我的這個方法。

將 msgbox 替換為控制台

我認為你想要的是上面的公式。

我沒有看到這個公式的定律。