如何使用 do 迴圈在 VB 程式設計中求出 5 個任意數字的總和？

右！

1 和 40 之間的可整除 5 是：

5、10、15、20、25、30、35、40，它們的總和是 180。

dim n as integer

sum = 0

n = 1do while n <= 40

if n mod 5 = 0 then sum = sum + nn = n + 1

loopprint sum

do while...迴圈並執行....loop while 之間的唯一區別是，當條件為 false 時，do....loop while 將再次執行。

以下 7 個迴圈可以達到相同的結果（將 100 替換為輸入 n 可以得到任意整數的圓和圓）：

s=0for i=2 to 100 step 2s=s+i

next i

ss=0for i=100 to 2 step -2s=s+i

next i

ss=0i=0do

i=i+2s=s+i

loop while i<100

ss=0i=0

do while i<100

i=i+2s=s+i

loop ss=0i=0

do until i=100

i=i+2s=s+i

loop ss=0i=0

doi=i+2

s=s+iloop until i=100

ss=0i=0

while i<100

i=i+2s=s+i

wend? s

這不得不問，這真是一天，我要舉報你。

自己做功課。

1. VB程式設計以Visual Basic簡體中文版為語言背景，簡單介紹Visual Basic程式設計技術，基本涵蓋了Visual Basic程式設計的常見內容。

2. VB程式設計分為14章，包括開發環境、語言基礎、陣列和程序、常用控制項、選單設計、檔案處理、ActiveX控制項、資料庫程式設計、圖形程式設計、多**程式設計、網路程式設計、API函式和註冊中心、安裝程式製作和綜合示例。

3.為了方便讀者學習，“VB程式設計”提供了多種課件，以及所有示例題和練習題的來源。

4. VB程式設計可作為高校計算機及相關專業的教材，適合程式設計愛好者自學。

private sub command1_click()dim a as long '1-100 dim b 之間的較小數字'較大的數字在 1-100 dim c 之間

a =b = '文字控制項來填充您需要做的範圍，而 a < = b

c = c + a'如果你不想包含 a，b 可以將上一句中的 a<=b 改為 aa = a+1

loopmsgbox & "跟" & "所有整數的總和為：" & cend sub

問題尚不清楚。

是您指定的任意兩個數字之間的總和，還是系統生成的任意兩個隨機數之間的總和？

前者由兩個變數直接限定，迴圈退出條件為達到最大退出次數並輸出結果。 很簡單。

後者使用隨機函式生成兩個數字，判斷最小數字和最大數字，從最小數字開始，在迴圈中加到最大數字退出。