资源简介

浙江省丽水市普通高中2019-2020学年高二下学期信息技术教学质量监控试卷
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的。）
1．（2019高二下·浙江月考）下列关于信息获取的描述，正确的是（　　）
A．只有通过搜索引擎才能获取信息
B．可对获取的信息进行加工和处理
C．通过网络获取的信息都是可信的
D．只有获取最新的信息才具有价值
2．（2019高二下·浙江月考）下列应用中，体现了人工智能技术的是（　　）
A．通过语音指令调节空调温度
B．通过扫描二维码添加好友
C．用额温枪测体温，体温异常自动报警
D．在Word中输入“百步川杨”时自动变成“百步穿杨”
3．（2019高二下·浙江月考）使用Access软件打开数据库，部分界面如图所示
下列说法正确的是（　　）
A．当前正在编辑的数据表是“一日三检.accdb”
B．“一日三检”表有“检测序号”字段值相同的记录
C．“学生信息”表中可能包含“学生姓名”字段
D．“一日三检”表中“是否异常”字段的有效输入值可以为“是”
4．（2019高二下·浙江月考）网络中每台设备都有一个唯一的网络标识，叫MAC地址，用十六进制数表示。某设备的MAC地址为“74-27-EA-F0-A7-6F”。下列说法正确的是（　　）
A．该地址的长度为12个字节
B．该地址中“6F”转换为二进制数是1101110
C．该地址在计算机中是以二进制代码形式存储的
D．将“F0”中的末位去掉后，再转换为十进制，所得的值是原来的1/10
5．（2019高二下·浙江月考）使用GoldWave软件编辑某音频文件，部分界面如图所示
下列说法正确的是（　　）
A．执行“删除”命令后直接保存，音频的时长变为10秒
B．执行“选定部分另存为”命令生成一个新的音频文件，其时长为5秒
C．执行“剪裁”命令后直接保存，音频文件存储容量是原来的1/3
D．执行“插入静音”命令，设置时间为5秒后直接保存，音频文件存储容量不变
6．（2019高二下·浙江月考）如图所示是一幅未经压缩的1024*768像素、256色的BMP图像。
下列说法正确的是（　　）
A．该图像的存储容量约为6MB
B．BMP是静态图像的压缩标准
C．该图像每个像素色彩编码的位数为8
D．该图像中存在时间冗余
7．（2019高二下·浙江月考）某算法的部分流程图如右图所示。执行这部分流程，变量a的值是
A．4 B．5 C．1 D．0
8．（2019高二下·浙江月考）下列VB表达式的值为奇数的是（　　）
A．Int(17/4) B．Asc("A")+1
C．Abs (-1) +2 D．Val(Mid("123456", 4, 1))
9．（2019高二下·浙江月考）对N个数进行冒泡排序，下列描述正确的是（　　）
A．比较次数为N-1次
B．最多需交换N次
C．交换数据的次数一定比选择排序多
D．元素的交换次数小于或等于元素的比较次数
10．（2019高二下·浙江月考）生成n个不重复2位随机奇数的VB程序段如下：
For i = 1 To n
a(i) =
For j = 1 To i-1
If a(i)=a(j) Then
Exit For
End If
Next j
Next i
上述程序段2个方框处的表达式分别为
A．① Int(Rnd*50)*2+11 ② j = j - 1
B．① Int(Rnd*99)+1 ② i = i - 1
C．① Int(Rnd*89)+11 ② j = j + 1
D．① Int(Rnd*45)*2+11 ② i = i - 1
11．（2019高二下·浙江月考）某对分查找算法的VB程序段如下：
i = 1: j = 6: k = 0
key = Val(Text1.Text)
Do While i<= j
k = k + 1
m = Int((i + j)/2 + 0.5)
If key = a(m) Then Exit Do
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
文本框Text1中输入27，执行该程序段后，k的值为2，则a(1)到a(6)各元素可能的值是（　　）
A．12，45，27，31，78，95 B．15，27，56，61，73，89
C．89，73，61，56，35，27 D．13，31，47，56，73，80
12．（2019高二下·浙江月考）某VB程序段如下：
For i = 1 To 7
b(i) = 1
Next i
For i = 1 To 7
For j = 1 To i - 1
If a(i)>a(j) and b(i)<=b(j) Then
b(i) = b(j) + 1
End If
Next j
If b(i) > max Then max = b(i)
Next i
数组元素a(1)到a(7)的值依次“50,10,14,64,47,70,82”，执行该程序段后，变量max的值是（　　）
A．5 B．4 C．3 D．2
二、非选择题（本大题共4小题，4+8+7+7，共26分。）
13．（2019高二下·浙江月考）小林收集了某地第二季度的天气数据，并用Excel软件进行数据处理，如图所示。
图1
请回答下列问题：
（1）在G3单元格输入公式并用自动填充功能完成区域G4:G84的计算，计算时应用了IF函数，则G78单元格中的公式是　 　。
（提示：If函数用于判断是否满足某个条件，如果满足返回一个值，如果不满足返回另一个值。例如：“=IF(E2<60,"不合格",IF(E2>=80,"优秀","合格"))”）。
（2）根据图1中的数据制作如图2所示的图表，则创建该图表的数据区域是　 　。
图2
（3）将数据区域A2：G84复制到新的数据表，若要从表中找出“温差”最大的记录。下列方法可行的是 。（多选，填字母）。
A．以“温差”为“最大1项”进行筛选，可筛选出符合要求的数据
B．用Max函数计算出D列中最大的一项即为所需数据
C．以“温差”为主要关键字进行降序排序，选取与第1条温差值相同的数据
D．以“最低温度”为“最小1项”、“最高温度”为“最大1项”进行筛选，可筛选出符合要求的日期
14．（2019高二下·浙江月考）用Flash软件打开“风荷举.fla”文件，编辑界面如图所示。
（1）在创作作品前，要进行相应的分析。下列不属于应用需求分析的是　 　。（多选，填字母：A .根据脚本大纲，编写文字脚本 /B .确定作品的主题思想为“风荷举” /C .该作品面向小学生演示播放 /D .设计作品的主交互界面 /E .确定该作品的经济效益）
（2）要使当前场景动画播放结束，“音乐”图层中的声音同时停止，可将“音乐”图层中声音的“同步”属性设置为　 　（选填：数据流/事件）。
（3）在“鹅”图层中创建了“鹅”实例从舞台左侧游到舞台右侧的动画，则该动画的类型是　 　（选填：动画补间/形状补间）。
（4）为使“荷花”图层中的 “荷花”实例在动画开始2秒后出现，可行的操作是　 　。
（5）影片发布后，单击“链接”按钮， 实现在浏览器中打开网站“http://www..cn”，同时关闭动画。则“链接”按钮的动作脚本为on(press){　 　}。
15．（2019高二下·浙江月考）某加密算法对大写字母加密，其加密规则如下：密文的ASCII码值=明文的ASCII码值+密钥，加密后生成的密文仍为大写字母。其密钥是在3*3矩阵中获得，获得密钥的方式为：如字母“A”的ASCII码值为65，将65反复除3，其转换过程如图1所示，得到商为2，密钥在矩阵中所在行；得到余数2，密钥在矩阵中所在列；商或余数为0，密钥在矩阵中最后一行或最后一列。其程序运行界面如图2所示。
（1）下列对象中没有Caption属性的是　 　(单选，填字母:mand1 /B .Form1 /C .Text1和Text2)。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim a(1 To 9) As Integer
Private Sub Command1_Click()
Dim column As Integer, row As Integer, t As Integer, tmp As Integer
Dim s As String, ch As String, result As String
s = Text1.Text: result = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1): t =　 　.
column = (t - 1) Mod 3 + 1
Do While t >= 3
t = t \ 3
Loop
row =
tmp = (Asc(ch) + 　 　 - 65) Mod 26 + 65
result = result + Chr(tmp)
Next i
Text2.Text = result
End Sub
Private Sub Form_Load() '用来生成3*3矩阵
For i = 1 To 9
a(i) = Int(Rnd * 9) + 1
s = s + Str(a(i))
If i Mod 3 = 0 Then
List1.AddItem s
s = ""
End If
Next i
End Sub
（3）程序中加框处代码有错，请改正。
（4）根据程序的功能并结合图2，字母C加密后的密文为　 　。
16．（2019高二下·浙江月考）某校跳高比赛计分规则如下：每个高度每位选手最多试跳三次，成功记为1，失败或轮空记为0。如选手第一次试跳成功记为100，第二次试跳成功记为010，第三试跳成功记为001，三次失败则终止比赛。编写VB程序统计选手积分，在文本框Text1中输入姓名和成绩，在列表框List1中输出结果，其算法如下：1.将每个选手的跳高记录三位一组转换成十进制数存储到数组a (该数组元素的值都不相同)。2.先比较数组a中各数组元素的长度，长度长的排名在前；若长度相同的情况下从后往前依次比较字符大小，当前数值大的排名在前。程序运行界面如图所示：
请在划线处填入合适的代码。
Dim a(1 To 9) As String '存储跳高成绩
Dim b(1 To 9) As String '存储学生姓名
Dim c(1 To 9) As Integer
Private Sub Command1_Click()
Dim ch As String, tmp As Integer, t As Integer
Dim p As Integer, k As Integer, i As Integer, j As Integer
Dim s As String
s = Text1.Text: t = 0
For i = 1 To　 　 .
If Mid(s, i, 1) <> "/" Then
ch = ch + Mid(s, i, 1)
Else
t = t + 1
If t Mod 2 = 0 Then
a(t \ 2) = zh(ch)
Else
　 　
End If
ch = ""
End If
Next i
For i = 1 To t\2
c(i) = i
Next i
For i = 1 To t \ 2 - 1
p = i
For j = i + 1 To t \ 2
If Len(a(c(p))) < Len(a(c(j))) Then
p = j
ElseIf Len(a(c(j))) = Len(a(c(p))) Then
k = Len(a(j)): flag = True
Do While k >= 1 And flag
If Val(Mid(a(c(j)), k, 1)) > Val(Mid(a(c(p)), k, 1)) Then
p = j
flag=false
ElseIf val(Mid(a(c(j)), k, 1)) = val(Mid(a(c(p)), k, 1)) Then
k = k - 1
Else
flag = False
End If
Loop
End If
Next j
If p <> i Then
tmp = c(i): c(i) = c(p): c(p) = tmp
End If
Next i
For i = 1 To t \ 2
　 　
Next i
End Sub
Function zh(cm As String) As String
Dim temp As String
Dim i As Integer, j As Integer
For i = 1 To 　 　
For j = 1 To 3
temp =temp * 2 + Val(Mid(cm, (i - 1) * 3 + j, 1)) .
Next j
zh = zh + CStr(temp) 'CStr函数可把表达式转换为字符串类型
temp = 0
Next i
End Function
答案解析部分
1．【答案】B
【知识点】信息获取的环节与方法；信息来源的选择与判断
2．【答案】A
【知识点】人工智能的应用
3．【答案】C
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
4．【答案】C
【知识点】进制及数制转换
5．【答案】B
【知识点】声音素材的基本处理；声音、图像、视频编码
6．【答案】C
【知识点】图形与图像、位图与矢量图的概念；声音、图像、视频编码
7．【答案】D
【知识点】常量、变量及变量的赋值；流程图识读
8．【答案】C
【知识点】运算符、基本运算与表达式
9．【答案】D
【知识点】排序算法及程序实现
10．【答案】D
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
11．【答案】B
【知识点】常量、变量及变量的赋值；查找算法及程序实现
12．【答案】A
【知识点】常量、变量及变量的赋值；排序算法及程序实现
13．【答案】（1）=IF(F78<=50,“优”, IF(F78<=100,“良”, “差”))
（2）A2:A7,D2:D7,F2:F7
（3）A；C
【知识点】表格数据的基本操作；表格数据的处理与计算
14．【答案】（1）ABD
（2）数据流
（3）动画补间
（4）将荷花图层第10帧移至第21帧（19-21帧都正确，或其他等价答案）
（5）Geturl(“http:// www..cn”) ;fscommand(“quit”)
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．【答案】（1）C
（2）Asc(ch)；a((row - 1) * 3 + column)
（3）（t-1）Mod 3 + 1 或（t+2）Mod 3 + 1 或（t-1+3）Mod 3 + 1
（4）F
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现；加密与解密算法
16．【答案】Len(s)/len(text1.text)；b((t + 1) \ 2) = ch；List1.AddItem Str(i) + " " + b(c(i)) + " " + a(c(i))；len(cm)\3
【知识点】运算符、基本运算与表达式；过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省丽水市普通高中2019-2020学年高二下学期信息技术教学质量监控试卷
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的。）
1．（2019高二下·浙江月考）下列关于信息获取的描述，正确的是（　　）
A．只有通过搜索引擎才能获取信息
B．可对获取的信息进行加工和处理
C．通过网络获取的信息都是可信的
D．只有获取最新的信息才具有价值
【答案】B
【知识点】信息获取的环节与方法；信息来源的选择与判断
2．（2019高二下·浙江月考）下列应用中，体现了人工智能技术的是（　　）
A．通过语音指令调节空调温度
B．通过扫描二维码添加好友
C．用额温枪测体温，体温异常自动报警
D．在Word中输入“百步川杨”时自动变成“百步穿杨”
【答案】A
【知识点】人工智能的应用
3．（2019高二下·浙江月考）使用Access软件打开数据库，部分界面如图所示
下列说法正确的是（　　）
A．当前正在编辑的数据表是“一日三检.accdb”
B．“一日三检”表有“检测序号”字段值相同的记录
C．“学生信息”表中可能包含“学生姓名”字段
D．“一日三检”表中“是否异常”字段的有效输入值可以为“是”
【答案】C
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
4．（2019高二下·浙江月考）网络中每台设备都有一个唯一的网络标识，叫MAC地址，用十六进制数表示。某设备的MAC地址为“74-27-EA-F0-A7-6F”。下列说法正确的是（　　）
A．该地址的长度为12个字节
B．该地址中“6F”转换为二进制数是1101110
C．该地址在计算机中是以二进制代码形式存储的
D．将“F0”中的末位去掉后，再转换为十进制，所得的值是原来的1/10
【答案】C
【知识点】进制及数制转换
5．（2019高二下·浙江月考）使用GoldWave软件编辑某音频文件，部分界面如图所示
下列说法正确的是（　　）
A．执行“删除”命令后直接保存，音频的时长变为10秒
B．执行“选定部分另存为”命令生成一个新的音频文件，其时长为5秒
C．执行“剪裁”命令后直接保存，音频文件存储容量是原来的1/3
D．执行“插入静音”命令，设置时间为5秒后直接保存，音频文件存储容量不变
【答案】B
【知识点】声音素材的基本处理；声音、图像、视频编码
6．（2019高二下·浙江月考）如图所示是一幅未经压缩的1024*768像素、256色的BMP图像。
下列说法正确的是（　　）
A．该图像的存储容量约为6MB
B．BMP是静态图像的压缩标准
C．该图像每个像素色彩编码的位数为8
D．该图像中存在时间冗余
【答案】C
【知识点】图形与图像、位图与矢量图的概念；声音、图像、视频编码
7．（2019高二下·浙江月考）某算法的部分流程图如右图所示。执行这部分流程，变量a的值是
A．4 B．5 C．1 D．0
【答案】D
【知识点】常量、变量及变量的赋值；流程图识读
8．（2019高二下·浙江月考）下列VB表达式的值为奇数的是（　　）
A．Int(17/4) B．Asc("A")+1
C．Abs (-1) +2 D．Val(Mid("123456", 4, 1))
【答案】C
【知识点】运算符、基本运算与表达式
9．（2019高二下·浙江月考）对N个数进行冒泡排序，下列描述正确的是（　　）
A．比较次数为N-1次
B．最多需交换N次
C．交换数据的次数一定比选择排序多
D．元素的交换次数小于或等于元素的比较次数
【答案】D
【知识点】排序算法及程序实现
10．（2019高二下·浙江月考）生成n个不重复2位随机奇数的VB程序段如下：
For i = 1 To n
a(i) =
For j = 1 To i-1
If a(i)=a(j) Then
Exit For
End If
Next j
Next i
上述程序段2个方框处的表达式分别为
A．① Int(Rnd*50)*2+11 ② j = j - 1
B．① Int(Rnd*99)+1 ② i = i - 1
C．① Int(Rnd*89)+11 ② j = j + 1
D．① Int(Rnd*45)*2+11 ② i = i - 1
【答案】D
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
11．（2019高二下·浙江月考）某对分查找算法的VB程序段如下：
i = 1: j = 6: k = 0
key = Val(Text1.Text)
Do While i<= j
k = k + 1
m = Int((i + j)/2 + 0.5)
If key = a(m) Then Exit Do
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
文本框Text1中输入27，执行该程序段后，k的值为2，则a(1)到a(6)各元素可能的值是（　　）
A．12，45，27，31，78，95 B．15，27，56，61，73，89
C．89，73，61，56，35，27 D．13，31，47，56，73，80
【答案】B
【知识点】常量、变量及变量的赋值；查找算法及程序实现
12．（2019高二下·浙江月考）某VB程序段如下：
For i = 1 To 7
b(i) = 1
Next i
For i = 1 To 7
For j = 1 To i - 1
If a(i)>a(j) and b(i)<=b(j) Then
b(i) = b(j) + 1
End If
Next j
If b(i) > max Then max = b(i)
Next i
数组元素a(1)到a(7)的值依次“50,10,14,64,47,70,82”，执行该程序段后，变量max的值是（　　）
A．5 B．4 C．3 D．2
【答案】A
【知识点】常量、变量及变量的赋值；排序算法及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分。）
13．（2019高二下·浙江月考）小林收集了某地第二季度的天气数据，并用Excel软件进行数据处理，如图所示。
图1
请回答下列问题：
（1）在G3单元格输入公式并用自动填充功能完成区域G4:G84的计算，计算时应用了IF函数，则G78单元格中的公式是　 　。
（提示：If函数用于判断是否满足某个条件，如果满足返回一个值，如果不满足返回另一个值。例如：“=IF(E2<60,"不合格",IF(E2>=80,"优秀","合格"))”）。
（2）根据图1中的数据制作如图2所示的图表，则创建该图表的数据区域是　 　。
图2
（3）将数据区域A2：G84复制到新的数据表，若要从表中找出“温差”最大的记录。下列方法可行的是 。（多选，填字母）。
A．以“温差”为“最大1项”进行筛选，可筛选出符合要求的数据
B．用Max函数计算出D列中最大的一项即为所需数据
C．以“温差”为主要关键字进行降序排序，选取与第1条温差值相同的数据
D．以“最低温度”为“最小1项”、“最高温度”为“最大1项”进行筛选，可筛选出符合要求的日期
【答案】（1）=IF(F78<=50,“优”, IF(F78<=100,“良”, “差”))
（2）A2:A7,D2:D7,F2:F7
（3）A；C
【知识点】表格数据的基本操作；表格数据的处理与计算
14．（2019高二下·浙江月考）用Flash软件打开“风荷举.fla”文件，编辑界面如图所示。
（1）在创作作品前，要进行相应的分析。下列不属于应用需求分析的是　 　。（多选，填字母：A .根据脚本大纲，编写文字脚本 /B .确定作品的主题思想为“风荷举” /C .该作品面向小学生演示播放 /D .设计作品的主交互界面 /E .确定该作品的经济效益）
（2）要使当前场景动画播放结束，“音乐”图层中的声音同时停止，可将“音乐”图层中声音的“同步”属性设置为　 　（选填：数据流/事件）。
（3）在“鹅”图层中创建了“鹅”实例从舞台左侧游到舞台右侧的动画，则该动画的类型是　 　（选填：动画补间/形状补间）。
（4）为使“荷花”图层中的 “荷花”实例在动画开始2秒后出现，可行的操作是　 　。
（5）影片发布后，单击“链接”按钮， 实现在浏览器中打开网站“http://www..cn”，同时关闭动画。则“链接”按钮的动作脚本为on(press){　 　}。
【答案】（1）ABD
（2）数据流
（3）动画补间
（4）将荷花图层第10帧移至第21帧（19-21帧都正确，或其他等价答案）
（5）Geturl(“http:// www..cn”) ;fscommand(“quit”)
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．（2019高二下·浙江月考）某加密算法对大写字母加密，其加密规则如下：密文的ASCII码值=明文的ASCII码值+密钥，加密后生成的密文仍为大写字母。其密钥是在3*3矩阵中获得，获得密钥的方式为：如字母“A”的ASCII码值为65，将65反复除3，其转换过程如图1所示，得到商为2，密钥在矩阵中所在行；得到余数2，密钥在矩阵中所在列；商或余数为0，密钥在矩阵中最后一行或最后一列。其程序运行界面如图2所示。
（1）下列对象中没有Caption属性的是　 　(单选，填字母:mand1 /B .Form1 /C .Text1和Text2)。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim a(1 To 9) As Integer
Private Sub Command1_Click()
Dim column As Integer, row As Integer, t As Integer, tmp As Integer
Dim s As String, ch As String, result As String
s = Text1.Text: result = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1): t =　 　.
column = (t - 1) Mod 3 + 1
Do While t >= 3
t = t \ 3
Loop
row =
tmp = (Asc(ch) + 　 　 - 65) Mod 26 + 65
result = result + Chr(tmp)
Next i
Text2.Text = result
End Sub
Private Sub Form_Load() '用来生成3*3矩阵
For i = 1 To 9
a(i) = Int(Rnd * 9) + 1
s = s + Str(a(i))
If i Mod 3 = 0 Then
List1.AddItem s
s = ""
End If
Next i
End Sub
（3）程序中加框处代码有错，请改正。
（4）根据程序的功能并结合图2，字母C加密后的密文为　 　。
【答案】（1）C
（2）Asc(ch)；a((row - 1) * 3 + column)
（3）（t-1）Mod 3 + 1 或（t+2）Mod 3 + 1 或（t-1+3）Mod 3 + 1
（4）F
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现；加密与解密算法
16．（2019高二下·浙江月考）某校跳高比赛计分规则如下：每个高度每位选手最多试跳三次，成功记为1，失败或轮空记为0。如选手第一次试跳成功记为100，第二次试跳成功记为010，第三试跳成功记为001，三次失败则终止比赛。编写VB程序统计选手积分，在文本框Text1中输入姓名和成绩，在列表框List1中输出结果，其算法如下：1.将每个选手的跳高记录三位一组转换成十进制数存储到数组a (该数组元素的值都不相同)。2.先比较数组a中各数组元素的长度，长度长的排名在前；若长度相同的情况下从后往前依次比较字符大小，当前数值大的排名在前。程序运行界面如图所示：
请在划线处填入合适的代码。
Dim a(1 To 9) As String '存储跳高成绩
Dim b(1 To 9) As String '存储学生姓名
Dim c(1 To 9) As Integer
Private Sub Command1_Click()
Dim ch As String, tmp As Integer, t As Integer
Dim p As Integer, k As Integer, i As Integer, j As Integer
Dim s As String
s = Text1.Text: t = 0
For i = 1 To　 　 .
If Mid(s, i, 1) <> "/" Then
ch = ch + Mid(s, i, 1)
Else
t = t + 1
If t Mod 2 = 0 Then
a(t \ 2) = zh(ch)
Else
　 　
End If
ch = ""
End If
Next i
For i = 1 To t\2
c(i) = i
Next i
For i = 1 To t \ 2 - 1
p = i
For j = i + 1 To t \ 2
If Len(a(c(p))) < Len(a(c(j))) Then
p = j
ElseIf Len(a(c(j))) = Len(a(c(p))) Then
k = Len(a(j)): flag = True
Do While k >= 1 And flag
If Val(Mid(a(c(j)), k, 1)) > Val(Mid(a(c(p)), k, 1)) Then
p = j
flag=false
ElseIf val(Mid(a(c(j)), k, 1)) = val(Mid(a(c(p)), k, 1)) Then
k = k - 1
Else
flag = False
End If
Loop
End If
Next j
If p <> i Then
tmp = c(i): c(i) = c(p): c(p) = tmp
End If
Next i
For i = 1 To t \ 2
　 　
Next i
End Sub
Function zh(cm As String) As String
Dim temp As String
Dim i As Integer, j As Integer
For i = 1 To 　 　
For j = 1 To 3
temp =temp * 2 + Val(Mid(cm, (i - 1) * 3 + j, 1)) .
Next j
zh = zh + CStr(temp) 'CStr函数可把表达式转换为字符串类型
temp = 0
Next i
End Function
【答案】Len(s)/len(text1.text)；b((t + 1) \ 2) = ch；List1.AddItem Str(i) + " " + b(c(i)) + " " + a(c(i))；len(cm)\3
【知识点】运算符、基本运算与表达式；过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1

展开更多......

收起↑