资源简介

登录二一教育在线组卷平台 助您教考全无忧
浙江省金丽衢十二校2022届高三下学期信息技术3月阶段性联考试卷
一、选择题(本大题共12小题，每小题2分，共24分)
1．（2022·浙江模拟）下列关于信息与信息技术的描述，不正确的是(　　)
A．利用信息技术计算机通过执行程序可以把信息从一种形态转换为另一种形态
B．我们一时一刻也离不开信息，信息无处不在
C．计算机处理的数据必须要经过数字化
D．谣言的传播源于片面的信息加工
2．（2022·浙江模拟）下列有关网页与浏览器的说法，不正确的是(　　)
A．HTML文件可以用浏览器进行解释执行
B．在收藏夹中可以创建文件夹，用于网址的分类保存
C．某天猫商城的好评率为90%属于个人评价
D．在IE浏览器中，保存一个网页可能得到多个文件
3．（2022·浙江模拟）用Access软件设计抗疫物资收发系统的数据库，其中已建好的“物资流向”数据表用于存储如图所示的数据，发放序号中前4位表示年份、后4位表示月份和序号。
下列关于“物资流向”数据表的描述，正确的是(　　)
A．该数据表的字段数只能是6个
B．该数据表的数据可以从Excel文件导入，但不可以导出到Excel中
C．该数据表中的FFRQ字段可以输入不同格式的日期
D．将FFXH字段的类型设成自动编号也能满足“发放序号”列数据的需求
4．（2022·浙江模拟）下列有关信息编码的说法，正确的是(　　)
A．十六进制数65H与Asc("A")的值相等
B．根据GB2312-80标准，“信息”两字的内码共占4个bit
C．已知大写字母“X"的ASCII码值为58H， 则大写字母“Z”的ASCII码值是60H
D．某7位二进制数1*1****， 将其转换为十进制数后的值大于等于80
5．（2022·浙江模拟）使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是(　　)
A．执行“删除”操作后，播放时有3秒静音
B．先执行“剪切”操作，再执行“粘贴”操作后，音频时长增加了3秒
C．将文件另存为单声道，其它参数不变，文件容量不变。
D．执行“剪裁”操作后直接保存，音频的时长变短
6．（2022·浙江模拟）将一幅未经压缩的1024X800像素、256 色的BMP图像另存为JPEG格式文件，存储后的JPEG文件存储容量为160KB，则BMP文件与JPEG文件的存储容量比约为(　　)
A．5：1 B．16：1 C．63：1 D．126：1
7．（2022·浙江模拟）某算法的部分流程图如图所示，数组a的值为“4，3，5，2，9，6”，执行这部分流程。则sum输出值为(　　)
A．23 B．36 C．18 D．27
8．（2022·浙江模拟）VB表达式-3^2+ 12\4*3的值是(　　)
A．-9 B．0 C．10 D．-8
9．（2022·浙江模拟）现有字符串s，以下程序段实现将字符串中的“ 热情”都替换成“激情”，下列选项中填写到①处无法实现本程序段功能的是(　　)
s = Text1. Text
i=1
Do While i<=Len(s)-1
If Mid(s， i， 2) =“热情”Then
s=Mid(s，1，i-1)+“激情”+Mid(s，i+2)
①
Else
i=i+1
End If
Loop
A．i=i+2 B．Exit DO
C．i=i+1 D．Text1.Text = s
10．（2022·浙江模拟）有如下VB程序段：
x =" acababaab"
s = s+Mid(x, 1, 1)：i=1
Do While i <= Len(x)
flag = True
For j=1 To Len(s)
If Mid(x, i, 1) = Mid(s, j, 1) Then flag = False
Next j
If flag=True Then s=s+Mid(x, i, 1)
i=i+2
Loop
执行程序段后，变量S的值是（　　）
A．"ab” B．"acb" C．"aba” D．"abb"
11．（2022·浙江模拟）如下VB程序段实现对数组元素a(1)到a(10)中数据螺旋升序排列，排序后a(1)-a(10)的显示结果为：7，35，9，33，11，30，13， 28， 15， 26。程序段如下：
For i=1 To 9 '排序的遍数
For j=10 To i+1 Step-1
If ① then
t=a(j)：a(j)=a(j-1)：a(j-1)=t
End If
Next j
Next i
则代码中①处的语句不适合的为(　　)
A．a(j)*(-1)^ (i-1) < a(j-1)*(-1)^ (i-1)
B．a(j)*(-1)^(i mod 2)< a(j-1)*(-1)^ (i mod 2)
C．a(j)*(-1)' i> a(j-1)*(-1)^ i
D．i mod 2=1 and a(j)a(j-1)
12．（2022·浙江模拟）某对分查找算法的VB程序段如下：
i=1：j=7 ： s=””
key = Int (Rnd * 100)
Do While i <=j
m=(i+j)\2
If key = a(m) Then
s = s+"M"：Exit Do 'Exit Do表示退出循环
ElseIf key < a(m) Then
j=m-1：s=s+"L"
Else
i=m+1：s=s+"R"
End If
Loop
Text1.Text = s
数组元素a(1)到a(7)的值依次为“24， 35， 38， 41，45， 69， 78”。若该程序段执行后，文本框Text1中显示的内容是LLR，则Key的值可能是(　　)
A．36 B．34 C．40 D．42
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2022·浙江模拟）小王收集了2021年8月我国50个城市部分食品平均价格变动情况数据，并使用Excel软件对数据进行处理，如图a所示。
请回答下列问题：
（1）区域F3：F12 的数据是通过公式计算得到的，在F3单元格中输入公式 　 　，再使用自动填充功能完成区域F4：F12的计算。
（2）完成F3：F12的计算后，小王误删了第14行，则F3单元格中显示为　 　(单选，填字母：A . #REF！\ B . #VALUE！\C . 30．93)
（3）小王根据EXCEL表中数据创建了如图b所示柱形图。结合图b，下列说法正确的有 。(多选，填字母)。
A．创建图b的数据区域为B2：E5
B．由图可知，三种水产品8月份的价格相对稳定
C．对区域A6：F12根据列C进行升序排列，则第13题图b会随之改变
D．删除第13题图b中活草鱼中旬价格的柱子，则第13题图a中D4单元格的数值也会消失
14．（2022·浙江模拟）小明制作主题为“我心向党"的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：
（1）用Photoshop软件制作“党建"作品，部分编辑界面如题图a所示。下列说法正确的是 ；
A．可以将“图层1”的图层名改为“党徽”
B．可以用魔棒选中党徽后，将颜色填充为黄色
C．将该文件以jpg格式保存，背景不是透明的
D．可以对“图层1”添加图层样式
（2）制作动画作品的部分界面如题图b所示，已知舞台大小为550×400，则第10帧中“党徽”实例在舞台中的位置坐标约是　 　(单选，填字母： A .(120，
110)/B .(40， 18)/C .(250， 200))，若要使“按钮”图层中的实例从动画一开始就出现，小明对该图层第1帧执行删除帧操作，是否可以实现所要效果 　 　 (填：是/否)
（3）“播放”按钮的功能是使动画继续播放，“暂停”按钮的功能是暂停动画播放。这两个按钮实例上的动作脚本分别是 (多选，按顺序填字母)。
A．on (release) { play(　　)；}
B．on (release) {gotoAndplay (1) ；}
C．on (release) { gotoAndstop(1)；}
D．on (release) { stop(　　)；}
（4）“播放”按钮元件的编辑如题图c所示，若要使该按钮能够响应鼠标事件，需要对文字图层执行的操作是：　 　
15．（2022·浙江模拟）小李和小王在玩一个猜数游戏，随机生成10个元素的未排序的整数数组num () (范围是[-9，9])，请小李找出其中没有出现的最小的正整数。现编写如下VB代码，完成这个猜数游戏，先对所有正整数进行升序排列，选取出缺少的最小正整数。程序运行界面如第15题图所示。
（1）如图所示，窗体中有　 　个对象。
（2）实现上述功能的部分VB代码如下，请在划线处填入合适的代码。
Private Sub Command1_ Click()
Dim num(100) As Integer
Dim i As Integer， j As Integer， p As Integer， t As Integer ；
Dim ch As String， k As String
i =1：j=1
Do While i <=10
Num (i)=
ch=ch+num(i)+“，”
i=i+1
Loop
Text1. text=mid(ch，1，len(ch)-1)
For i=1 To 10
For j=10 To i+1 Step-1
If　 　 Then
t = num(j)： num(j) = num(j - 1)： num(j -1) = t
End If
Next j
If 　 　 Then Label2． Caption = Str(i)： Exit For
Next i
End Sub
（3）程序中加框处的代码有误，请修改。
16．（2022·浙江模拟）一个厨师收集了n道菜的满意程度，这个厨师做出每道菜的时间都是1单位时间。一道菜的喜爱时间为烹饪这道菜以及之前每道菜所花费的时间总和乘以这道菜的满意程度。现在你可以按任意顺序安排做菜的顺序，也可以选择放弃做某些菜来获得更大的喜爱时间总和。如：输入n道菜的满意程度“-1，-8，0，5，-9”，先将满意程度降序排列再通过计算，最大的喜爱时间总和为(-1*1+0*2+5*3=14)
　 5 0 -1 -8 -9 喜爱时间总和
1道菜 1 　 　 　 　 5
2道菜 2 1 　 　 　 10
3道菜 3 2 1 　 　 14
4道菜 4 3 2 1 　 10
5道菜 5 4 3 2 1 -3
编写VB程序，实现上述功能。运行程序，在文本框Text1中输入n道菜的满意程度后(数据之间以逗号隔开)，单击“计算”按钮Commandl，在标签Labell中显示，最后在标签Label1中显示做完所有菜「喜爱时间」总和的最大值。程序运行界面如图所示。
请回答下列问题：
（1）若文本框中显示的内容为“-2，5，-4，0，3，-3"，则做完所有菜[喜爱时间」总和的最大值为　 　。(填数字)
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_ Click()
Dim xa As Integer, c As String
c = Text1. Text
　 　
Label1. Caption =“做完所有菜的「 喜爱时间」总和的最大值为”+ Str (xa)
End Sub
Function xiai(x As String) As Integer
Dim m(8) As Integer, i As Integer, j As Integer, k As Integer, sum As Integer
Dim ch As String
max= 0 : k=0
j =1
For i=1 To Len(x)
ch = Mid(x, i, 1)
If ch ="," Then
k=k+1
m(k) = Val(Mid(x, j, i - j))
j=i+1
End If
Next i
　 　
For i=1 To k
For j=k+1 To i+1 Step-1
If m(j)>m(j-1) Then
t = m(j)： m(j) = m(j - 1)： m(j-1)= t
End If
Next j
Next i
For i=1 To k+1
　 　
If m(i) > 0 Then
sum = sum + m(i)
End If
Next i
xiai = sum
End Function
答案解析部分
1．【答案】D
【知识点】信息及其特征
2．【答案】C
【知识点】因特网信息资源评价；浏览器
3．【答案】C
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑；数据库文件的导入与导出
4．【答案】D
【知识点】进制及数制转换；字符编码
5．【答案】B
【知识点】声音素材的基本处理；声音、图像、视频编码
6．【答案】A
【知识点】声音、图像、视频编码
7．【答案】A
【知识点】流程图识读
8．【答案】D
【知识点】运算符、基本运算与表达式
9．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．【答案】A
【知识点】循环结构语句及程序实现；常用标准函数
11．【答案】B
【知识点】排序算法及程序实现
12．【答案】B
【知识点】查找算法及程序实现
13．【答案】（1）=C3-C$14 或=C3- $C$14
（2）A
（3）A
【知识点】表格数据的处理与计算；数据分析
14．【答案】（1）A；C
（2）A；否
（3）A；D
（4）选中“文字”图层“点击”帧，执行清除关键帧操作或选中“文字”图层“点击”帧，执行删除帧操作
【知识点】图层及图层的基本操作；元件的类型与应用；二维动画实例属性的设置；常用影片控制函数的应用
15．【答案】（1）4
（2）num() * num(j- 1)> 0 And num(j) < num(j - 1) Or num(j- 1)<=0或 num(j) < numj - 1) And num(j) > 0 Or num(j- 1)<= 0；num(i) <> i
（3）Int(Rnd * 10) * (-1) ^ (Int(Rnd *2))或int (Rnd*19)) -9
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．【答案】（1）30
（2）xa=xiai(c)；m(k+1)= Va(Mid(x, j, i- i))；m(i)=m(i) + m(i- 1)
【知识点】过程与自定义函数；排序算法及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省金丽衢十二校2022届高三下学期信息技术3月阶段性联考试卷
一、选择题(本大题共12小题，每小题2分，共24分)
1．（2022·浙江模拟）下列关于信息与信息技术的描述，不正确的是(　　)
A．利用信息技术计算机通过执行程序可以把信息从一种形态转换为另一种形态
B．我们一时一刻也离不开信息，信息无处不在
C．计算机处理的数据必须要经过数字化
D．谣言的传播源于片面的信息加工
【答案】D
【知识点】信息及其特征
2．（2022·浙江模拟）下列有关网页与浏览器的说法，不正确的是(　　)
A．HTML文件可以用浏览器进行解释执行
B．在收藏夹中可以创建文件夹，用于网址的分类保存
C．某天猫商城的好评率为90%属于个人评价
D．在IE浏览器中，保存一个网页可能得到多个文件
【答案】C
【知识点】因特网信息资源评价；浏览器
3．（2022·浙江模拟）用Access软件设计抗疫物资收发系统的数据库，其中已建好的“物资流向”数据表用于存储如图所示的数据，发放序号中前4位表示年份、后4位表示月份和序号。
下列关于“物资流向”数据表的描述，正确的是(　　)
A．该数据表的字段数只能是6个
B．该数据表的数据可以从Excel文件导入，但不可以导出到Excel中
C．该数据表中的FFRQ字段可以输入不同格式的日期
D．将FFXH字段的类型设成自动编号也能满足“发放序号”列数据的需求
【答案】C
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑；数据库文件的导入与导出
4．（2022·浙江模拟）下列有关信息编码的说法，正确的是(　　)
A．十六进制数65H与Asc("A")的值相等
B．根据GB2312-80标准，“信息”两字的内码共占4个bit
C．已知大写字母“X"的ASCII码值为58H， 则大写字母“Z”的ASCII码值是60H
D．某7位二进制数1*1****， 将其转换为十进制数后的值大于等于80
【答案】D
【知识点】进制及数制转换；字符编码
5．（2022·浙江模拟）使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是(　　)
A．执行“删除”操作后，播放时有3秒静音
B．先执行“剪切”操作，再执行“粘贴”操作后，音频时长增加了3秒
C．将文件另存为单声道，其它参数不变，文件容量不变。
D．执行“剪裁”操作后直接保存，音频的时长变短
【答案】B
【知识点】声音素材的基本处理；声音、图像、视频编码
6．（2022·浙江模拟）将一幅未经压缩的1024X800像素、256 色的BMP图像另存为JPEG格式文件，存储后的JPEG文件存储容量为160KB，则BMP文件与JPEG文件的存储容量比约为(　　)
A．5：1 B．16：1 C．63：1 D．126：1
【答案】A
【知识点】声音、图像、视频编码
7．（2022·浙江模拟）某算法的部分流程图如图所示，数组a的值为“4，3，5，2，9，6”，执行这部分流程。则sum输出值为(　　)
A．23 B．36 C．18 D．27
【答案】A
【知识点】流程图识读
8．（2022·浙江模拟）VB表达式-3^2+ 12\4*3的值是(　　)
A．-9 B．0 C．10 D．-8
【答案】D
【知识点】运算符、基本运算与表达式
9．（2022·浙江模拟）现有字符串s，以下程序段实现将字符串中的“ 热情”都替换成“激情”，下列选项中填写到①处无法实现本程序段功能的是(　　)
s = Text1. Text
i=1
Do While i<=Len(s)-1
If Mid(s， i， 2) =“热情”Then
s=Mid(s，1，i-1)+“激情”+Mid(s，i+2)
①
Else
i=i+1
End If
Loop
A．i=i+2 B．Exit DO
C．i=i+1 D．Text1.Text = s
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．（2022·浙江模拟）有如下VB程序段：
x =" acababaab"
s = s+Mid(x, 1, 1)：i=1
Do While i <= Len(x)
flag = True
For j=1 To Len(s)
If Mid(x, i, 1) = Mid(s, j, 1) Then flag = False
Next j
If flag=True Then s=s+Mid(x, i, 1)
i=i+2
Loop
执行程序段后，变量S的值是（　　）
A．"ab” B．"acb" C．"aba” D．"abb"
【答案】A
【知识点】循环结构语句及程序实现；常用标准函数
11．（2022·浙江模拟）如下VB程序段实现对数组元素a(1)到a(10)中数据螺旋升序排列，排序后a(1)-a(10)的显示结果为：7，35，9，33，11，30，13， 28， 15， 26。程序段如下：
For i=1 To 9 '排序的遍数
For j=10 To i+1 Step-1
If ① then
t=a(j)：a(j)=a(j-1)：a(j-1)=t
End If
Next j
Next i
则代码中①处的语句不适合的为(　　)
A．a(j)*(-1)^ (i-1) < a(j-1)*(-1)^ (i-1)
B．a(j)*(-1)^(i mod 2)< a(j-1)*(-1)^ (i mod 2)
C．a(j)*(-1)' i> a(j-1)*(-1)^ i
D．i mod 2=1 and a(j)a(j-1)
【答案】B
【知识点】排序算法及程序实现
12．（2022·浙江模拟）某对分查找算法的VB程序段如下：
i=1：j=7 ： s=””
key = Int (Rnd * 100)
Do While i <=j
m=(i+j)\2
If key = a(m) Then
s = s+"M"：Exit Do 'Exit Do表示退出循环
ElseIf key < a(m) Then
j=m-1：s=s+"L"
Else
i=m+1：s=s+"R"
End If
Loop
Text1.Text = s
数组元素a(1)到a(7)的值依次为“24， 35， 38， 41，45， 69， 78”。若该程序段执行后，文本框Text1中显示的内容是LLR，则Key的值可能是(　　)
A．36 B．34 C．40 D．42
【答案】B
【知识点】查找算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2022·浙江模拟）小王收集了2021年8月我国50个城市部分食品平均价格变动情况数据，并使用Excel软件对数据进行处理，如图a所示。
请回答下列问题：
（1）区域F3：F12 的数据是通过公式计算得到的，在F3单元格中输入公式 　 　，再使用自动填充功能完成区域F4：F12的计算。
（2）完成F3：F12的计算后，小王误删了第14行，则F3单元格中显示为　 　(单选，填字母：A . #REF！\ B . #VALUE！\C . 30．93)
（3）小王根据EXCEL表中数据创建了如图b所示柱形图。结合图b，下列说法正确的有 。(多选，填字母)。
A．创建图b的数据区域为B2：E5
B．由图可知，三种水产品8月份的价格相对稳定
C．对区域A6：F12根据列C进行升序排列，则第13题图b会随之改变
D．删除第13题图b中活草鱼中旬价格的柱子，则第13题图a中D4单元格的数值也会消失
【答案】（1）=C3-C$14 或=C3- $C$14
（2）A
（3）A
【知识点】表格数据的处理与计算；数据分析
14．（2022·浙江模拟）小明制作主题为“我心向党"的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：
（1）用Photoshop软件制作“党建"作品，部分编辑界面如题图a所示。下列说法正确的是 ；
A．可以将“图层1”的图层名改为“党徽”
B．可以用魔棒选中党徽后，将颜色填充为黄色
C．将该文件以jpg格式保存，背景不是透明的
D．可以对“图层1”添加图层样式
（2）制作动画作品的部分界面如题图b所示，已知舞台大小为550×400，则第10帧中“党徽”实例在舞台中的位置坐标约是　 　(单选，填字母： A .(120，
110)/B .(40， 18)/C .(250， 200))，若要使“按钮”图层中的实例从动画一开始就出现，小明对该图层第1帧执行删除帧操作，是否可以实现所要效果 　 　 (填：是/否)
（3）“播放”按钮的功能是使动画继续播放，“暂停”按钮的功能是暂停动画播放。这两个按钮实例上的动作脚本分别是 (多选，按顺序填字母)。
A．on (release) { play(　　)；}
B．on (release) {gotoAndplay (1) ；}
C．on (release) { gotoAndstop(1)；}
D．on (release) { stop(　　)；}
（4）“播放”按钮元件的编辑如题图c所示，若要使该按钮能够响应鼠标事件，需要对文字图层执行的操作是：　 　
【答案】（1）A；C
（2）A；否
（3）A；D
（4）选中“文字”图层“点击”帧，执行清除关键帧操作或选中“文字”图层“点击”帧，执行删除帧操作
【知识点】图层及图层的基本操作；元件的类型与应用；二维动画实例属性的设置；常用影片控制函数的应用
15．（2022·浙江模拟）小李和小王在玩一个猜数游戏，随机生成10个元素的未排序的整数数组num () (范围是[-9，9])，请小李找出其中没有出现的最小的正整数。现编写如下VB代码，完成这个猜数游戏，先对所有正整数进行升序排列，选取出缺少的最小正整数。程序运行界面如第15题图所示。
（1）如图所示，窗体中有　 　个对象。
（2）实现上述功能的部分VB代码如下，请在划线处填入合适的代码。
Private Sub Command1_ Click()
Dim num(100) As Integer
Dim i As Integer， j As Integer， p As Integer， t As Integer ；
Dim ch As String， k As String
i =1：j=1
Do While i <=10
Num (i)=
ch=ch+num(i)+“，”
i=i+1
Loop
Text1. text=mid(ch，1，len(ch)-1)
For i=1 To 10
For j=10 To i+1 Step-1
If　 　 Then
t = num(j)： num(j) = num(j - 1)： num(j -1) = t
End If
Next j
If 　 　 Then Label2． Caption = Str(i)： Exit For
Next i
End Sub
（3）程序中加框处的代码有误，请修改。
【答案】（1）4
（2）num() * num(j- 1)> 0 And num(j) < num(j - 1) Or num(j- 1)<=0或 num(j) < numj - 1) And num(j) > 0 Or num(j- 1)<= 0；num(i) <> i
（3）Int(Rnd * 10) * (-1) ^ (Int(Rnd *2))或int (Rnd*19)) -9
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．（2022·浙江模拟）一个厨师收集了n道菜的满意程度，这个厨师做出每道菜的时间都是1单位时间。一道菜的喜爱时间为烹饪这道菜以及之前每道菜所花费的时间总和乘以这道菜的满意程度。现在你可以按任意顺序安排做菜的顺序，也可以选择放弃做某些菜来获得更大的喜爱时间总和。如：输入n道菜的满意程度“-1，-8，0，5，-9”，先将满意程度降序排列再通过计算，最大的喜爱时间总和为(-1*1+0*2+5*3=14)
　 5 0 -1 -8 -9 喜爱时间总和
1道菜 1 　 　 　 　 5
2道菜 2 1 　 　 　 10
3道菜 3 2 1 　 　 14
4道菜 4 3 2 1 　 10
5道菜 5 4 3 2 1 -3
编写VB程序，实现上述功能。运行程序，在文本框Text1中输入n道菜的满意程度后(数据之间以逗号隔开)，单击“计算”按钮Commandl，在标签Labell中显示，最后在标签Label1中显示做完所有菜「喜爱时间」总和的最大值。程序运行界面如图所示。
请回答下列问题：
（1）若文本框中显示的内容为“-2，5，-4，0，3，-3"，则做完所有菜[喜爱时间」总和的最大值为　 　。(填数字)
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_ Click()
Dim xa As Integer, c As String
c = Text1. Text
　 　
Label1. Caption =“做完所有菜的「 喜爱时间」总和的最大值为”+ Str (xa)
End Sub
Function xiai(x As String) As Integer
Dim m(8) As Integer, i As Integer, j As Integer, k As Integer, sum As Integer
Dim ch As String
max= 0 : k=0
j =1
For i=1 To Len(x)
ch = Mid(x, i, 1)
If ch ="," Then
k=k+1
m(k) = Val(Mid(x, j, i - j))
j=i+1
End If
Next i
　 　
For i=1 To k
For j=k+1 To i+1 Step-1
If m(j)>m(j-1) Then
t = m(j)： m(j) = m(j - 1)： m(j-1)= t
End If
Next j
Next i
For i=1 To k+1
　 　
If m(i) > 0 Then
sum = sum + m(i)
End If
Next i
xiai = sum
End Function
【答案】（1）30
（2）xa=xiai(c)；m(k+1)= Va(Mid(x, j, i- i))；m(i)=m(i) + m(i- 1)
【知识点】过程与自定义函数；排序算法及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1

展开更多......

收起↑