一、分析程式的執行結果（每題2分，共60分）
1、以下迴圈的執行次數是_____。
k=0do while k<=10
k=k+1
loop
2、下列程式段的執行後輸出的結果為_____。
i=4:a=5
doi=i+1:a=a+2
loop until i>=7
print "a=";a
3、下列程式的執行結果是____。
t = o : m = 1 : sum = 0
dot = t + m : sum = sum + t : m = m + 2
loop while m <= 9
print sum
4、下列程式段的執行時，共迴圈____次。
for a=0 to 1
for b=1 to 2
for c=1 to 3
i=i+1
next c
next b
next a
5、下列程式段的執行結果是：
sub sele()
dim n as integer
i=21:n=3
do while i>n
i=i-n
loop
print i
end sub
列印結果
6、執行下面的程式段後，s的值為____。
s=5for i=2.6 to 4.9 step 2
s=s+1
next i
7、下列程式段的執行後輸出的結果為_______。
k = 1
for i = 1 to 3
a = i ^ i ^ k
next i
print a
8、下列程式的執行結果是_____。
m1 = 1:m2 = 1
do while m2<>6
m1 = m1*m2 : m2 = m2+1
loop
print m1
9、下列程式的執行結果是_____。
private function p(n as integer)
for i = i to n
sum = sum + 1
next i
p = sum
end function
private sub command1_click()
s = p(1) + p(2) + p(3) + p(4)
print s;
end sub
10、以下程式用來輸出1到100所有奇數的和，請補充完該程式。
private sub command3_click()
dim s as long
dim x as integer
s = 0
for x=1 to 100 step____
s = s + x
next x
print s
end sub
11、下列程式的執行結果是_______。
a = 75
if a>60 then
i = 1
elseif a>70 then
i = 2
elseif a>80 then
i = 3
elseif a>90 then
i = 4
end if
print i
12、下列程式段的執行後t的值為______。
dim t,k as single
k=5 : t=1
do while k>=-1
t=t*k : k=k-1
loop
13、下面程式段的輸出結果是_____。
p=0:s=0
dop = p+2
s = s+p
loop while p<11
print "s="&s
14、下面程式段的輸出結果是______。
for x=1.5 to 5 step 5
print x;
next x
15、執行下面的程式段後，s的值為______。
s=5for i=2.6 to 4.9 step 0.6
s=s+1
next i
16、在窗體上畫乙個命令按鈕，然後編寫如下事件過程：
private sub command1_click()
a=inputbox("請輸入乙個整數")
b=inputbox("請輸入乙個整數")
print a+b
end sub
17、程式執行後，單擊命令按鈕，在輸入對話方塊中分別輸入321和456，輸出結果為____。
執行下面的程式段後，b的值為_____。
a=300:b=20
a=a+b:b=a-b:a=a-b
18、下列程式段執行後x的值是______。
x=100 : y=50
if x>y then x=x-y else x=x+y
19、有如下程式，該程式的執行結果是______。
a=20 : b=10
print a>b
20、有如下程式，該程式的執行後輸出的結果是______。
private sub command1_click()
i="aaaaaa"
mid(i,4,3)="bbb"
print i
end sub
21、下面程式段執行後的結果是_____。
x=10
for i=6.3 to 4.9 step -0.3
x=x-1
next
print x
22、在窗體上畫乙個命令按鈕(其name屬性為command1)，然後編寫如下**：
private sub command1_click()
dim m(10) as integer
for k=1 to 10
m(k)=12-k
next k
x=6print m(2+m(x))
end sub
程式執行後，單擊命令按鈕，輸出結果是
23. 在窗體上畫乙個命令按鈕，然後編寫如下事件過程。程式執行後，單擊命令按鈕，依次在輸入對話方塊中輸入5，4，3，2，1，-1，輸出結果為________
private sub command1-click()
x=0do until x=-2
a=val(inputbox(」請輸入a的值」))
b=val(inputbox(」請輸入b的值」))
x=val(inputbox(」請輸入x的值」))
a=a+b+x
loop
print a
endsub
24、 以下程式段中do…loop迴圈執行的次數為________。
n=5do if n mod 2=0 then
n=n＼2
else
n=n*3+1
end if
loop until n=1
a.4 b.3 c.5 d.2
25. 下列程式段執行後，x的值為________。
x=0for i=1 to 10
for j=i to 10
x=x+1
next j
next i
a.50 b.55 c.100 d.105
26. 下面的程式執行結果是________。
private sub form_click()
i=0do i=i+1
if i>10 then exit do
loop until i<10
print i
end sub
27. 下面的程式執行後輸出的結果是________
for i=1 to 2
s=ifor j=0 to i-1
s=s+s*i
next j
print s
next i
28. 以下程式輸出的結果為________。
x=1y=4do until y>4
x=x*y
y=y+1
loop
print x
29. 下列程式執行後，輸出結果為________。
b = 1
do while b < 40
b = b * (b + 1)
loop
print b
30．當變數x=2，y=5時，以下程式的輸出結果為________。
do until y>5
x=x*y
y=y+1
loop
print x
二、程式填空（每題4分，共40分）
1) 下列程式的作用是將三個數按從大到小進行排序，請補充完該程式。
if a d=a:a=b:b=d
endif
if a d=a:a=c:c=d
endif
if_____then
d=b:b=c:c=d
endif
print a,b,c
2) 給定年份，下列程式用來判斷該年是否閏年，請補充完該程式。
提示：閏年的條件是年號可以被4整除但不能被100整除，或者能被400整除。
private sub command6_click()
dim y as integer
y=inputbox("請輸入年號")
if(y mod 4=0y mod 100<>0) or (y mod 400=0) then
print "是閏年"
else print "是普通年份"
end if
end sub
3) 以下的程式用來輸出100到2000間不能被3整除的數字，請補充完該程式。
private sub commmand1_click()
dim x as integer
x = 100
do until x > _____
if x mod 3 <> 0 then
print x
end if
x = x + 1
loop
end sub
4) 下列迴圈語句，要求和數達到10既停止累加，退出迴圈，請補充完程式。
for j=1 to 10
s=s+j
if s>=10 then______。
next j
5) 下列程式用來計算1+2+3……+10的值，請補充完程式。
dim t,k as single
k=0do while k<10
k=k+1:______
loop
print t
6. 找出被3、5、7除，餘數為1的最小的5個正整數。
C語言迴圈結構練習題
while語句的使用格式和注意事項 do while語句的使用格式和注意事項 for語句的使用格式和注意事項 break和continue語句在迴圈語句中的應用 迴圈結構的巢狀 使用goto語句實現迴圈結構 窮舉法程式設計方法 迭代程式設計方法 1 語句while e 中的條件 e等價於 a.e 0...
VB上機練習題
1 乙個數如果恰好等於它的因子之和，這個數就稱為 完數 例如 6的因子為 2，3，6 1 2 3，所以 是乙個完數，編乙個程式，找出1000以內的完數,並以列表框顯示，完數的個數用文字框輸出。private sub form click dim n,r,j,i as integer n 1000 x...
C語言迴圈結構l練習題
迴圈結構複習 考點1 while語句構成的迴圈結構 一 選擇題 1 以下不構成無限迴圈的語句或者語句組是 2008.04 a n 0b n 0 do while n 0while 1 c n 10d for n 0,i 1 i while n 程式執行後的輸出結果是2007.09 a y 0 b y...