【VB开源代码栏目提醒】：网学会员VB开源代码为您提供2011年6月信息技术会考-算法与程序设计试题 - 其它资料参考，解决您在2011年6月信息技术会考-算法与程序设计试题 - 其它资料学习中工作中的难题，参考学习。

    

2011 年 6 月高中信息技术会考 算法与程序设计题（第一套）四、程序设计题（本题有 4 小题，第 1－3 小题，每小题 4 分，第 4 小题 6 分，共 18 分）1．有如下 Visual Basic 程序段：a 4b 5a a / 2c Absa - b该程序段运行后，变量 c 的值为____________。

    2. 有如下 Visual Basic 程序段：a 9b quotCommand Buttonquotc LenbIf a gt 0 And a lt c Then Label1.Caption Midb a 6Else Label1.Caption quoterrorquotEnd If该程序段运行后，在标签 Label1 上显示的是____________。

    3. 打开考生文件夹下“VB”文件夹中的“test.vbp” ，该 VB 程序的功能是：单击“开始”按钮 Command1，小熊开始“滑冰” “滑冰”动作停止；单击 ；单击“停止” 按钮 Command2，“退出”按钮 Command3，结束并退出程序。

    程序运行界面如图所示： 完成以下操作： （1）将命令按钮 Command1 的 Caption 属性值设置为“开始”； 为 并将 （2） “停止” 按钮 Command2 添加 Click 事件过程， “VB” 文件夹下 “code.txt”文件中的所有代码复制到该事件过程中。

    调试程序正确，并保存窗体文件 test.frm 和工程文件 test.vbp。

    4．郑均收集了某公司生猪生长各阶段的产肉比数据，他设计了如下 Visual Basic 程序进 删除的内容: 第 1 页 共 22 页行数据处理。

     程序运行界面如图所示，左边列表框 List1 中显示生猪生长的各阶段编号及对应的产肉比，单击“排序”按钮 Command1 后，右边的列表框 List2 中显示按产肉比从高到低排序后的数据。

    所收集到的不同生长阶段编号和对应的产肉比数据已分别保存在数组 a和数组 b 中。

    排序部分程序如下：Dim a1 To 10 As String 数组 a 用于存储阶段编号Dim b1 To 10 As Single 数组 b 用于存储产肉比Private Sub Command1_Click Dim i As Integer j As Integer k As Integer t As Single s As String For i 1 To 9 k i For j i 1 To 10 If ① Then k j Next j If k ltgt i Then s ai: ai ak: ak s t bi: ② : bk t End If Next i For i 1 To 10 List2.AddItem ai quot quot Strbi Next iEnd SubPrivate Sub Form_Load 此过程用于对数组 a 和数组 b 进行赋值，并显示在 List1 中，代码略End Sub（1）解决此问题采用的算法是__________________。

     （填：选择排序/冒泡排序）（2）在程序①和②划线处填入适当的语句或表达式，将程序补充完整： 程序中①划线处应填入___________________。

     程序中②划线处应填入___________________。

     删除的内容: 第 1 页 共 22 页 2011 年 6 月高中信息技术会考 算法与程序设计题（第二套）四、程序设计题（本题有 4 小题，第 1－3 小题，每小题 4 分，第 4 小题 6 分，共 18 分）1．有如下 Visual Basic 程序段：a 3.14b 20c Inta b该程序段运行后，变量 c 的值为____________。

    2. 有如下 Visual Basic 程序段：a quot360quotb Valac LenaIf b gt c Then Label1.Caption quot取数值quotElse Label1.Caption quot取字符quotEnd If该程序段运行后，在标签 Label1 上显示的是____________。

    3. 打开考生文件夹下“VB”文件夹中的“test.vbp” ，该 VB 程序的功能是：单击“开始”按钮 Command1，小熊开始“滑冰” “滑冰”动作停止；单击 ；单击“停止” 按钮 Command2，“退出”按钮 Command3，结束并退出程序。

    程序运行界面如图所示： 完成以下操作： （1）将命令按钮 Command2 的 Caption 属性值设置为“停止”； 为 并将 （2） “开始” 按钮 Command1 添加 Click 事件过程， “VB” 文件夹下 “code.txt”文件中的所有代码复制到该事件过程中。

    调试程序正确，并保存窗体文件 test.frm 和工程文件 test.vbp。

     1 1 2 1 2 34. 张松编写了一个用 1 ... 求π近似值的 Visual Basic 程序。

     2 3 3 5 3 5 7 删除的内容: 第 1 页 共 22 页 n 1主要算法：将问题转化为求 a1 a 2 a n 其中 a n a n 1 n 为大于 1 的 2 2n 1整数。

    程序运行界面如图所示，在文本框 Text1 中输入计算项数 n（计算到第 n 项），单击“计算”按钮 Command1，在文本框 Text2 中输出π值。

    程序代码如下：Private Sub Command1_Click Dim n As Integer i As Integer j As Double s As Double n ValText1.Text j 1 s 1 For i 2 To n j j i - 1 / 2 i - 1 s ① Next i Text2.Text ②End Sub（1）解决此问题采用的算法是 。

    （填：解析算法/递归算法）（2）在程序①和②划线处填入适当的语句或表达式，将程序补充完整： 程序中①划线处应填入___________________。

     程序中②划线处应填入___________________。

     2011 年 6 月高中信息技术会考 算法与程序设计题（第三套）四、程序设计题（本题有 4 小题，第 1－3 小题，每小题 4 分，第 4 小题 6 分，共 18 分）1．有如下 Visual Basic 程序段：a 6b quotHelloquotc a 2 - Lenb该程序段运行后，变量 c 的值为____________。

     删除的内容: 第 1 页 共 22 页2. 有如下 Visual Basic 程序段：a 10b 6c 5If a b gt c And b c gt a And c a gt b Then Label1.Caption quotYESquotElse Label1.Caption quotNOquotEnd If该程序段运行后，在标签 Label1 上显示的是____________。

    3. 打开考生文件夹下“VB”文件夹中的“test.vbp” ，该 VB 程序的功能是：单击“开始”按钮 Command1，小熊开始“滑冰” “滑冰”动作停止；单击 ；单击“停止” 按钮 Command2，“结束”按钮 Command3，结束并退出程序。

    程序运行界面如图所示： 完成以下操作： （1）将命令按钮 Command3 的 Caption 属性值设置为“结束”； 为 （2） “停止”按钮 Command2 添加 Click 事件过程，并将“VB”文件夹下 “code.txt”文件中的所有代码复制到该事件过程中。

    调试程序正确，并保存窗体文件 test.frm 和工程文件 test.vbp。

    4．角谷猜想。

    对任意一个大于 1 的正整数 n，进行如下运算：若 n 是奇数时，n 的值替换为3n1，若 n 是偶数时，n 的值替换为 n/2；重复以上运算，n 最终变为 1。

     下面程序用于验证角谷猜想，程序运行界面如图所示。

    在文本框 Text1 中输入一个正整数，单击“验证”按钮 Command1，在列表框 List1 中输出每一步的运算过程。

     删除的内容: 第 1 页 共 22 页 解决此问题的算法流程图如图所示：程序代码如下： Private Sub Command1_Click Dim n As Single i As Integer n ValText1.Text List1.Clear 清除列表框 List1 中的内容 If Intn ltgt n Or n lt 1 Then List1.AddItem quot请输入大于 1 的正整数！quot Else i 0 删除的内容: 第 1 页 共 22 页 Do While ① If n Mod 2 0 Then n ② Else n n 3 1 End If i i 1 List1.AddItem Stri quot quot Strn Loop End If End Sub（1）解决此问题的算法是 。

    （填：解析算法/对分查找）（2）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整： 程序中①划线处应填入___________________。

     程序中②划线处应填入___________________。

     2011 年 6 月高中信息技术会考 算法与程序设计题（第四套）四、程序设计题（本题有 4 小题，第 1－3 小题，每小题 4 分，第 4 小题 6 分，共 18 分）1．有如下 Visual Basic 程序段：a 2.17b -4c Inta b该程序段运行后，变量 c 的值为____________。

    2. 有如下 Visual Basic 程序段：w 9a 90b 50If w gt 10 Or a b gt 4000 Then Label1.Caption quot托运quotElse Label1.Caption quot携带quotEnd If该程序段运行后，在标签 Label1 上显示的是____________。

    3. 打开考生文件夹下 “VB”文件夹中的 ， “test.vbp” 该 VB 程序的功能是： 在列表框 List1 单击中显示 10 位同学的身高， “计算” 按钮 Command1，计算平均身高，并显示在文本框 Text1中。

    程序运行界面如图所示： 删除的内容: 第 1 页 共 22 页 完成以下操作： 。

     （1）将 Label2 标签的 Caption 属性值设置为“平均身高” （2）运行程序，发现统计出的平均身高值没有显示在 Text1 中，修改程序中的一处代码修正此问题。

    调试程序正确，并保存窗体文件 test.frm 与工程文件 test.vbp。

    4．小黄编制了一个 Visual Basic 程序，能根据输入的城市名查找并显示该城市的日照时间。

    程序运行界面如图所示， 左边列表框 List1 中显示各城市的日照时间和相应的城市名，在文本框 Text1 中输入查找的城市名，单击“查找”按钮 Command1，若找到，则在文本框 Text2中显示该城市的日照时间。

    程序中数组 a 和数组 b 分别存储城市名和对应的日照时间。

    程序代码如下：Const n As Integer 10 n 为城市数Dim a1 To n As String 数组 a 存储城市名Dim b1 To n As Single 数组 b 存储日照时间Private Sub Command1_Click Dim i As Integer s As String s 用于存储输入的城市名称 Dim f As Boolean f 用于表示是否找到，当 fTrue 时，表示未找到 s Text1.Text f True i 1 Do While i lt n And f If ① Then 删除的内容: 第 1 页 共 22 页 Text2.Text Strbi f False End If ② Loop If f Then Text2.Text quot没有该城市数据quot End IfEnd SubPrivate Sub Form_Load 此过程用于对数组 a 和数组 b 进行赋值，并显示在 List1 中，代码略End Sub（1）解决此问题的算法是 。

    （填：顺序查找/对分查找）（2）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整： 程序中①划线处应填入___________________。

     程序中②划线处应填入___________________。

     2011 年 6 月高中信息技术会考 算法与程序设计题（第五套）四、程序设计题（本题有 4 小题，第 1－3 小题，每小题 4 分，第 4 小题 6 分，共 18 分）1．有如下 Visual Basic 程序段：a 4b 3.14c a Intb该程序段运行后，变量 c 的值为____________。

    2. 有如下 Visual Basic 程序段：m 160If m lt 100 Then Label1.Caption quot不打折quotElseIf m gt 100 And m lt 150 Then Label1.Caption quot9.5 折quotElse Label1.Caption quot9 折quotEnd If该程序段运行后，在标签 Label1 上显示的是____________。

    3. 打开考生文件夹下“VB”文件夹中的“test.vbp”，该 VB 程序的功能是：在列表框 List1中显示 10 位工人完成的零件数，单击“计算”按钮 Command1，计算 10 位工人完成的零件总数，并显示在文本框 Text1 中。

    程序运行界面如图所示： 删除的内容: 第 1 页 共 22 页 完成以下操作： （1）将命令按钮 Command1 的 Caption 属性值设置为“计算”。

     （2）运行程序，发现统计出的完成总数没有显示在 Text1 中，修改程序中的一处代码修正此问题。

    调试程序正确，并保存窗体文件 test.frm 与工程文件 test.vbp。

    4．为了找出 QQ 在线时间最长的 5 名学生，李风设计了一个排序程序。

    程序运行界面如图所示， 单击 左边列表框 List1 中显示排序前数据， “排序” 按钮 Command1，在右边列表框 List2中显示在线时间从高到低排名前 5 名的数据。

    程序中数组 a 和数组 b 分别存储学生的 QQ 昵称和对应的 QQ 在线时间。

    程序代码如下：Const n As Integer 14 n 为学生数Dim a1 To n As String 数组 a 用于存储学生的 QQ 昵称Dim b1 To n As Integer 数组 b 用于存储学生的 QQ 在线时间Private Sub Command1_Click Dim i As Integer j As Integer t As String p As Integer For i 1 To n - 1 For j n To i 1 Step -1 If ① Then t aj - 1: aj - 1 aj: aj t p bj - 1: bj - 1 bj: bj p 删除的内容: 第 1 页 共 22 页 End If Next j Next i For i 1 To 5 List2.AddItem SpaceExai Strbi quot分钟quot Next iEnd Sub以下函数用于在字符串后补插空格Function SpaceExs As String As String Dim t As String d As Integer i As Integer t s: d Lens For i 1 To 5 - d t t quot quot Next i SpaceEx ②End FunctionPrivate Sub Form_Load 此过程用于对数组 a 和数组 b 进行赋值，并显示在 List1 中，代码略End Sub（1）解决此问题采用的算法是 （填：选择排序/冒泡排序） 。

    （2）在程序①和②划线处填入适当的语句或表达式，将程序补充完整： 程序中①划线处应填入___________________。

     程序中②划线处应填入___________________。

     2011 年 6 月高中信息技术会考 算法与程序设计题（第六套）四、程序设计题（本题有 4 小题，第 1－3 小题，每小题 4 分，第 4 小题 6 分，共 18 分）1．有如下 Visual Basic 程序段：a quotEnglishquotb quotfquotc b Mida 5 3该程序段运行后，变量 c 的值为____________。

    2. 有如下 Visual Basic 程序段：t 130h 170b h - 100 2If t gt b Then Label1.Caption quot超标quotElse Label1.Caption quot正常quotEnd If 删除的内容: 第 1 页 共 22 页该程序段运行后，在标签 Label1 上显示的是____________。

    3. 打开考生文件夹下“VB”文件夹中的“test.vbp” ，该 VB 程序的功能是：运行程序，出现“奔跑”画面；单击“加速”按钮 Command1，奔跑速度加快；单击“停止”按钮 Command2，奔跑停止；单击“结束”按钮 Command3，退出程序。

    程序运行界面如图所示： 完成以下操作： （1）将命令按钮 Command1 的 Caption 属性值设置为“加速”； 为 并将 （2） “停止” 按钮 Command2 添加 Click 事件过程， “VB” 文件夹下 “code.txt”文件中的所有代码复制到该过程中。

    调试程序正确，并保存窗体文件 test.frm 和工程文件test.vbp。

    4．郑强收集了某月部分品牌电脑在某城市的销售量， 并设计了一个 Visual Basic 排序程序。

    程序运行界面如图所示， 单击 左边列表框 List1 中显示排序前数据， “排序” 按钮 Command1，在右边列表框 List2 中显示按销售量从高到低排序后的结果。

     程序中数组 a 和数组 b 分别存储品牌名称和对应的销售量。

    程序代码如下：Const n As Integer 10 n 为品牌数Dim a1 To n As String 数组 a 用于存储品牌名称Dim b1 To n As Integer 数组 b 用于存储销售量Private Sub Command1_Click 删除的内容: 第 1 页 共 22 页 Dim i As Integer j As Integer c As Integer t As String For i 1 To ① For j 1 To n - i If ② Then c bj 1 : bj 1 bj : bj c t aj 1 : aj 1 aj : aj t End If Next j Next i For i 1 To n List2.AddItem ai quot quot Strbi Next iEnd SubPrivate Sub Form_Load 此过程用于对数组 a 和数组 b 进行赋初值，并显示在 List1 中，代码略End Sub（1）解决此问题采用的算法是 （填：选择排序/冒泡排序） 。

    （2）在程序①和②划线处填入适当的语句或表达式，将程序补充完整： 程序中①划线处应填入___________________。

     程序中②划线处应填入___________________。

     2011 年 6 月高中信息技术会考 算法与程序设计题（第七套）四、程序设计题（本题有 4 小题，第 1－3 小题，每小题 4 分，第 4 小题 6 分，共 18 分）1．有如下 Visual Basic 程序段：a quotFunctionquotb quotCapquotc b Mida 5 4该程序段运行后，变量 c 的值为____________。

    2. 有如下 Visual Basic 程序段：s 0For i 1 To 5 s s i 2Next iLabel1.Caption Strs该程序段运行后，在标签 Label1 上显示的是____________。

    3. 打开考生文件夹下“VB”文件夹中的“test.vbp” ，该 VB 程序的功能是：运行程序，出现“奔跑”画面；单击“加速”按钮 Command1，奔跑速度加快；单击“停止”按钮 Command2，奔跑停止；单击“结束”按钮 Command3，退出程序。

    程序运行界面如下图。

     删除的内容: 第 1 页 共 22 页 完成以下操作： （1）将命令按钮 Command2 的 Caption 属性值设置为“停止”； 为 （2） “加速”按钮 Command1 添加 Click 事件过程，并将“VB”文件夹下 “code.txt”文件中的所有代码复制到该事件过程中。

    调试程序正确，并保存窗体文件 test.frm 和工程文件 test.vbp。

    4．张强编写了一个 Visual Basic 程序，用于查找所有相同身高的同学编号。

    程序运行界面如图所示，在列表框 List1 中显示所有同学的编号和身高（按身高从低到高排列） ，在文本框 Text1 中输入需要查找的身高，单击“查找”按钮 Command1，在列表框 List2 中显示所有此身高的同学编号。

     数组 a 和数组 b 分别存储同学的编号和对应的身高（身高已从低到高排列.