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
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．死循环
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
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
5．（ ）程序基控制结构
A．序结构 B．组合结构 C．循环结构 D．选择结构
6．列while循环结构说法正确（ ）
A．While循环格式般：While（表达式）：语句者语句组
B．执行程中表达式般关系表达式逻辑表达式
C．表达式真执行循环体假退出循环
D．表达式假执行循环体真退出循环
7．关循环结构说法正确（ ）
A．循环结构算法基结构
B．程序设计中没循环结构
C．循环结构程序设计会嵌套出现
D．PYTHON 程序设计语言中循环结构般IF语句实现
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
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
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
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
二判断题
12．循环中continue语句作跳出循环执行（_____）
三简答题
13．列举Python程序设计语言中for循环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 中显示容 _____
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
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
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
学校___________姓名：___________班级：___________考号：___________
选择题
1．某查找算法部分VB程序代码：
i1：j8：k0
key15
Do While i
mInt（（i+j）2）
If key
数组元素a（1）a（8）数次1415151728303740该程序执行完毕列变量值正确（ ）
A．i4 B．m2 C．j3 D．k3
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．死循环
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
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
5．（ ）程序基控制结构
A．序结构 B．组合结构 C．循环结构 D．选择结构
6．列while循环结构说法正确（ ）
A．While循环格式般：While（表达式）：语句者语句组
B．执行程中表达式般关系表达式逻辑表达式
C．表达式真执行循环体假退出循环
D．表达式假执行循环体真退出循环
7．关循环结构说法正确（ ）
A．循环结构算法基结构
B．程序设计中没循环结构
C．循环结构程序设计会嵌套出现
D．PYTHON 程序设计语言中循环结构般IF语句实现
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
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
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
11．某分查找算法 VB 程序段
n0i1j8 keyVal(Text1Text)
Do While i
nn+1
If keyd(m) Then Exit Do
If key > d(m) Then jm1 Else im+1
Loop
If i
A．75 B．36 C．24 D．15
二判断题
12．循环中continue语句作跳出循环执行（_____）
三简答题
13．列举Python程序设计语言中for循环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 中显示容 _____
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
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
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
