4.4.2while循环的应用-粤教版（ ）高中信息技术必修一练习（解析版）

442while循环应粤教版（2019）高中信息技术必修练
学校___________姓名：___________班级：___________考号：___________


选择题
1．某查找算法部分VB程序代码：
i1：j8：k0
key15
Do While i kk+1
mInt（（i+j）2）
If keyLoop
数组元素a（1）a（8）数次1415151728303740该程序执行完毕列变量值正确（ ）
A．i4 B．m2 C．j3 D．k3
答案B
解析
分析
详解
题考查VB二分查找算法相关知识点
第轮循环 k1m4key15第二轮循环 k2m2key15a(2)15 i3
第三轮循环 k3m3key15a(3)15 i4
退出循环程序执行完毕时i4m3j3k3
题选B选项
2．程序段：
i 1
s 0
while i < 7
s s + i
i i + 1
if i 5
break
print(17累加值：s)
程序运行输出结果：（ ）
A．10 B．15 C．21 D．死循环
答案A
解析
分析
详解
题考查程序分析程序中i5时执行break跳出循环程序执行结果1+2+3+410A选项正确余选项均符合题意
3．Visual Basic程序段：
Private Sub Command1_Click ()
Dim x As Integerr As Integer s As String
x Val(Text1 Text) s
Do While x<>0
r(x+1) Mod 2
sStr(r)+s
xx＼2
Loop
Text2 Text s
End Sub
该程序段运行文框Text1中输入25文框Text2显示容（ ）
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程序段根do while循环结构r(x+1) Mod 2sStr(r)+sxx＼2三条语句知该循环作十进制转换二进制0转换11转换025二进制11001转换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
Text1Text ret
执行该程序段文框 Text1 中显示容（ ）
A．JFae B．JFea C．eaJF D．EAfj
答案A
解析
详解
题考查VB程序执行while循环中rx mod 104095 mod 1055 Mod 2 1retFxx＼10409第二遍循环rx mod 10409 mod 1099 Mod 2 1retJFxx＼1040第三遍循环rx mod 1040 mod 1000 mod 20retJFaxx＼104第四遍循环rx mod 104 mod 1044 Mod 2 0retJFae执行该程序段文框Text1中显示容JFae题选A选项
5．（ ）程序基控制结构
A．序结构 B．组合结构 C．循环结构 D．选择结构
答案ACD
解析
详解
题考查程序基控制结构程序基控制结构序结构循环结构 选择结构题选ACD选项
6．列while循环结构说法正确（ ）
A．While循环格式般：While（表达式）：语句者语句组
B．执行程中表达式般关系表达式逻辑表达式
C．表达式真执行循环体假退出循环
D．表达式假执行循环体真退出循环
答案D
解析
分析
详解
题考查while循环结构
While循环格式般：While（表达式）：语句者语句组执行程中表达式般关系表达式逻辑表达式表达式真执行循环体假退出循环题选D选项
7．关循环结构说法正确（ ）
A．循环结构算法基结构
B．程序设计中没循环结构
C．循环结构程序设计会嵌套出现
D．PYTHON 程序设计语言中循环结构般IF语句实现
答案D
解析
分析
详解
题考查循环结构相关知识点
PYTHON 程序设计语言中循环结构般forwhile语句实现题选D选项
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 + 05)
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
执行该程序段变量 c 值（ ）
A．1 2 B．2 3 C．3 4 D．4 2
答案C
解析
分析
详解
题考查VB程序段a(i) a(i 1) +Int(Rnd * 2) +1知项前项加1者2a(1)10a(2)11a(2)12a(2)11key11方分查找执行3次找c3a(2)12key11数组中存法找c4题选C
9．VB程序段：
i 1
Do While i < 6
a(i) Int(Rnd* 10) + 1
If a(i)Mod 2 I Mod 2 Then
ii1
Else If I Mod 2 0 Then
a(i) a(i – 1) + a(i)
End If
ii+1
Loop
执行该程序a(1)a(6) 元素值（ ）
A．613 811 6 17 B．81145817
C．898171011 D．6136949
答案A
解析
分析
详解
题考查程序阅读力根机函数值范围知数组a（i）初始值范围110间整数a（i） Mod 2 i Mod 2果成立需偶数位置偶数值奇数位置奇数值第If中i i 1满足条件重新产生值结果奇数位置偶数值偶数位置奇数值第二if语句执行条件该位置偶数时值前项前值求换前值A选项中17应通 6+a （6）a （6）值超106 + a（6）定17选A
10．VB程序段：
Dim i As Integer s As Integer
i0s1
Do While i < 10
If （1） Then
ss*2
End If
ii+l
Loop
执行该程序输出s值64（1）处应填入（ ）
A．i＼4 2 B．Sqr（i） Int （Sqr（i）） C．i Mod 2 1 D．i Mod 2 0
答案D
解析
分析
详解
题考查学生程序阅读力ss*21*2*2*2*2*2*264知选择语句执行6次i010i＼4 2满足选项A错误Sqr（i） Int （Sqr（i））49两满足选项B错误i Mod 2 113579满足选项C错误i Mod 2 00246810满足6次选项D正确
11．某分查找算法 VB 程序段
n0i1j8 keyVal(Text1Text)
Do While i m(i+j)＼2
nn+1
If keyd(m) Then Exit Do
If key > d(m) Then jm1 Else im+1
Loop
If i数组元素 d(1)d(8)值次877550443624158输入某key值运行该程序段变量s 结果 2输入key值（ ）
A．75 B．36 C．24 D．15
答案B
解析
分析
详解
题考查分查找分析代码变量s2果执行分支sn 2需满足i>jn2变量n查找次数没找key (i>j说明未找)找2次推出 s2应该执行分支smn2第次m4n1成立第二次m2m6n2成立第三次 m1m3m5m7n3 （ m5n3时候找key时满足mn2keya(5)36答案选择B）第四次m8n4成立


