1樓：表亭晚頻醜
dima,
b,s,ias
integer
'定義變數a=
val(text1.text)
'把text1由字串轉成數值後賦值給變數ab=val(text2.text)
'同上s=0
's的值歸零i=
a'把a的值賦值給變數i
dowhile
i<=b'當i<=b的時候做迴圈s=
s+i'把i的值累加到s上i=
i+1'i增加1
loop
'迴圈結尾
msgbox
"計算結果為:"&s
'用對話方塊輸出計算結果s
endsub'結束
2樓：
for ...to,用在知道迴圈次數的時候比較方便do while....loop 用在在迴圈時判斷條件，條件滿足執行，不滿足就退出
例如你要計算1＋2＋3＋...+100的值則用for to要計算1＋2＋3＋4＋5＋...什麼時候大於1000，並返回最後一個數時用do while....loop
3樓：匿名使用者
求：1+2+……+10的和
for i=1 to 10
sum=sum+i
next
同樣求：1+2+……+10的和
i=1do while i<=10
sum=sum+i
i=i+1
loop
在vb中語句for j = 3 to 20 step 3 使迴圈體執行了幾次。
4樓：
（終值-初值）\ 步長 +1
（20-3）\3+1=6
5樓：
36912
1518
一共6次
一道有關於Cls的VB題，關於vb中cls的
private sub form click static a as integer 定義a為靜態變數 static b as integer 同上 cls 清除窗體上顯示的內容 b 1 每次執行的時候都先把b賦值為1,所以把b定義為靜態變數看不出效果的 b b 5 每次都是6 a 5 a 執行第一...
關於VB中的goto的用法
書時芳支培 在你要goto 的地方加標號，可以是數字或者字母，以冒號結尾做區別如recycle a b c goto recycle 當執行到goto即會跳轉到對應地方 a private sub command1 click b dim n as integer,s as stringc n 1 ...
關於VB中A尋路演算法的提問
亂石穿空 定理 穿越於一組互不相交的多邊形障礙物s之間 從pstart通往pgoal的任何一條最短路徑，都是一條多邊形路徑，其中所有的內部頂點都是s的頂點。推廣 所有最短路徑問題。結論 只有普遍適用的演算法，沒有普遍適用的 補充 只有問題例項化才能寫出適用 你所遇到的可不只是尋路問題，二維尋路相對簡...