2011年6月信息技术会考-算法与程序设计试题.doc

PAGE  第PAGE 22页 共 NUMPAGES 22页 2011年6月高中信息技术会考 算法与程序设计题（第一套） 四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分） 1．有如下Visual Basic程序段： a = 4 b = 5 a = a / 2 c = Abs(a - b) 该程序段运行后，变量c的值为____________。 2. 有如下Visual Basic程序段： a = 9 b = Command Button c = Len(b) If a 0 And a c Then Label1.Caption = Mid(b, a, 6) Else Label1.Caption = error End 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 程序进行数据处理。程序运行界面如图所示，左边列表框List1中显示生猪生长的各阶段编号及对应的产肉比，单击“排序”按钮Command1后，右边的列表框List2中显示按产肉比从高到低排序后的数据。所收集到的不同生长阶段编号和对应的产肉比数据已分别保存在数组a和数组b中。 排序部分程序如下： Dim a(1 To 10) As String 数组a用于存储阶段编号 Dim b(1 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 i Then s = a(i): a(i) = a(k): a(k) = s t = b(i): ② : b(k) = t End If Next i For i = 1 To 10 List2.AddItem a(i) + + Str(b(i)) Next i End Sub Private Sub Form_Load() 此过程用于对数组a和数组b进行赋值，并显示在List1中，代码略 End Sub （1）解决此问题采用的算法是__________________。（填：选择排序/冒泡排序） （2）在程序 = 1 \* GB3 ①和 = 2 \* GB3 ②划线处填入适当的语句或表达式，将程序补充完整： 程序中①划线处应填入___________________。 程序中②划线处应填入___________________。 2011年6月高中信息技术会考 算法与程序设计题（第二套） 四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分） 1．有如下Visual Basic程序段： a = 3.14 b = 20 c = Int(a) + b 该程序段运行后，变量c的值为____________。 2. 有如下Visual Basic程序段： a = 360 b = Val(a) c = Len(a) If b c Then Label1.Caption = 取数值 Else Label1.Caption = 取字符 End If 该程序段运行后，在标签Label1上显示的是____________。 3. 打开考生文件夹下“VB”文件夹中的“test.vbp”，该VB程序的功能是：单击“开始”按钮Co