資源簡(jiǎn)介

4.4.2while循環(huán)的應(yīng)用-粵教版（2019）高中信息技術(shù)必修一練習(xí)
學(xué)校:___________姓名：___________班級(jí)：___________考號(hào)：___________
一、選擇題
1．某查找算法的部分VB程序代碼如下：
i=1：j=8：k=0
key=15
Do While i<=j
k=k+1
m=Int（（i+j）/2）
If keyLoop
數(shù)組元素a（1）到a（8）的數(shù)據(jù)依次是“14，15，15，17，28，30，37，40”，該程序執(zhí)行完畢后，下列各變量的值不正確的是（ ）
A．i=4 B．m=2 C．j=3 D．k=3
【答案】B
【解析】
【分析】
【詳解】
本題考查VB二分查找算法相關(guān)知識(shí)點(diǎn)
第一輪循環(huán) k=1，m=4，key=15第二輪循環(huán) k=2，m=2，key=15=a(2)=15 i=3
第三輪循環(huán) k=3，m=3，key=15=a(3)=15 i=4
退出循環(huán)。程序執(zhí)行完畢時(shí)，i=4，m=3，j=3，k=3
故本題選B選項(xiàng)
2．有以下程序段：
i = 1;
s = 0;
while i < 7:
s = s + i;
i = i + 1;
if i == 5:
break;
print("1-7的累加值為：",s);
程序運(yùn)行后輸出的結(jié)果為：（ ）
A．10 B．15 C．21 D．死循環(huán)
【答案】A
【解析】
【分析】
【詳解】
本題主要考查程序的分析。程序中當(dāng)i==5時(shí)，執(zhí)行break跳出循環(huán)，因此本程序執(zhí)行結(jié)果為1+2+3+4=10，A選項(xiàng)正確；其余選項(xiàng)均不符合題意。
3．有如下Visual Basic程序段：
Private Sub Command1_Click ()
Dim x As Integer,r As Integer, s As String
x = Val(Text1. Text): s =""
Do While x<>0
r=(x+1) Mod 2
s=Str(r)+s
x=x\2
Loop
Text2. Text = s
End Sub
該程序段運(yùn)行后后，在文本框Text1中輸入25，則文本框Text2顯示的內(nèi)容是（ ）
A．0 0 1 0 1 B．1 1 0 1 0 C．0 0 1 1 0 D．1 1 0 0 1
【答案】C
【解析】
【詳解】
本題考查VB程序段。根據(jù)do while循環(huán)結(jié)構(gòu)，以及r=(x+1) Mod 2，s=Str(r)+s，x=x\2三條語(yǔ)句可知，該循環(huán)的作用將十進(jìn)制轉(zhuǎn)換為二進(jìn)制后的0轉(zhuǎn)換為1，1轉(zhuǎn)換為0。25二進(jìn)制是11001，故轉(zhuǎn)換后為00110，本題選C。
4．有如下VB程序段：
x = 4095 : s1 = "ABCDEFGHIJ" : s2 = "abcdefghij"
ret=""
Do While x > 0
r = x Mod 10
If r Mod 2 = 1 Then
ret = Mid(s1, r + 1, 1) & ret
Else
ret = ret & Mid(s2, r + 1, 1)
End If
x = x \ 10
Loop
Text1.Text = ret
執(zhí)行該程序段后，文本框 Text1 中顯示的內(nèi)容為（ ）
A．JFae B．JFea C．eaJF D．EAfj
【答案】A
【解析】
【詳解】
本題主要考查VB程序的執(zhí)行。while循環(huán)中，r=x mod 10=4095 mod 10=5，5 Mod 2 = 1，ret=F，x=x\10=409；第二遍循環(huán)，r=x mod 10=409 mod 10=9，9 Mod 2 = 1，ret=JF，x=x\10=40；第三遍循環(huán)，r=x mod 10=40 mod 10=0，0 mod 2=0，ret=JFa，x=x\10=4；第四遍循環(huán)，r=x mod 10=4 mod 10=4，4 Mod 2 =0，ret=JFae，故執(zhí)行該程序段后，文本框Text1中顯示的內(nèi)容為JFae，故本題選A選項(xiàng)。
5．（ ）是程序的基本控制結(jié)構(gòu)。
A．順序結(jié)構(gòu) B．組合結(jié)構(gòu) C．循環(huán)結(jié)構(gòu) D．選擇結(jié)構(gòu)
【答案】ACD
【解析】
【詳解】
本題主要考查程序的基本控制結(jié)構(gòu)。程序的基本控制結(jié)構(gòu)有順序結(jié)構(gòu)、循環(huán)結(jié)構(gòu) 、選擇結(jié)構(gòu)，故本題選ACD選項(xiàng)。
6．下列有while循環(huán)結(jié)構(gòu)的說(shuō)法不正確的是（ ）
A．While循環(huán)格式一般為：While（表達(dá)式）：語(yǔ)句或者語(yǔ)句組
B．執(zhí)行過(guò)程中表達(dá)式一般是一個(gè)關(guān)系表達(dá)式或邏輯表達(dá)式；
C．表達(dá)式為真執(zhí)行循環(huán)體；為假退出循環(huán)。
D．表達(dá)式為假執(zhí)行循環(huán)體；為真退出循環(huán)。
【答案】D
【解析】
【分析】
【詳解】
本題考查while循環(huán)結(jié)構(gòu)
While循環(huán)格式一般為：While（表達(dá)式）：語(yǔ)句或者語(yǔ)句組；執(zhí)行過(guò)程中表達(dá)式一般是一個(gè)關(guān)系表達(dá)式或邏輯表達(dá)式；表達(dá)式為真執(zhí)行循環(huán)體；為假退出循環(huán)。故本題選D選項(xiàng)
7．有關(guān)循環(huán)結(jié)構(gòu)的說(shuō)法不正確的是（ ）。
A．循環(huán)結(jié)構(gòu)是算法的基本結(jié)構(gòu)之一
B．有的的程序設(shè)計(jì)中沒(méi)有循環(huán)結(jié)構(gòu)
C．循環(huán)結(jié)構(gòu)在程序設(shè)計(jì)有可能會(huì)有嵌套出現(xiàn)
D．在PYTHON 程序設(shè)計(jì)語(yǔ)言中循環(huán)結(jié)構(gòu)一般使用IF語(yǔ)句實(shí)現(xiàn)。
【答案】D
【解析】
【分析】
【詳解】
本題考查循環(huán)結(jié)構(gòu)的相關(guān)知識(shí)點(diǎn)
在PYTHON 程序設(shè)計(jì)語(yǔ)言中循環(huán)結(jié)構(gòu)一般使用for或while語(yǔ)句實(shí)現(xiàn)。故本題選D選項(xiàng)
8．有如下 VB 程序段：
Const n = 10
Dim a(1 To n) As Integer
Dim mid As Integer, L As Integer, R As Integer Randomize
a(1) = 10
For i = 2 To n
a(i) = a(i - 1) +Int(Rnd * 2) + 1
Next i
c = 0: L = 1: R = n: flag = False: Key = 11
Do While L <= R And Not flag
mid = Int((L + R) / 2 + 0.5)
c = c + 1
If a(mid) = Key Then
flag = True
ElseIf a(mid) > Key Then
R = mid - 1
Else
L = mid + 1
END If
Loop
執(zhí)行該程序段后，變量 c 可能的值是（ ）
A．1 或 2 B．2 或 3 C．3 或 4 D．4 或 2
【答案】C
【解析】
【分析】
【詳解】
本題考查VB程序段。由a(i) = a(i - 1) +Int(Rnd * 2) +1可知。后一項(xiàng)為前一項(xiàng)加上1或者2。a(1)=10，則a(2)=11，或a(2)=12。若a(2)=11，key=11，下方對(duì)分查找執(zhí)行3次可以找到，c=3。若a(2)=12，則key=11數(shù)組中不存在，無(wú)法找到，c=4。故本題選C。
9．有如下VB程序段： .
i = 1
Do While i < = 6
a(i) = Int(Rnd* 10) + 1
If a(i)Mod 2 = I Mod 2 Then
i=i-1
Else If I Mod 2 = 0 Then
a(i) =a(i – 1) + a(i)
End If
i=i+1
Loop
執(zhí)行該程序后，a(1)-a(6) 各元素不可能的值是（ ）
A．6，13， 8，11， 6， 17 B．8，11，4，5，8，17
C．8，9，8，17，10，11 D．6，13，6，9，4，9
【答案】A
【解析】
【分析】
【詳解】
本題考查的是程序閱讀能力。根據(jù)隨機(jī)函數(shù)值的范圍，可知數(shù)組a（i）初始值的范圍為【1，10】之間的整數(shù)。a（i） Mod 2 = i Mod 2如果成立，則需要偶數(shù)位置偶數(shù)值或奇數(shù)位置奇數(shù)值。第一個(gè)If中的i = i - 1，不滿(mǎn)足條件要重新產(chǎn)生值，所以結(jié)果是奇數(shù)位置偶數(shù)值，偶數(shù)位置奇數(shù)值。第二個(gè)if語(yǔ)句執(zhí)行條件是該位置為偶數(shù)時(shí)，其值是前一項(xiàng)和當(dāng)前值求和，再替換當(dāng)前值。A選項(xiàng)中的最后17應(yīng)是通過(guò): 6+a （6）得到，但a （6）值不超過(guò)10，所以6 + a（6）一定小于17，故選A。
10．有如下VB程序段：
Dim i As Integer, s As Integer
i=0:s=1
Do While i <= 10
If （1） Then
s=s*2
End If
i=i+l
Loop
執(zhí)行該程序后，輸出s的值為64，則（1）處應(yīng)填入（ ）
A．i\4 = 2 B．Sqr（i） = Int （Sqr（i）） C．i Mod 2 = 1 D．i Mod 2 = 0
【答案】D
【解析】
【分析】
【詳解】
本題考查了學(xué)生程序閱讀能力。由s=s*2=1*2*2*2*2*2*2=64可知，選擇語(yǔ)句共執(zhí)行了6次。i從0到10，i\4 = 2只有一個(gè)滿(mǎn)足，故選項(xiàng)A錯(cuò)誤；Sqr（i） = Int （Sqr（i））只有4、9兩個(gè)滿(mǎn)足，故選項(xiàng)B錯(cuò)誤；i Mod 2 = 1，只有1、3、5、7、9滿(mǎn)足，故選項(xiàng)C錯(cuò)誤；i Mod 2 = 0，只有0、2、4、6、8、10滿(mǎn)足，共6次，故選項(xiàng)D正確。
11．某對(duì)分查找算法的 VB 程序段如下:
n=0:i=1:j=8 key=Val(Text1.Text)
Do While i <=j
m=(i+j)\2
n=n+1
If key=d(m) Then Exit Do
If key > d(m) Then j=m-1 Else i=m+1
Loop
If i<=j Then s=Str(m-n) Else s=Str(n)
數(shù)組元素 d(1)到d(8)的值依次為87，75，50，44，36，24，15，8，輸入某個(gè)key值,運(yùn)行該程序段后，變量s 結(jié)果為 2，則輸入key的值是（ ）
A．75 B．36 C．24 D．15
【答案】B
【解析】
【分析】
【詳解】
本題考查對(duì)分查找。分析代碼，變量s=2，如果是執(zhí)行分支s=n 得2，需滿(mǎn)足i>j，并且n=2，變量n是查找次數(shù)，即沒(méi)找到key (i>j說(shuō)明未找到)而且只找2次，這是不可能的，因此推出 s=2，應(yīng)該是執(zhí)行了分支s=m-n得2。第一次m=4，n=1，不成立，第二次，m=2或m=6，n=2，不成立，第三次， m=1或m=3或m=5或m=7，n=3。 （因此在 m=5，n=3的時(shí)候，找到了key，此時(shí)滿(mǎn)足m-n=2，即key=a(5)=36，所以答案選擇B。）第四次，m=8，n=4，不成立。
二、判斷題
12．在循環(huán)中continue語(yǔ)句的作用是跳出循環(huán)的執(zhí)行。（_____）
【答案】錯(cuò)
【解析】
【詳解】
本題主要考查continue語(yǔ)句的作用。break是跳出循環(huán)的執(zhí)行，continue是用于終止本次循環(huán)，故表述錯(cuò)誤。
三、簡(jiǎn)答題
13．列舉Python程序設(shè)計(jì)語(yǔ)言中，for循環(huán)和while循環(huán)的基本的格式。
【答案】for 循環(huán)結(jié)構(gòu)的基本格式：
for 循環(huán)變量 in 列表：
語(yǔ)句或語(yǔ)句組
While循環(huán)格式：
While（表達(dá)式）：
語(yǔ)句或者語(yǔ)句組
【解析】
【分析】
【詳解】
本題考查循環(huán)結(jié)構(gòu)的基本格式
四、操作題
14．某種編碼以 4 位二進(jìn)制碼為一組，每組前兩位表示方向，后兩位表示距離。編寫(xiě)一個(gè)程序，將 編碼翻譯成方向和距離，距離值為每組編碼后兩位二進(jìn)制碼轉(zhuǎn)換為十進(jìn)制數(shù)的值。具體功能如下： 在文本框 Text1 中輸入連續(xù)多組編碼，單擊“翻譯”按鈕 Commandl，結(jié)果顯示在列表框 List1 中。 程序運(yùn)行界面如圖所示。
（1）要使程序運(yùn)行時(shí)，文本框 Text1 的 Width 屬性值為 2020，可在 Form_Load 事件過(guò)程中添加語(yǔ)句____（單選，填字母：A．Width=2020 / B．Text1.Width = 2020 / C．Width. Text1=2020）。
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)趧澗€(xiàn)處填入合適的代碼。
Private Sub Command1_Click()
Dim s As String, c As String, d As String
Dim n As Integer, b1 As Integer, b2 As Integer, v As Integer, i As Integer
s = ____________
n = Len(s) : i = 1
Do While i <= n
c = Mid(s, i, 2)
If c = "00" Then
d = "東"
ElseIf c = "01" Then
d = "南"
ElseIf c = "10" Then
d = "西"
Else
d = "北"
End If
b1 = Val(Mid(s, i + 2, 1))
b2 = Val(Mid(s, i + 3, 1))
v = _______________'計(jì)算距離值
List1.AddItem d + "" + Str(v)
i = ______________
Loop
End Sub
（3）若文本框 Text1 中輸入的內(nèi)容為“1010”，單擊“翻譯”按鈕，列表框 List1 中顯示的內(nèi)容 是_____。
【答案】B ① Text1.Text 或 Text ② b1 * 2 + b2 或 其他等價(jià)答案 ③ i + 4 或 其他等價(jià)答案 西 2
【解析】
【詳解】
本題考查VB相關(guān)知識(shí)。（1）文本框Text1的Width屬性值為2020，可在Form_Load事件過(guò)程中添加語(yǔ)句Text1.Width=2020，選B。（2）第一空，變量s從Text1得到。（3）第二空，計(jì)算距離值，故填入b1*2+b2。（4）第三空，題干指出每組前兩位表示方向，后兩位表示距離，故i=i+4。（5）若文本框Text1中輸入的內(nèi)容為1010，前兩位10代表西，后兩位是數(shù)字2，故列表框List1中顯示的內(nèi)容是西2。
15．小奕同學(xué)基于排序算法設(shè)計(jì)了一個(gè)數(shù)字矩陣排序的程序。程序界面如下圖所示，在文本框中輸入矩陣大小，點(diǎn)擊“生成”按鈕 Command1，在左側(cè)列表框 List1 中輸出一個(gè)長(zhǎng)寬均為指定大小的隨機(jī)整數(shù)矩陣， 隨機(jī)整數(shù)范圍為[1，99]。點(diǎn)擊“排序”按鈕 Command2，結(jié)果輸出在右側(cè)列表框 List2 中，奇數(shù)行從左到右依次遞增，偶數(shù)行從右至左依次遞增，且保持輸出矩陣的長(zhǎng)寬不變。
（1）實(shí)現(xiàn)上述功能的 VB 程序如下，顯示數(shù)據(jù)用的Additem 是一種 （單選，填字母：A．屬性名/B．事件名/C．方法名/D．過(guò)程名）。
（2）請(qǐng)?jiān)趧澗€(xiàn)處填入合適的代碼。
（3）程序中加框處代碼有錯(cuò)，請(qǐng)改正。
Dim a(1 To 100) As Integer
Dim n As Integer
Function dq(s As String, L As Integer) As String '自定義對(duì)齊函數(shù)'在輸入的字符串 s 前加若干空格，輸出長(zhǎng)度為 L 的字符串，代碼略
End Function
Private Sub Command1_Click() '生成數(shù)字矩陣‘隨機(jī)生成 n^2 個(gè)數(shù)字，存儲(chǔ)在數(shù)組 a 中，代碼略
‘以一行 n 個(gè)，共 n 行的格式顯示在 List1 中，代碼略
End Sub
Private Sub Command2_Click() '數(shù)字矩陣排序
Dim i As Integer, k As Integer, j As Integer, s As String Dim f As Boolean
List2.Clear f= True
For i = 1 To n ^ 2 Step n s = ""
For j = i To
k = n ^ 2
Do While ①
If a(k) < a(k - 1) Then
t = a(k): a(k) = a(k - 1): a(k - 1) = t
End If
k = k - 1
Loop
If f = True Then
s = s + " " + dq(Str(a(j)), 2)
Else
s = " " + dq(Str(a(j)), 2) + s
End If
Next j List2.AddItem s
②
Next i End Sub
【答案】（1）C
（2）①k>=j+ 1 ②f=Not f
（3） i+n-1
【解析】
【詳解】
本題考查VB綜合能力。（1）additem是一種方法名。（2）第一空，DO While循環(huán)是冒泡排序的內(nèi)循環(huán)，根據(jù)題干，每次排序排第i行的n個(gè)數(shù)據(jù)，從a(j)到a(j+n-1)的排序，故填入k>=j+1。（3）第二空，f代表奇偶行，奇數(shù)行f為T(mén)rue，偶數(shù)行反之，故填入f=Not f。（4）每次排序排第i行的n個(gè)數(shù)據(jù)，加框處改為i+n-1。
16．輸入一個(gè)十進(jìn)制數(shù)n，轉(zhuǎn)換成二進(jìn)制，在劃線(xiàn)處填空。實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€(xiàn)處填入合適代碼。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
s = ""
Do While n > 0
a = ___________
n = _____________
s =_____________
Loop
Text2.Text = s
End Sub
【答案】n mod 2 n\2 str(a)+s
【解析】
【詳解】
本題考查進(jìn)制轉(zhuǎn)換。十進(jìn)制轉(zhuǎn)二進(jìn)制，對(duì)于整數(shù)部分，用被除數(shù)反復(fù)除以2，除第一次外，每次除以2均取前一次商的整數(shù)部分作被除數(shù)并依次記下每次的余數(shù)。另外，所得到的商的最后一位余數(shù)是所求二進(jìn)制數(shù)的最高位。（1）題目中變量a應(yīng)該為n除以2得到的余數(shù)，故第一空填入n mod 2。（2）n在完成一次除法得到余數(shù)后，應(yīng)該進(jìn)行一次取整數(shù)部分，所以第二空填入n=n\2。（3）變量s是最后的結(jié)果，要注意每次得到的余數(shù)應(yīng)該放在結(jié)果變量的前面，采用倒序相加，故第三空填入str(a)+s。
試卷第1頁(yè)，總3頁(yè)4.4.2while循環(huán)的應(yīng)用-粵教版（2019）高中信息技術(shù)必修一練習(xí)
學(xué)校:___________姓名：___________班級(jí)：___________考號(hào)：___________
一、選擇題
1．某查找算法的部分VB程序代碼如下：
i=1：j=8：k=0
key=15
Do While i<=j
k=k+1
m=Int（（i+j）/2）
If keyLoop
數(shù)組元素a（1）到a（8）的數(shù)據(jù)依次是“14，15，15，17，28，30，37，40”，該程序執(zhí)行完畢后，下列各變量的值不正確的是（ ）
A．i=4 B．m=2 C．j=3 D．k=3
2．有以下程序段：
i = 1;
s = 0;
while i < 7:
s = s + i;
i = i + 1;
if i == 5:
break;
print("1-7的累加值為：",s);
程序運(yùn)行后輸出的結(jié)果為：（ ）
A．10 B．15 C．21 D．死循環(huán)
3．有如下Visual Basic程序段：
Private Sub Command1_Click ()
Dim x As Integer,r As Integer, s As String
x = Val(Text1. Text): s =""
Do While x<>0
r=(x+1) Mod 2
s=Str(r)+s
x=x\2
Loop
Text2. Text = s
End Sub
該程序段運(yùn)行后后，在文本框Text1中輸入25，則文本框Text2顯示的內(nèi)容是（ ）
A．0 0 1 0 1 B．1 1 0 1 0 C．0 0 1 1 0 D．1 1 0 0 1
4．有如下VB程序段：
x = 4095 : s1 = "ABCDEFGHIJ" : s2 = "abcdefghij"
ret=""
Do While x > 0
r = x Mod 10
If r Mod 2 = 1 Then
ret = Mid(s1, r + 1, 1) & ret
Else
ret = ret & Mid(s2, r + 1, 1)
End If
x = x \ 10
Loop
Text1.Text = ret
執(zhí)行該程序段后，文本框 Text1 中顯示的內(nèi)容為（ ）
A．JFae B．JFea C．eaJF D．EAfj
5．（ ）是程序的基本控制結(jié)構(gòu)。
A．順序結(jié)構(gòu) B．組合結(jié)構(gòu) C．循環(huán)結(jié)構(gòu) D．選擇結(jié)構(gòu)
6．下列有while循環(huán)結(jié)構(gòu)的說(shuō)法不正確的是（ ）
A．While循環(huán)格式一般為：While（表達(dá)式）：語(yǔ)句或者語(yǔ)句組
B．執(zhí)行過(guò)程中表達(dá)式一般是一個(gè)關(guān)系表達(dá)式或邏輯表達(dá)式；
C．表達(dá)式為真執(zhí)行循環(huán)體；為假退出循環(huán)。
D．表達(dá)式為假執(zhí)行循環(huán)體；為真退出循環(huán)。
7．有關(guān)循環(huán)結(jié)構(gòu)的說(shuō)法不正確的是（ ）。
A．循環(huán)結(jié)構(gòu)是算法的基本結(jié)構(gòu)之一
B．有的的程序設(shè)計(jì)中沒(méi)有循環(huán)結(jié)構(gòu)
C．循環(huán)結(jié)構(gòu)在程序設(shè)計(jì)有可能會(huì)有嵌套出現(xiàn)
D．在PYTHON 程序設(shè)計(jì)語(yǔ)言中循環(huán)結(jié)構(gòu)一般使用IF語(yǔ)句實(shí)現(xiàn)。
8．有如下 VB 程序段：
Const n = 10
Dim a(1 To n) As Integer
Dim mid As Integer, L As Integer, R As Integer Randomize
a(1) = 10
For i = 2 To n
a(i) = a(i - 1) +Int(Rnd * 2) + 1
Next i
c = 0: L = 1: R = n: flag = False: Key = 11
Do While L <= R And Not flag
mid = Int((L + R) / 2 + 0.5)
c = c + 1
If a(mid) = Key Then
flag = True
ElseIf a(mid) > Key Then
R = mid - 1
Else
L = mid + 1
END If
Loop
執(zhí)行該程序段后，變量 c 可能的值是（ ）
A．1 或 2 B．2 或 3 C．3 或 4 D．4 或 2
9．有如下VB程序段： .
i = 1
Do While i < = 6
a(i) = Int(Rnd* 10) + 1
If a(i)Mod 2 = I Mod 2 Then
i=i-1
Else If I Mod 2 = 0 Then
a(i) =a(i – 1) + a(i)
End If
i=i+1
Loop
執(zhí)行該程序后，a(1)-a(6) 各元素不可能的值是（ ）
A．6，13， 8，11， 6， 17 B．8，11，4，5，8，17
C．8，9，8，17，10，11 D．6，13，6，9，4，9
10．有如下VB程序段：
Dim i As Integer, s As Integer
i=0:s=1
Do While i <= 10
If （1） Then
s=s*2
End If
i=i+l
Loop
執(zhí)行該程序后，輸出s的值為64，則（1）處應(yīng)填入（ ）
A．i\4 = 2 B．Sqr（i） = Int （Sqr（i）） C．i Mod 2 = 1 D．i Mod 2 = 0
11．某對(duì)分查找算法的 VB 程序段如下:
n=0:i=1:j=8 key=Val(Text1.Text)
Do While i <=j
m=(i+j)\2
n=n+1
If key=d(m) Then Exit Do
If key > d(m) Then j=m-1 Else i=m+1
Loop
If i<=j Then s=Str(m-n) Else s=Str(n)
數(shù)組元素 d(1)到d(8)的值依次為87，75，50，44，36，24，15，8，輸入某個(gè)key值,運(yùn)行該程序段后，變量s 結(jié)果為 2，則輸入key的值是（ ）
A．75 B．36 C．24 D．15
二、判斷題
12．在循環(huán)中continue語(yǔ)句的作用是跳出循環(huán)的執(zhí)行。（_____）
三、簡(jiǎn)答題
13．列舉Python程序設(shè)計(jì)語(yǔ)言中，for循環(huán)和while循環(huán)的基本的格式。
四、操作題
14．某種編碼以 4 位二進(jìn)制碼為一組，每組前兩位表示方向，后兩位表示距離。編寫(xiě)一個(gè)程序，將 編碼翻譯成方向和距離，距離值為每組編碼后兩位二進(jìn)制碼轉(zhuǎn)換為十進(jìn)制數(shù)的值。具體功能如下： 在文本框 Text1 中輸入連續(xù)多組編碼，單擊“翻譯”按鈕 Commandl，結(jié)果顯示在列表框 List1 中。 程序運(yùn)行界面如圖所示。
（1）要使程序運(yùn)行時(shí)，文本框 Text1 的 Width 屬性值為 2020，可在 Form_Load 事件過(guò)程中添加語(yǔ)句____（單選，填字母：A．Width=2020 / B．Text1.Width = 2020 / C．Width. Text1=2020）。
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)趧澗€(xiàn)處填入合適的代碼。
Private Sub Command1_Click()
Dim s As String, c As String, d As String
Dim n As Integer, b1 As Integer, b2 As Integer, v As Integer, i As Integer
s = ____________
n = Len(s) : i = 1
Do While i <= n
c = Mid(s, i, 2)
If c = "00" Then
d = "東"
ElseIf c = "01" Then
d = "南"
ElseIf c = "10" Then
d = "西"
Else
d = "北"
End If
b1 = Val(Mid(s, i + 2, 1))
b2 = Val(Mid(s, i + 3, 1))
v = _______________'計(jì)算距離值
List1.AddItem d + "" + Str(v)
i = ______________
Loop
End Sub
（3）若文本框 Text1 中輸入的內(nèi)容為“1010”，單擊“翻譯”按鈕，列表框 List1 中顯示的內(nèi)容 是_____。
15．小奕同學(xué)基于排序算法設(shè)計(jì)了一個(gè)數(shù)字矩陣排序的程序。程序界面如下圖所示，在文本框中輸入矩陣大小，點(diǎn)擊“生成”按鈕 Command1，在左側(cè)列表框 List1 中輸出一個(gè)長(zhǎng)寬均為指定大小的隨機(jī)整數(shù)矩陣， 隨機(jī)整數(shù)范圍為[1，99]。點(diǎn)擊“排序”按鈕 Command2，結(jié)果輸出在右側(cè)列表框 List2 中，奇數(shù)行從左到右依次遞增，偶數(shù)行從右至左依次遞增，且保持輸出矩陣的長(zhǎng)寬不變。
（1）實(shí)現(xiàn)上述功能的 VB 程序如下，顯示數(shù)據(jù)用的Additem 是一種 （單選，填字母：A．屬性名/B．事件名/C．方法名/D．過(guò)程名）。
（2）請(qǐng)?jiān)趧澗€(xiàn)處填入合適的代碼。
（3）程序中加框處代碼有錯(cuò)，請(qǐng)改正。
Dim a(1 To 100) As Integer
Dim n As Integer
Function dq(s As String, L As Integer) As String '自定義對(duì)齊函數(shù)'在輸入的字符串 s 前加若干空格，輸出長(zhǎng)度為 L 的字符串，代碼略
End Function
Private Sub Command1_Click() '生成數(shù)字矩陣‘隨機(jī)生成 n^2 個(gè)數(shù)字，存儲(chǔ)在數(shù)組 a 中，代碼略
‘以一行 n 個(gè)，共 n 行的格式顯示在 List1 中，代碼略
End Sub
Private Sub Command2_Click() '數(shù)字矩陣排序
Dim i As Integer, k As Integer, j As Integer, s As String Dim f As Boolean
List2.Clear f= True
For i = 1 To n ^ 2 Step n s = ""
For j = i To
k = n ^ 2
Do While ①
If a(k) < a(k - 1) Then
t = a(k): a(k) = a(k - 1): a(k - 1) = t
End If
k = k - 1
Loop
If f = True Then
s = s + " " + dq(Str(a(j)), 2)
Else
s = " " + dq(Str(a(j)), 2) + s
End If
Next j List2.AddItem s
②
Next i End Sub
16．輸入一個(gè)十進(jìn)制數(shù)n，轉(zhuǎn)換成二進(jìn)制，在劃線(xiàn)處填空。實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€(xiàn)處填入合適代碼。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
s = ""
Do While n > 0
a = ___________
n = _____________
s =_____________
Loop
Text2.Text = s
End Sub
試卷第1頁(yè)，總3頁(yè)

展開(kāi)更多......

收起↑