1樓：快意島
doloop until
語句是一個條件迴圈
只有當until（只有） 後的條件成立時do後面的迴圈才結束一樓是正確的
i從1 到100 都不符合條件
所以一直執行語句
a = a + i
i = i + 1
當i>100 時條件成立
迴圈結束
再將a=5050列印出來
2樓：匿名使用者
do until loop先累加後迴圈至少累加一次
do loop until先迴圈後累加至少不累加
1樓**是對的
3樓：聽不清啊
private sub command1_click()dim s as integer, i as integers = 0
i = 1
dos = s + i
i = i + 1
loop while i <= 100
print "s=1+2+3+...+100="; send sub
4樓：匿名使用者
private sub command1_click()doa = a + i
i = i + 1
loop until i > 100
print a
end sub
5樓：禚平凡渠永
希望可以幫到你，滿意請採納，有問題請追問^_^
vb迴圈結構題 用do loop until迴圈語句編寫程式計算1!+2!+3!+……+20!
用vb寫設計程式**，求：s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值。
6樓：問明
function sumd(n as integer) as single
s = 1
i = 1
doi = i + 1
s = s + 1 / i
loop until i >= n
sumd = s
end function
function sumf(n as integer) as single
s = 0
for i = 1 to n
s = s + 1 / i
next i
sumf = s
end function
private sub form_click()sum1 = sumd(100)
sum2 = sumf(100)
print "sum1="; sum1
print "sum2="; sum2
end sub
執行結果是：
sum1=5.187377
sum2=5.187377
7樓：聽不清啊
private sub command1_click()n = cint(inputbox("n="))print "n="; n
for i = 1 to n
t = t + i
s = s + t
next i
print "sum="; s
end sub
8樓：小魚
private sub command1_click() dim n, s dim i, j n = val(inputbox("請輸入資料：")) for i = 1 to n for j = 1 to i s = s + j next j next i print s end sub
vb中運用計數迴圈結構計算出1+2+3+4+......+100的結果**？
9樓：匿名使用者
private sub form_click()dim s as integer, i as integers = 0
i = 1
dos = s + i
i = i + 1
loop until i = 101
print "s="; s
end sub
執行結果：
s= 5050
10樓：匿名使用者
vb你都會，地球人真是無法阻擋你了，
求平面設計用的電腦配置，求公司平面設計師用的電腦配置？
色彩主要更面板有關，預算充足你就買個8bit 8位色 的廣角屏，錢少就買個普通的6比抖8bit的廣角屏。點距方面避開21.5寸，因為點距太小不利於做圖。影響渲染速度是主要cpu，其次是記憶體。影響建模流暢程度主要是顯示卡的視訊記憶體和記憶體。cpu至少選個四核，然後記憶體選4 8g。顯示卡選個ddr...
用delphi設計軟體使用者登陸驗證網路SQL資料庫驗
1 建立管理員表 create table ad 密碼 char 8 primary key,姓名 varchar 20 2.管理員表初始化 insert into ad 密碼,姓名 values admin admin 3 建立學生表 create table student 學生學號 char ...
用Visual Basic程式求S 1 （
private sub form load s 1 1 2 1 2 3 1 2 3 4 1 2 3 n dim i as integer dim s as double dim n as integer dim a as integer n 10 s 0 text1.text i s a chr 1...