新高三信息技术统练试题
第部分 信息技术（50分）
命题：张雄 审题：罗呈娇
选择题（题12题题2分24分题列出四选项中
符合题目求选选错选均分）
1．列描述中正确
A．IE浏览器解释执行HTML语言
B．网交流表达信息时遵循定标准目信息表达数字化
C．商家超市APP链接址制作成二维码程属信息发布
D．通线网络传输信息附载体
2．某协议功完成数包确认流量控制网络拥塞动检测数包提供错误重发功该协议简称
A．HTTP B．SMTP C．TCP D．POP
3．WinHex软件查字符2017 第学期码部分界面图示
列说法正确
A．原文包含4ASCII码
B．字符码占10字节
C．图中推出关系表达式10>2值True
D．字符期码C6 DA
4．某算法部分流程图右图示执行部分流程输出c值
A．50
B．34
C．55
D．60
5．Access软件开数库部分界面图示列说法正确
A．前数库包含3张数表
B．学生联系数表3条记录
C．Access数表中数导出Excel
D．数表学生联系中输入条记录时先输入学号
6．十进制数160转化八位二进制数高（左）4位加2低（右）四位加6转化十进制数结果
A．168 B．198 C．166 D．182
7．Goldwave软件开某音频文件选取中段音频部分界面图示列说法正确
A．单击剪裁钮音频文件变原13
B．单击删钮执行插入静音10秒音频时长变
C．执行录音命令10秒音频文件变原43
D．执行静音命令音频时长变
8．某Photoshop作品部分界面列说法正确
A．制作图层滤镜效果
B．背景图层移动米老鼠图层方遮住该图层容
C．尾巴图层米老鼠图层设置图层样式效果肯定相
D．通移动尾巴图层尾巴米老鼠图层米老鼠相位置变更合理[源学|科|网Z|X|X|K]
9．Flash软件制作动画作品中场景部分时间轴界面图示列说法正确
A．背景图层前面20帧容面20帧容肯定相
B．音乐图层第帧添加声音
C．删音乐图层
D．实现该场景循环播放直接第40帧添加帧动作gotoAndPlay(1)
10．加试题某psd格式文件默认方式保存bmp格式该bmp图Photoshop开部分界面右图示已知该图宽度400素高度300素该图约
A．351．6KB B．117．2KB C．58．6KB D．1758KB
11．加试题 VB程序段：
Max10000
For i 1 To 10
s 0
For j i To 10
s s + a(j)
If s > max Then max s
Next j
Next i
已知数组a(1)a(10)原始数6687722124．程序执行变量max值
A．9 B．10 C．27 D．4
12．加试题VB程序段：
k Val(Text1．Text)
left1 1 right1 10
Do While (left1 < right1)
mid1 (left1 + right1) ＼ 2
If a(mid1) left1 mid1 + 1
Else
right1 mid11
End If
Loop
Text2．textstr(right1)
已知数组a(1)a(10)原始数14555589910．程序运行时文框text1中输入5文框text2显示容
A．5 B．10 C．3 D．6[源学科网]
二非选择题（题5题中第13题4分第14题5分第15题8分第16题3分第17题6分26分）
13．王高三（1）高三（2）学生期末考期中考成绩进行简单处理分析图
图a
请回答列问题：
（1）王已期末成绩班级姓名排序期中工作表中数复制F3J23够统计出学生两次考试科成绩差高三（1）班期中数已进行处理两次考试学生行高三（2）数达样目写出处理方法：
（2）区域K4M23数通公式计算：K4单元格输入公式动填充功完成K4M23计算K4单元格中公式
（3）根图a中数制作图表示创建该图表数区域
14．编字符串缩写程序实现功文框Text1中输入Ascii字符串字符串中果Ascii表中相邻字符（升序）组成子串该子串缩写成第字符字符组成abcdfpxcba缩写成adfpxcba程序运行界面图示
（1）代码Private Sub Command1_Click()中Command1
(单选填字母：A．象名 B．事件 C．事件处理程)
（2）实现述功VB程序请划线处填入合适代码[源学科网]
Private Sub Command1_Click()
Dim s As String result As String i As Integer j As Integer t As Integer
s Text1．Text ：t Len(s) ：result
i1
Do While i < t
j i
Do While i < t
If Asc(Mid(s i + 1 1)) Asc(Mid(s i 1)) + 1 Then
i i + 1
Else
Exit Do
End If
Loop
If i > j Then
result ①
Else
result result + Mid(s i 1)
End If
i i + 1
Loop
Text2．Text ②
End Sub
（3）果输入字符串aBcucwxyzdcb输出结果____________
15．Flash作品剪纸艺术．flamain场景制作脚：
场景：main
类序号：2
进入方式：load场景单击播放钮进入
呈现方式：
1．剪纸简介舞台右方慢慢移动
2．单击中国剪纸网钮链接网址httpwww．zhjz．com网页单击退出钮转入end场景
3．动画略
呈现序说明：
1．开始出现退出钮中国剪纸网钮背景动画次出现 剪纸物剪纸简介剪纸1剪纸2剪纸3动画
图a
图b
（1）测试main场景时鼠标退出钮时没出现手形状元件编辑状态图b示解决问题列操作方法行 (选填字母：A．删文字图层点击帧 B．矩形图层点击帧插入帧 C． 文字图层点击帧执行清关键帧 D．文字图层点击帧执行转换关键帧
（2）该Flash作品场景序 (填：否)符合脚求
（3）观察图a剪纸1图层第18帧第30帧补间类型
（4）测试场景时背景画面播放30帧时消失画面直延续帧正确操作
（5）main场景动循环播放直单击退出钮转入end场景 应main场景帧添加动作脚
16．加试题明基选择排序算法编写VB程序功：某班50学生中选择10身高高学求选两身高样（数保证选10）
实现述功VB程序加框处代码错请改正
Const n 50
Dim d(0 To n) As single name(1 to n) as string
＇读入50学生身高次存入d(1)…d(50)姓名存入name(1)…name(50) ＇代码略
Private Sub Command1_Click()
Dim i As Integer j As Integer temp As single k As Integerr as string
d(0) 2
For i 1 To 10
ki
For j i To n
If d(j) < d(i 1) Then
If k 0 and d(k) < d(j)
Then
k j
End If
End If
Next j[源学&科&网Z&X&X&K]
If k <> i Then
temp d(k) d(k) d(i) d(i) temp
rname(k) name(k)name(i) name(i)r
End If
Next i
For i 1 To 10 输出选10名字身高
List2．AddItem name(i) & d(i)
Next i
End Sub
17．加试题酒店房间理：酒店房间(房间数10000)编号123…连续编号老板没出租房子方法登记理连续空房间登记第间编号连续空房间数空房间12 67810登记3条记录分（1 2）（6 3）（10 1）．
某旅客退房需房子登记四种情况需处理：
1）例退房间号3原登记3条记录变成（1 3） （6 3） （10 1）．
2）例退房间号5原登记3条记录变成（1 2） （5 4） （10 1）．
3）例退房间号4登记记录数变成4条（1 2） （4 1） （6 3）（10 1）．
4）例退房间号9登记记录数变成2条（12）（65）．[源学+科+网]
王述描述设计VB程序请回答列问题：
（1）登记记录3条分（14）（62）（103）．现某旅客退掉5号房间登记记录变成
（2）请划线处填入合适代码
Const n 5000
Dim a(0 To n) As Integer ＇a(i)保存第i条记录开始房间号
Dim b(0 To n) As Integer ＇ b(i)保存第i条记录房间数
Dim c As Integer k As Integer sp As Integer ＇k原始记录数
＇ 读取原始k条记录数次存入a(1)b(1)a(2)b(2)…a(k)b(k)代码略
＇程序处理方便虚设面2条记录
a(0) 0 b(0) 0 sp k + 1 ： a(sp) 10000 ： b(sp) 0
Private Sub Command1_Click()
Dim i As Integer
c Val(Text1Text) ＇c退掉房间号
i 1
Do While a(i) < c ＇查找房间c应该登记某位置
i i + 1
Loop
i i 1
＇面处理退房登记问题
If a(i) + b(i) c Then
If ① Then ＇第4种情况
b(i) b(i) + 1 + b(i + 1)
For j i + 1 To sp 1
a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输 a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddIte a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登 a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
+ 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
m 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
o ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
第部分 信息技术（50分）
命题：张雄 审题：罗呈娇
选择题（题12题题2分24分题列出四选项中
符合题目求选选错选均分）
1．列描述中正确
A．IE浏览器解释执行HTML语言
B．网交流表达信息时遵循定标准目信息表达数字化
C．商家超市APP链接址制作成二维码程属信息发布
D．通线网络传输信息附载体
2．某协议功完成数包确认流量控制网络拥塞动检测数包提供错误重发功该协议简称
A．HTTP B．SMTP C．TCP D．POP
3．WinHex软件查字符2017 第学期码部分界面图示
列说法正确
A．原文包含4ASCII码
B．字符码占10字节
C．图中推出关系表达式10>2值True
D．字符期码C6 DA
4．某算法部分流程图右图示执行部分流程输出c值
A．50
B．34
C．55
D．60
5．Access软件开数库部分界面图示列说法正确
A．前数库包含3张数表
B．学生联系数表3条记录
C．Access数表中数导出Excel
D．数表学生联系中输入条记录时先输入学号
6．十进制数160转化八位二进制数高（左）4位加2低（右）四位加6转化十进制数结果
A．168 B．198 C．166 D．182
7．Goldwave软件开某音频文件选取中段音频部分界面图示列说法正确
A．单击剪裁钮音频文件变原13
B．单击删钮执行插入静音10秒音频时长变
C．执行录音命令10秒音频文件变原43
D．执行静音命令音频时长变
8．某Photoshop作品部分界面列说法正确
A．制作图层滤镜效果
B．背景图层移动米老鼠图层方遮住该图层容
C．尾巴图层米老鼠图层设置图层样式效果肯定相
D．通移动尾巴图层尾巴米老鼠图层米老鼠相位置变更合理[源学|科|网Z|X|X|K]
9．Flash软件制作动画作品中场景部分时间轴界面图示列说法正确
A．背景图层前面20帧容面20帧容肯定相
B．音乐图层第帧添加声音
C．删音乐图层
D．实现该场景循环播放直接第40帧添加帧动作gotoAndPlay(1)
10．加试题某psd格式文件默认方式保存bmp格式该bmp图Photoshop开部分界面右图示已知该图宽度400素高度300素该图约
A．351．6KB B．117．2KB C．58．6KB D．1758KB
11．加试题 VB程序段：
Max10000
For i 1 To 10
s 0
For j i To 10
s s + a(j)
If s > max Then max s
Next j
Next i
已知数组a(1)a(10)原始数6687722124．程序执行变量max值
A．9 B．10 C．27 D．4
12．加试题VB程序段：
k Val(Text1．Text)
left1 1 right1 10
Do While (left1 < right1)
mid1 (left1 + right1) ＼ 2
If a(mid1)
Else
right1 mid11
End If
Loop
Text2．textstr(right1)
已知数组a(1)a(10)原始数14555589910．程序运行时文框text1中输入5文框text2显示容
A．5 B．10 C．3 D．6[源学科网]
二非选择题（题5题中第13题4分第14题5分第15题8分第16题3分第17题6分26分）
13．王高三（1）高三（2）学生期末考期中考成绩进行简单处理分析图
图a
请回答列问题：
（1）王已期末成绩班级姓名排序期中工作表中数复制F3J23够统计出学生两次考试科成绩差高三（1）班期中数已进行处理两次考试学生行高三（2）数达样目写出处理方法：
（2）区域K4M23数通公式计算：K4单元格输入公式动填充功完成K4M23计算K4单元格中公式
（3）根图a中数制作图表示创建该图表数区域
14．编字符串缩写程序实现功文框Text1中输入Ascii字符串字符串中果Ascii表中相邻字符（升序）组成子串该子串缩写成第字符字符组成abcdfpxcba缩写成adfpxcba程序运行界面图示
（1）代码Private Sub Command1_Click()中Command1
(单选填字母：A．象名 B．事件 C．事件处理程)
（2）实现述功VB程序请划线处填入合适代码[源学科网]
Private Sub Command1_Click()
Dim s As String result As String i As Integer j As Integer t As Integer
s Text1．Text ：t Len(s) ：result
i1
Do While i < t
j i
Do While i < t
If Asc(Mid(s i + 1 1)) Asc(Mid(s i 1)) + 1 Then
i i + 1
Else
Exit Do
End If
Loop
If i > j Then
result ①
Else
result result + Mid(s i 1)
End If
i i + 1
Loop
Text2．Text ②
End Sub
（3）果输入字符串aBcucwxyzdcb输出结果____________
15．Flash作品剪纸艺术．flamain场景制作脚：
场景：main
类序号：2
进入方式：load场景单击播放钮进入
呈现方式：
1．剪纸简介舞台右方慢慢移动
2．单击中国剪纸网钮链接网址httpwww．zhjz．com网页单击退出钮转入end场景
3．动画略
呈现序说明：
1．开始出现退出钮中国剪纸网钮背景动画次出现 剪纸物剪纸简介剪纸1剪纸2剪纸3动画
图a
图b
（1）测试main场景时鼠标退出钮时没出现手形状元件编辑状态图b示解决问题列操作方法行 (选填字母：A．删文字图层点击帧 B．矩形图层点击帧插入帧 C． 文字图层点击帧执行清关键帧 D．文字图层点击帧执行转换关键帧
（2）该Flash作品场景序 (填：否)符合脚求
（3）观察图a剪纸1图层第18帧第30帧补间类型
（4）测试场景时背景画面播放30帧时消失画面直延续帧正确操作
（5）main场景动循环播放直单击退出钮转入end场景 应main场景帧添加动作脚
16．加试题明基选择排序算法编写VB程序功：某班50学生中选择10身高高学求选两身高样（数保证选10）
实现述功VB程序加框处代码错请改正
Const n 50
Dim d(0 To n) As single name(1 to n) as string
＇读入50学生身高次存入d(1)…d(50)姓名存入name(1)…name(50) ＇代码略
Private Sub Command1_Click()
Dim i As Integer j As Integer temp As single k As Integerr as string
d(0) 2
For i 1 To 10
ki
For j i To n
If d(j) < d(i 1) Then
If k 0 and d(k) < d(j)
Then
k j
End If
End If
Next j[源学&科&网Z&X&X&K]
If k <> i Then
temp d(k) d(k) d(i) d(i) temp
rname(k) name(k)name(i) name(i)r
End If
Next i
For i 1 To 10 输出选10名字身高
List2．AddItem name(i) & d(i)
Next i
End Sub
17．加试题酒店房间理：酒店房间(房间数10000)编号123…连续编号老板没出租房子方法登记理连续空房间登记第间编号连续空房间数空房间12 67810登记3条记录分（1 2）（6 3）（10 1）．
某旅客退房需房子登记四种情况需处理：
1）例退房间号3原登记3条记录变成（1 3） （6 3） （10 1）．
2）例退房间号5原登记3条记录变成（1 2） （5 4） （10 1）．
3）例退房间号4登记记录数变成4条（1 2） （4 1） （6 3）（10 1）．
4）例退房间号9登记记录数变成2条（12）（65）．[源学+科+网]
王述描述设计VB程序请回答列问题：
（1）登记记录3条分（14）（62）（103）．现某旅客退掉5号房间登记记录变成
（2）请划线处填入合适代码
Const n 5000
Dim a(0 To n) As Integer ＇a(i)保存第i条记录开始房间号
Dim b(0 To n) As Integer ＇ b(i)保存第i条记录房间数
Dim c As Integer k As Integer sp As Integer ＇k原始记录数
＇ 读取原始k条记录数次存入a(1)b(1)a(2)b(2)…a(k)b(k)代码略
＇程序处理方便虚设面2条记录
a(0) 0 b(0) 0 sp k + 1 ： a(sp) 10000 ： b(sp) 0
Private Sub Command1_Click()
Dim i As Integer
c Val(Text1Text) ＇c退掉房间号
i 1
Do While a(i) < c ＇查找房间c应该登记某位置
i i + 1
Loop
i i 1
＇面处理退房登记问题
If a(i) + b(i) c Then
If ① Then ＇第4种情况
b(i) b(i) + 1 + b(i + 1)
For j i + 1 To sp 1
a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输 a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddIte a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登 a(j) a(j + 1) b(j) b(j + 1)
Next j
sp sp 1
Else ＇第1种情况
b(i) b(i) + 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
+ 1
End If
ElseIf c + 1 a(i + 1) Then ＇第2种情况
a(i + 1) c b(i + 1) b(i + 1) + 1
Else ＇第3种情况
For j ②
a(j) a(j 1) b(j) b(j 1)
Next j
a(i + 1) c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
m 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
c b(i + 1) 1 sp sp + 1
End If
面输出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
出登记记录包括虚设两条记录
For i 1 to ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
o ③
List3．AddItem 第 & Str(i) & 记录（ & Str(a(i)) & & Str(b(i)) & )
Next i
End Sub
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档