资源简介

浙江省金华十校2019-2020学年高二下学期信息技术期末调研考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2020高二下·金华期末）下列有关信息和信息表达的描述，正确的是（　　）
A．文字、语言、图形、声音、网络都是常见的信息表达技术
B．某计算机的CPU主频是3.90GHZ，体现了的存储容量大的特征
C．万维网采用SMTP协议将浏览器发出的请求发送到Web服务器
D．超链接可以实现不同网页间的链接，也可以链接到电子邮箱地址
2．（2020高二下·金华期末）下列有关多媒体信息加工和多媒体技术的说法，正确的是（　　）
A．一幅未经压缩的位图图像，内容越复杂，存储容量越大
B．某软件能自动朗读文本内容，该功能主要应用了多媒体技术中的语音识别技术
C．图像中某个区域的颜色、亮度、饱和度等相同，由此产生的数据重复称为空间冗余
D．矢量图放大后不会产生“锯齿形失真”，巨幅广告的图像一般都采用矢量图
3．（2020高二下·金华期末）使用Word软件编辑文档，部分界面如图所示，下列就法正确的是（　　）
A．文中的图片的文字环绕方式为“四周型环绕”
B．若接受所有修订，则第3行前半行文字将变为“服的时间都可能被感染，但是”
C．删除批注内容“摘自鲁迅杂文（中国人失掉自信力了吗》”，该“批注[A1]：”也删除
D．第6行“不”字下方有波浪线，表示启用了拼写和语法有检查，这是人工智能技术
4．（2020高二下·金华期末）观察字符内码如下图所示，以下说法正确的是（　　）
A．图中有4个ASCII码，5个区位码
B．字符“40”的十六进制编码为“34 30”
C．存储字符“3”需要1bit
D．“℃”存储时占用了4字节
5．（2020高二下·金华期末）在Goldwave中进行操作，当前操作界面如下图所示，下列说法正确的是（　　）
A．图中44100HZ，表示采用44100量化级别
B．这是一个双声道的无损压缩的音频格式文件
C．执行“删除”操作后，再选择左声道插人35秒静音，音频文件存储容量变大
D．执行“淡入”命令后，执行“更改音量”命令降低音量，文件存储容量不变
6．（2020高二下·金华期末）有一段时长为40分钟，1920* 1080，32位真彩色，采用PAL制的未经压缩的AVI无声视频，此段视频通过5G网络下载（5G网络理论下载速度可达到10Cbps），所需的时间约为（　　）
A．796s B．398s C．49s D．16s
7．（2020高二下·金华期末）下列有关VB属性说法正确的是（　　）
A．计时器每隔3秒Timer事件发生一次，则Interval属性应设置为3
B．设置标签框字体的颜色应在Font属性中设置
C．图像框（image）中图片的加载可以通过Picture属性设置
D．确定一个控件在窗体上位置的属性是Width和Height
8．（2020高二下·金华期末）某算法部分流程如图1所示，执行此部分流程后，下列说法正确的是（　　）
A．此流程使用枚举算法（枚举i的值），虚线框部分是分支结构
B．流程中sum←sum+i与i←i+1调换下位置，输出的sum，c，i的值都不变
C．最终i的值是401，i←i+1执行数是200次
D．将流程图修改为如图2所示，程序运行结果会发生变化。
9．（2020高二下·金华期末）有两个VB程序段，如下所示：
已知程序段中①②两处内容相同，数组元素a(1)到a（10）的值依次为：6，43，21，78，33，16，80，45，12，90，执行“程序段1”后，数组元素a(1)~a(10)的值依次为80，78，90，45 ，43，33，21，16，12，6，则下列说法正确的是（　　）
A．①和②处的填空为7
B．两程序段的比较次数不一样，交换次数一样
C．执行完程序段2后，数据6移动到了a(10)
D．两段程序的得到的运行结果相同
10．有如下VB程序段：
s = Text1.Text
For i=1 To Len(s)
ch = Mid(s,i,1)
If ch>="A" And ch<="Z" Then t=t+ch
If ch>="a" And ch<="z" Then
ch = Chr(Asc(ch)-32)
t=t+ch
ElseIf ch >= "0"And ch <= "9" Then
t=ch+t
End If
Next i
Text2.Text = t
已知'A'的ASCI码为65，'a'的ASCI码为97。程序运行后，在文本框Text1中输人“Text2.text=”Abc1234“”（外括号不包括），则在Text2中显示的内容是（　　）
A．TEXT2.TEXTABC1234 B．43212TexttextABC
C．43212TEXTTEXTABC D．TEXTTEXTABC43212
11．（2020高二下·金华期末）星星设计了10*10的矩阵，如下图所示：
实现此功能的VB程序段如下，已知程序中两处标记①的位置表达式相同，程序中①、②两处表达式为（　　）
Dim a(1 To 100) As Sting
For i= 1 To 10
For j=1 To 10
If i=j Or i Mod 10=0 Or i Mod 10= 1
Then
a( ① )="●"
Else
a( ① )="○"
EndIf
Next j
Next i
For i= 1 To 100
s=s+ a(i)
If ② Then
List1.Addltem s
End If
Next i
A．①（j-1）*10+i ②i mod 10=1
B．①（i-1）*10+ j ②i mod 10=1
C．①（j-1）*10+ i ②i mod 10=0
D．①（i- 1）*10+j ②i mod 10=0
12．（2020高二下·金华期末）某VB程序段如下图所示，执行程序段后，文本框Text2中显示的值不可能是（　　）
a(1)=0: a(2)=3: a(3)= 5: a(4)=7
a(5)= 9: a(6)= 11: a(7)= 13: a(8)= 15
a(9)= 17: a(10)= 19
key= Int(Rnd*5)*2+5
s=" "
i=1: j= 10
Do While i<= j
m=(i+j)\2
s=s+ Str(a(m))
If a(m)>key Then
j=m-1
Else
i=m+1
End If
Loop
Text1.Text= s
A．9 3 5 7 B．9 3 5
C．9 15 11 13 D．9 15 11
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高二下·金华期末）小豆制作了如图13-1所示的家居用品分类销售统计表，数据情况如图13-1所示。请回答下列问题：
（1）图13-1中的销售占比是各类销售金额占合计的比例。E4：E10的公式是从E3单元格自动填充功能得出的，可知E3单元格公式为　 　。
（2）要对图13-1中的数据按“销售金额”降序排序，则选择的数据区域为　 　。
（3）根据图13-1中的数据制作了如图13-2的图表，则图表的数据区域是　 　。
（4）若在操作过程中对D6单元进行了如图13-3所示的操作，则E6单元格的数据　 　（单选，填字母。A .变大 \
B .变小 \ C
.#REF！ \ D .#DIV/O！ ）
14．（2020高二下·金华期末）小灰制作了有关“公筷公勺”为主题的多媒体作品，请回答下列问题：
（1）使用Photoshop处理如图14-1所示，下列说法中正确的是　 　（多选 ，填写字母。A .可将“人物”图层的图层样式拷贝到“病毒”图层。/B .背景图层可以设置滤镜，也可以使用像皮擦。/C .“文明用餐使用公筷”图层不可以使用自由变换更改文字大小，但可以用文字工具更改文字大小。/D .“减少冠状病毒传染”图层设置滤镜必须栅格化图层，但可以用油漆简工具更改文字颜色。/E
.“新冠”图层可以移动到圆点图层上方，背景图层不能移动位置。）
（2）如图14-2所示，在“勺子”图层最后一帧（80 帧）设置了gotoandpaly(1)；的动作命令，“声音”图层的声音时长为40s，要求测试影片时（不点击按钮情况下）声音能完整的播放，且不会重复产生新的声音，则应将声音同步设为　 　（数据流/事件/开始）
（3）“勺子”图层实现了元件实例“勺子和筷子”的淡入动画，部分界面如图14-
2所示，则该补间类型为　 　（选填：动画补间/形状补间/逐帧动画）。
（4）“勺子”图层的动画效果是在第31帧至60帧，若要使“勺子”图层的动画从第1帧开始，到60帧结束，则可执行的操作　 　。
（5）测试影片时，点击“按钮”图层中的按钮时，声音停止播放并跳转到“主场景”的第6帧暂停，则此按钮的动作脚本为　 　。
15．（2020高二下·金华期末）出列顺序有10个人，编号分别为1，2，3……10按顺时针方向围坐成一圈，每次随机产生一个数m，m的范围为[3，7]的随机奇数，从第10个人开始逆时针报数，当报到m的人出列，圈内剩下的人，重新产生随机数m，重新开始报数，如此下去，直到所有人出列为止。如：若每次参数的随机数m都为5，从第10个开始报数，依次出列的为6-1-5-9-2-3-10-7-4-8
小李编写了如下程序求解10个人的出列顺序。程序运行界面如图15-1所示，点击求解按钮后，在Text1中输出出列顺序，在Text2中显示随机数据的值。
（1）在划线出填写正确的代码
Private Sub Command1 _Click(　　)
Dim ld（1 To 10） As Boolean， i As Integer， j As Integer
Dim rs As Integer， C As Integer， m As Integer
Randomize
For i=1 To 10
ld（i） = True ‘数组元素为True表示第i人当前在队列中
Next i
c=0：rs=10
　 　
m =Int（Rnd*3）*2+3
Do While rs <> 0
If ld（i） = True Then
　 　
If c=m Then
ld（i） = False
Text1.Text = Text1.Text + Str（i）
　 　
c=0
End If
End If
i =i-1
If 　 　Then i=10
Loop
End Sub
（2）加框处两语句互换下顺序，会不会对出列顺序产生影响　 　（选填：会/不会）。
16．（2020高二下·金华期末）某校进行模拟考，现有25名学生的语数英三门课的成绩（按百分制）存储在数据库student.accdb中的数据表cj中，现取出各学生成绩存储在cj(　　)数组中，成绩存放如下：
运行程序，点击“数据导入”按钮后，在列表框list1中显示所有数据。点击“排序"按钮，按总分从高到低计算名次（成绩相同的名次相同），并按排名先后在列表框list2中显示，数据要求对齐。程序运行界面如图16-1所示：
（1）观察程序及界面，可知“排序”按钮的对象名为　 　。
（2）实现上述程序功能的VB程序段如下，请在划线出填入合适的代码。
Dim cj（1 To 100） As Integer
Dim b（1 To 301） As Integer '分数为i的人数存入b（i）
Private Sub Cmdl_ Click(　　)
Dim conn
As New ADODB.Connection
Dim rs As
New ADODB．Recordset
conn.ConnectionString
= "Provider =Microsoft.ACE.OLEDB.12.0；Data Source= " &App.Path& "\studentaccdb"
conn.Open
Set rs.ActiveConnection
= conn
rs.Open
"SELECT*FROM cj"
n =1
Do While
Not rs.EOF
cj（n）= rs.Fields（"语文"）：cj（n+1） = rs.Fields（"数学"）
cj（n+2） = rs.Fields（"英语"）：cj（n+3） = cj（n）+cj（n+1）+cj（n+3）
　 　
rs.MoveNext
Loop
rs.Close：conn.Close
'此处代码略，用来实现将数据在list1中输出
End Sub
Private Sub paixu_ Click(　　)
Dim mc As
Integer
'预处理求b数组的值
For j=4 To
100 Step 4
　 　
Next j
'以下程序用于计算名次并按要求对齐输出
mc=1：b（301)=0
List2.AddItem"语文"+"数学"+"英语"+"总分"+"名次
List2.AddItem
"------------------------------------------------"
For i=300
To 1 Step -1
　 　
If b（i）
<> 0 Then
For
c=4 To 100 Step 4
If cj（c） = i Then
List2.AddItem　 　
End If
Next
c
End If
Next i
End Sub
'以下函数输出时数据s时，不足7位末尾补空格
Function gs（s As Integer） As String
Dim cd As
String
ed = CStr（s）
For i=1 To
7 -Len（cd）
cd=
cd+" "
Next i
gs = cd
End Function
答案解析部分
1．【答案】D
【知识点】信息表达方式与表达技术；网络协议
2．【答案】C
【知识点】多媒体数据压缩技术；图形与图像、位图与矢量图的概念
3．【答案】B
【知识点】文本的基本编辑；文本的图片与表格处理
4．【答案】B
【知识点】字符编码
5．【答案】D
【知识点】声音素材的基本处理；多媒体数据采集与编辑软件
6．【答案】B
【知识点】声音、图像、视频编码
7．【答案】C
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用
8．【答案】A
【知识点】流程图识读；常用算法
9．【答案】A
【知识点】排序算法及程序实现
10．【答案】C
【知识点】常量、变量及变量的赋值；分支结构语句及程序实现；循环结构语句及程序实现
【解析】【解答】根据条件If ch>=“A” And ch<=“Z” Then t=t+ch可知，大写字母直接顺序叠加，根据If ch>=“a” And ch<=“z” Then ch=Chr(Asc(ch)-32)t=t+ch可知是小写字母转换为大写字母后叠加。由If ch>= “0”And ch<= “9”Then t=ch+t，可知数字用的是倒序叠加，最后结果数字在前，全都是大写字母。故答案选C。
【分析】本题考查的是对VB程序段语句的理解。
11．【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】B
【知识点】查找算法及程序实现
13．【答案】（1）=D3/$DS10或 =D3/D$10
（2）A2：19或者A3：19
（3）B2：B9，D2：D9 或B3：B9、D3：D9
（4）C
【知识点】表格数据的处理与计算
14．【答案】（1）BCE
（2）开始
（3）动画补间
（4）“勺子”图层第 1帧清除关键帧或将“勺子”图层第31帧移动到第1帧
（5）on （real se/press） {stopallsounds(　　);gotoandstop（“主场景”,6）：}
【知识点】图层及图层的基本操作；动画的类型；动画的实现；常用影片控制函数的应用；声音同步属性设置
15．【答案】（1）i=10；c=c+1；rsrs-1；i=0
（2）不会
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
16．【答案】（1）paixu
（2）n=n+4；b（cj（i）） = b（cj（i）） + 1；mc=mc+b（i+1）；gs（cj（c-3）） + gs（cj（c- 2）） + gs（cj（c- 1）） + gs（cij（c）） + gs（mc）
【知识点】过程与自定义函数；排序算法及程序实现；程序访问数据库
1 / 1浙江省金华十校2019-2020学年高二下学期信息技术期末调研考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2020高二下·金华期末）下列有关信息和信息表达的描述，正确的是（　　）
A．文字、语言、图形、声音、网络都是常见的信息表达技术
B．某计算机的CPU主频是3.90GHZ，体现了的存储容量大的特征
C．万维网采用SMTP协议将浏览器发出的请求发送到Web服务器
D．超链接可以实现不同网页间的链接，也可以链接到电子邮箱地址
【答案】D
【知识点】信息表达方式与表达技术；网络协议
2．（2020高二下·金华期末）下列有关多媒体信息加工和多媒体技术的说法，正确的是（　　）
A．一幅未经压缩的位图图像，内容越复杂，存储容量越大
B．某软件能自动朗读文本内容，该功能主要应用了多媒体技术中的语音识别技术
C．图像中某个区域的颜色、亮度、饱和度等相同，由此产生的数据重复称为空间冗余
D．矢量图放大后不会产生“锯齿形失真”，巨幅广告的图像一般都采用矢量图
【答案】C
【知识点】多媒体数据压缩技术；图形与图像、位图与矢量图的概念
3．（2020高二下·金华期末）使用Word软件编辑文档，部分界面如图所示，下列就法正确的是（　　）
A．文中的图片的文字环绕方式为“四周型环绕”
B．若接受所有修订，则第3行前半行文字将变为“服的时间都可能被感染，但是”
C．删除批注内容“摘自鲁迅杂文（中国人失掉自信力了吗》”，该“批注[A1]：”也删除
D．第6行“不”字下方有波浪线，表示启用了拼写和语法有检查，这是人工智能技术
【答案】B
【知识点】文本的基本编辑；文本的图片与表格处理
4．（2020高二下·金华期末）观察字符内码如下图所示，以下说法正确的是（　　）
A．图中有4个ASCII码，5个区位码
B．字符“40”的十六进制编码为“34 30”
C．存储字符“3”需要1bit
D．“℃”存储时占用了4字节
【答案】B
【知识点】字符编码
5．（2020高二下·金华期末）在Goldwave中进行操作，当前操作界面如下图所示，下列说法正确的是（　　）
A．图中44100HZ，表示采用44100量化级别
B．这是一个双声道的无损压缩的音频格式文件
C．执行“删除”操作后，再选择左声道插人35秒静音，音频文件存储容量变大
D．执行“淡入”命令后，执行“更改音量”命令降低音量，文件存储容量不变
【答案】D
【知识点】声音素材的基本处理；多媒体数据采集与编辑软件
6．（2020高二下·金华期末）有一段时长为40分钟，1920* 1080，32位真彩色，采用PAL制的未经压缩的AVI无声视频，此段视频通过5G网络下载（5G网络理论下载速度可达到10Cbps），所需的时间约为（　　）
A．796s B．398s C．49s D．16s
【答案】B
【知识点】声音、图像、视频编码
7．（2020高二下·金华期末）下列有关VB属性说法正确的是（　　）
A．计时器每隔3秒Timer事件发生一次，则Interval属性应设置为3
B．设置标签框字体的颜色应在Font属性中设置
C．图像框（image）中图片的加载可以通过Picture属性设置
D．确定一个控件在窗体上位置的属性是Width和Height
【答案】C
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用
8．（2020高二下·金华期末）某算法部分流程如图1所示，执行此部分流程后，下列说法正确的是（　　）
A．此流程使用枚举算法（枚举i的值），虚线框部分是分支结构
B．流程中sum←sum+i与i←i+1调换下位置，输出的sum，c，i的值都不变
C．最终i的值是401，i←i+1执行数是200次
D．将流程图修改为如图2所示，程序运行结果会发生变化。
【答案】A
【知识点】流程图识读；常用算法
9．（2020高二下·金华期末）有两个VB程序段，如下所示：
已知程序段中①②两处内容相同，数组元素a(1)到a（10）的值依次为：6，43，21，78，33，16，80，45，12，90，执行“程序段1”后，数组元素a(1)~a(10)的值依次为80，78，90，45 ，43，33，21，16，12，6，则下列说法正确的是（　　）
A．①和②处的填空为7
B．两程序段的比较次数不一样，交换次数一样
C．执行完程序段2后，数据6移动到了a(10)
D．两段程序的得到的运行结果相同
【答案】A
【知识点】排序算法及程序实现
10．有如下VB程序段：
s = Text1.Text
For i=1 To Len(s)
ch = Mid(s,i,1)
If ch>="A" And ch<="Z" Then t=t+ch
If ch>="a" And ch<="z" Then
ch = Chr(Asc(ch)-32)
t=t+ch
ElseIf ch >= "0"And ch <= "9" Then
t=ch+t
End If
Next i
Text2.Text = t
已知'A'的ASCI码为65，'a'的ASCI码为97。程序运行后，在文本框Text1中输人“Text2.text=”Abc1234“”（外括号不包括），则在Text2中显示的内容是（　　）
A．TEXT2.TEXTABC1234 B．43212TexttextABC
C．43212TEXTTEXTABC D．TEXTTEXTABC43212
【答案】C
【知识点】常量、变量及变量的赋值；分支结构语句及程序实现；循环结构语句及程序实现
【解析】【解答】根据条件If ch>=“A” And ch<=“Z” Then t=t+ch可知，大写字母直接顺序叠加，根据If ch>=“a” And ch<=“z” Then ch=Chr(Asc(ch)-32)t=t+ch可知是小写字母转换为大写字母后叠加。由If ch>= “0”And ch<= “9”Then t=ch+t，可知数字用的是倒序叠加，最后结果数字在前，全都是大写字母。故答案选C。
【分析】本题考查的是对VB程序段语句的理解。
11．（2020高二下·金华期末）星星设计了10*10的矩阵，如下图所示：
实现此功能的VB程序段如下，已知程序中两处标记①的位置表达式相同，程序中①、②两处表达式为（　　）
Dim a(1 To 100) As Sting
For i= 1 To 10
For j=1 To 10
If i=j Or i Mod 10=0 Or i Mod 10= 1
Then
a( ① )="●"
Else
a( ① )="○"
EndIf
Next j
Next i
For i= 1 To 100
s=s+ a(i)
If ② Then
List1.Addltem s
End If
Next i
A．①（j-1）*10+i ②i mod 10=1
B．①（i-1）*10+ j ②i mod 10=1
C．①（j-1）*10+ i ②i mod 10=0
D．①（i- 1）*10+j ②i mod 10=0
【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．（2020高二下·金华期末）某VB程序段如下图所示，执行程序段后，文本框Text2中显示的值不可能是（　　）
a(1)=0: a(2)=3: a(3)= 5: a(4)=7
a(5)= 9: a(6)= 11: a(7)= 13: a(8)= 15
a(9)= 17: a(10)= 19
key= Int(Rnd*5)*2+5
s=" "
i=1: j= 10
Do While i<= j
m=(i+j)\2
s=s+ Str(a(m))
If a(m)>key Then
j=m-1
Else
i=m+1
End If
Loop
Text1.Text= s
A．9 3 5 7 B．9 3 5
C．9 15 11 13 D．9 15 11
【答案】B
【知识点】查找算法及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高二下·金华期末）小豆制作了如图13-1所示的家居用品分类销售统计表，数据情况如图13-1所示。请回答下列问题：
（1）图13-1中的销售占比是各类销售金额占合计的比例。E4：E10的公式是从E3单元格自动填充功能得出的，可知E3单元格公式为　 　。
（2）要对图13-1中的数据按“销售金额”降序排序，则选择的数据区域为　 　。
（3）根据图13-1中的数据制作了如图13-2的图表，则图表的数据区域是　 　。
（4）若在操作过程中对D6单元进行了如图13-3所示的操作，则E6单元格的数据　 　（单选，填字母。A .变大 \
B .变小 \ C
.#REF！ \ D .#DIV/O！ ）
【答案】（1）=D3/$DS10或 =D3/D$10
（2）A2：19或者A3：19
（3）B2：B9，D2：D9 或B3：B9、D3：D9
（4）C
【知识点】表格数据的处理与计算
14．（2020高二下·金华期末）小灰制作了有关“公筷公勺”为主题的多媒体作品，请回答下列问题：
（1）使用Photoshop处理如图14-1所示，下列说法中正确的是　 　（多选 ，填写字母。A .可将“人物”图层的图层样式拷贝到“病毒”图层。/B .背景图层可以设置滤镜，也可以使用像皮擦。/C .“文明用餐使用公筷”图层不可以使用自由变换更改文字大小，但可以用文字工具更改文字大小。/D .“减少冠状病毒传染”图层设置滤镜必须栅格化图层，但可以用油漆简工具更改文字颜色。/E
.“新冠”图层可以移动到圆点图层上方，背景图层不能移动位置。）
（2）如图14-2所示，在“勺子”图层最后一帧（80 帧）设置了gotoandpaly(1)；的动作命令，“声音”图层的声音时长为40s，要求测试影片时（不点击按钮情况下）声音能完整的播放，且不会重复产生新的声音，则应将声音同步设为　 　（数据流/事件/开始）
（3）“勺子”图层实现了元件实例“勺子和筷子”的淡入动画，部分界面如图14-
2所示，则该补间类型为　 　（选填：动画补间/形状补间/逐帧动画）。
（4）“勺子”图层的动画效果是在第31帧至60帧，若要使“勺子”图层的动画从第1帧开始，到60帧结束，则可执行的操作　 　。
（5）测试影片时，点击“按钮”图层中的按钮时，声音停止播放并跳转到“主场景”的第6帧暂停，则此按钮的动作脚本为　 　。
【答案】（1）BCE
（2）开始
（3）动画补间
（4）“勺子”图层第 1帧清除关键帧或将“勺子”图层第31帧移动到第1帧
（5）on （real se/press） {stopallsounds(　　);gotoandstop（“主场景”,6）：}
【知识点】图层及图层的基本操作；动画的类型；动画的实现；常用影片控制函数的应用；声音同步属性设置
15．（2020高二下·金华期末）出列顺序有10个人，编号分别为1，2，3……10按顺时针方向围坐成一圈，每次随机产生一个数m，m的范围为[3，7]的随机奇数，从第10个人开始逆时针报数，当报到m的人出列，圈内剩下的人，重新产生随机数m，重新开始报数，如此下去，直到所有人出列为止。如：若每次参数的随机数m都为5，从第10个开始报数，依次出列的为6-1-5-9-2-3-10-7-4-8
小李编写了如下程序求解10个人的出列顺序。程序运行界面如图15-1所示，点击求解按钮后，在Text1中输出出列顺序，在Text2中显示随机数据的值。
（1）在划线出填写正确的代码
Private Sub Command1 _Click(　　)
Dim ld（1 To 10） As Boolean， i As Integer， j As Integer
Dim rs As Integer， C As Integer， m As Integer
Randomize
For i=1 To 10
ld（i） = True ‘数组元素为True表示第i人当前在队列中
Next i
c=0：rs=10
　 　
m =Int（Rnd*3）*2+3
Do While rs <> 0
If ld（i） = True Then
　 　
If c=m Then
ld（i） = False
Text1.Text = Text1.Text + Str（i）
　 　
c=0
End If
End If
i =i-1
If 　 　Then i=10
Loop
End Sub
（2）加框处两语句互换下顺序，会不会对出列顺序产生影响　 　（选填：会/不会）。
【答案】（1）i=10；c=c+1；rsrs-1；i=0
（2）不会
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
16．（2020高二下·金华期末）某校进行模拟考，现有25名学生的语数英三门课的成绩（按百分制）存储在数据库student.accdb中的数据表cj中，现取出各学生成绩存储在cj(　　)数组中，成绩存放如下：
运行程序，点击“数据导入”按钮后，在列表框list1中显示所有数据。点击“排序"按钮，按总分从高到低计算名次（成绩相同的名次相同），并按排名先后在列表框list2中显示，数据要求对齐。程序运行界面如图16-1所示：
（1）观察程序及界面，可知“排序”按钮的对象名为　 　。
（2）实现上述程序功能的VB程序段如下，请在划线出填入合适的代码。
Dim cj（1 To 100） As Integer
Dim b（1 To 301） As Integer '分数为i的人数存入b（i）
Private Sub Cmdl_ Click(　　)
Dim conn
As New ADODB.Connection
Dim rs As
New ADODB．Recordset
conn.ConnectionString
= "Provider =Microsoft.ACE.OLEDB.12.0；Data Source= " &App.Path& "\studentaccdb"
conn.Open
Set rs.ActiveConnection
= conn
rs.Open
"SELECT*FROM cj"
n =1
Do While
Not rs.EOF
cj（n）= rs.Fields（"语文"）：cj（n+1） = rs.Fields（"数学"）
cj（n+2） = rs.Fields（"英语"）：cj（n+3） = cj（n）+cj（n+1）+cj（n+3）
　 　
rs.MoveNext
Loop
rs.Close：conn.Close
'此处代码略，用来实现将数据在list1中输出
End Sub
Private Sub paixu_ Click(　　)
Dim mc As
Integer
'预处理求b数组的值
For j=4 To
100 Step 4
　 　
Next j
'以下程序用于计算名次并按要求对齐输出
mc=1：b（301)=0
List2.AddItem"语文"+"数学"+"英语"+"总分"+"名次
List2.AddItem
"------------------------------------------------"
For i=300
To 1 Step -1
　 　
If b（i）
<> 0 Then
For
c=4 To 100 Step 4
If cj（c） = i Then
List2.AddItem　 　
End If
Next
c
End If
Next i
End Sub
'以下函数输出时数据s时，不足7位末尾补空格
Function gs（s As Integer） As String
Dim cd As
String
ed = CStr（s）
For i=1 To
7 -Len（cd）
cd=
cd+" "
Next i
gs = cd
End Function
【答案】（1）paixu
（2）n=n+4；b（cj（i）） = b（cj（i）） + 1；mc=mc+b（i+1）；gs（cj（c-3）） + gs（cj（c- 2）） + gs（cj（c- 1）） + gs（cij（c）） + gs（mc）
【知识点】过程与自定义函数；排序算法及程序实现；程序访问数据库
1 / 1

展开更多......

收起↑