二判断题
12．循环中continue语句作跳出循环执行（_____）
答案错
解析
详解
题考查continue语句作break跳出循环执行continue终止次循环表述错误

三简答题
13．列举Python程序设计语言中for循环while循环基格式
答案for 循环结构基格式：
for 循环变量 in 列表：
语句语句组
While循环格式：
While（表达式）：
语句者语句组
解析
分析
详解
题考查循环结构基格式

四操作题
14．某种编码 4 位二进制码组组前两位表示方两位表示距离编写程序 编码翻译成方距离距离值组编码两位二进制码转换十进制数值具体功： 文框 Text1 中输入连续组编码单击翻译钮 Commandl结果显示列表框 List1 中 程序运行界面图示

（1）程序运行时文框 Text1 Width 属性值 2020 Form_Load 事件程中添加语句____（单选填字母：A．Width2020 B．Text1Width 2020 C．Width Text12020）
（2）实现述功 VB 程序请划线处填入合适代码
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 _______________＇计算距离值
List1AddItem d + + Str(v)
i ______________
Loop
End Sub
（3）文框 Text1 中输入容1010单击翻译钮列表框 List1 中显示容 _____
答案B ① Text1Text Text ② b1 * 2 + b2 等价答案 ③ i + 4 等价答案 西 2
解析
详解
题考查VB相关知识（1）文框Text1Width属性值2020Form_Load事件程中添加语句Text1Width2020选B（2）第空变量sText1（3）第二空计算距离值填入b1*2+b2（4）第三空题干指出组前两位表示方两位表示距离ii+4（5）文框Text1中输入容1010前两位10代表西两位数字2列表框List1中显示容西2
15．奕学基排序算法设计数字矩阵排序程序程序界面图示文框中输入矩阵点击生成钮 Command1左侧列表框 List1 中输出长宽均指定机整数矩阵 机整数范围[199]点击排序钮 Command2结果输出右侧列表框 List2 中奇数行左右次递增偶数行右左次递增保持输出矩阵长宽变

（1）实现述功 VB 程序显示数Additem 种 （单选填字母：A．属性名B．事件名C．方法名D．程名）
（2）请划线处填入合适代码
（3）程序中加框处代码错请改正
Dim a(1 To 100) As Integer

Dim n As Integer
Function dq(s As String L As Integer) As String ＇定义齐函数＇输入字符串 s 前加干空格输出长度 L 字符串代码略
End Function
Private Sub Command1_Click() ＇生成数字矩阵机生成 n^2 数字存储数组 a 中代码略
行 n n 行格式显示 List1 中代码略
End Sub
Private Sub Command2_Click() ＇数字矩阵排序
Dim i As Integer k As Integer j As Integer s As String Dim f As Boolean
List2Clear 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 List2AddItem s
②
Next i End Sub
答案（1）C
（2）①k>j+ 1 ②fNot f
（3） i+n1
解析
详解
题考查VB综合力（1）additem种方法名（2）第空DO While循环泡排序循环根题干次排序排第i行n数a(j)a(j+n1)排序填入k>j+1（3）第二空f代表奇偶行奇数行fTrue偶数行反填入fNot f（4）次排序排第i行n数加框处改i+n1
16．输入十进制数n转换成二进制划线处填空实现述功VB程序请划线处填入合适代码
Private Sub Command1_Click()
Dim a As Integer s As String
Dim n As Integer t As Integer v As Integer
n Val(Text1Text)
s
Do While n > 0
a ___________
n _____________
s _____________
Loop
Text2Text s
End Sub
答案n mod 2 n＼2 str(a)+s
解析
详解
题考查进制转换十进制转二进制整数部分数反复2第次外次2均取前次商整数部分作数次记次余数外商位余数求二进制数高位（1）题目中变量a应该n2余数第空填入n mod 2（2）n完成次法余数应该进行次取整数部分第二空填入nn＼2（3）变量s结果注意次余数应该放结果变量前面采倒序相加第三空填入str(a)+s

文档香网(httpswwwxiangdangnet)户传

《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档