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

2009年6月高中信息技术会考算法与程序设计题（第一套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1. 有如下Visual Basic程序段：m = "VB"n = "is"t = "easy"t = m + n + t该程序段运行后，变量t的值为____________。

2. 有如下Visual Basic程序段：a = 23b = 34If a > b ThenLabel1.Caption = "a>b"ElseLabel1.Caption = "a<=b"End If该程序段运行后，在标签Label1上显示的是____________。

3.以下Visual Basic程序的功能是：计算表达式1×3＋2×3＋3×3＋…100×3的值，并在文本框Text1中输出计算结果。

Private Sub Command1_Click()Dim i As Integer, s As Integers = 0i = 1Do While i <= 100s = i * 3i = i + 1LoopText1.Text = Str(s)End Sub问：（1）刚退出循环时，变量i的值是____________。

（2）为了实现上述表达式的计算，程序中划线处的表达式应更正为____________。

4．某市出租车计费标准规定：出租车启动后行程不超过3千米（包含3千米）计费5元；如果行程超过3千米且不超过10千米（包含10千米），则超过3千米部分按1.5元/千米计费（3千米及以内部分计费仍为5元）；若行程超过10千米，则在前面计费基础上，超出10千米部分按1.8元/千米计费。

假定某出租车行程为x千米，计费标准如下：当x≤3千米时，计费为5元；当3<x≤10千米时，计费为5+（x-3）×1.5当x>10千米时，计费为5+（10-3）×1.5+(x-10)×1.8程序界面如图VB-1所示，在文本框Text1中输入行驶里程数（单位：千米），单击“开始计算”按钮（Command1）后，在标签Label3输出计费结果。

解决此问题的算法流程图如图VB-2所示，相应的Visual Basic程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。

Private Sub Command1_Click()Dim x As Single, s As Singlex = Val(Text1.Text)If ① Thens = 5ElseIf x <= 10 Thens = 5 + (x - 3) * 1.5Elses = 5 + (10 - 3) * 1.5 + (x - 10) * 1.8End If② = Str(s)End Sub程序中①划线处应填入___________________程序中②划线处应填入___________________图VB-12009年6月高中信息技术会考算法与程序设计题（第二套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1. 有如下Visual Basic程序段：a = 12b = 32c = ac = c + b该程序段运行后，变量c的值为____________。

2. 有如下Visual Basic程序段：x = 12If x <= 10 Thens = 8Elses = xEnd If该程序段运行后，变量s的值为____________。

3.以下Visual Basic程序的功能是：计算表达式1＋3＋9＋27＋81＋…2187的值，并在文本框Text1中输出计算结果。

Private Sub Command1_Click()Dim i As Integer, t As Longt = 0i = 1Do While i <= 2187t = t + ii = i + 3LoopText1.Text = Str(t)End Sub问：（1）为了实现这一目标，程序划线处的表达式应更正为____________。

（2）运行更正后的程序，循环刚退出时变量i的值为___________。

4．将一个十进制正整数转化为二进制数可以采用“除二取余法”，主要方法就是将十进制数用2除，保存所得余数，然后将商的整数部分作为下次运算的被除数，重复上述“除二取余”操作，直到商的整数部分为零停止。

程序界面如图VB-1所示，在文本框Text1中输入一个正整数，单击“开始转换”按钮（Command1）后，对应的二进制数在标签Label3中显示出来。

解决此问题的算法流程图如图VB-2所示，相应的Visual Basic程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。

Private Sub Command1_Click()Dim x As Integer, s As String, r As Integer, t As Integer①s = ""Do While x <> 0r = x Mod 2s = Str(r) + sx = ②LoopLabel3.Caption = sEnd Sub程序中①划线处应填入___________________程序中②划线处应填入___________________图VB－1图VB-22009年6月高中信息技术会考算法与程序设计题（第三套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1. 有如下Visual Basic程序段：m = 8n = 5t = m + nt = t - n该程序段运行后，变量t的值为____________。

2. 有如下Visual Basic程序段：x = 5001s = 1If x > 5000 Then s = s + 1Label1.Caption = Str(s)该程序段运行后，在标签Label1上显示的是____________。

3. 有如下Visual Basic程序：Private Sub Command1_Click()Dim a(1 To 100) As Integer, i As Integer, s As Integers = 0For i = 2 To 100 Step 2a(i) = i * 2s = s + a(i)Next iText1.Text = Str(s)End Sub问：（1）程序运行后，下标变量a(4)的值为____________。

（2）循环刚退出时，变量i的值为____________。

4．在某学校里，每位同学都会得到一张一卡通卡，一卡通的卡号是唯一的，卡内会记录每位同学的姓名、住址、班级、金额等信息。

每当同学刷卡时，卡号就被输入电脑，然后进行查找，如果找到就显示姓名，否则显示“查无此人”。

下列程序的功能是根据卡号查找对应的姓名，程序中数组a保存所有已发放一卡通的卡号，数组b保存卡号对应的姓名，第i位同学的卡号保存在a(i)中，姓名保存在b(i)中。

程序界面如图VB-1所示，左边列表框列出所有同学的卡号和姓名，在右边文本框Text1中输入卡号，单击“开始查询”按钮（Command1），程序就按卡号进行查找，如果找到就在标签Label3中输出卡号对应同学的姓名，否则就输出“查无此人”。

解决此问题的算法流程图如图VB-2所示，相应的程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。

Private Sub Command1_Click()Dim x As String, i As Integer, s As String, f As Booleanx = ①i = 0: f = False 'f为找到标志变量，值为True表示找到，否则表示没找到 Do While (i < n) And (f = False)i = i + 1If x = a(i) Thenf = TrueEnd IfLoopIf f = True Then②Elses = "查无此人！"End IfLabel3.Caption = sEnd Sub程序中①划线处应填入___________________程序中②划线处应填入___________________图VB－1图VB-22009年6月高中信息技术会考算法与程序设计题（第四套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1. 有如下Visual Basic程序段：i = 3j = i + ik = j + j该程序段运行后，变量k的值为____________。

2. 有如下Visual Basic程序段：x = 0.51If x >= 0.5 Thens = 1Elses = 0End IfLabel1.Caption = Str(s)该程序段运行后，在标签Label1上显示的是____________。

3.有如下Visual Basic程序段：Dim i As Integer, s As Integeri = 1s = 0Do While i <= 10s = s + 1：i = i + 1Loop问：（1）该程序段运行后，循环中的两个语句“s = s + 1：i = i + 1”一共执行的次数为____________。

（2）该程序段运行后，变量s的值为____________。

4．在网上商城中找到商品后可以将商品按照价格顺序显示，下列程序模拟该信息处理过程，程序能根据找到的商品信息（价格和发货地），将所有商品按照价格从高到低显示。

一开始，所有商品的价格和发货地分别保存在数组a和数组b中，第i个商品的价格保存在a(i)中，对应的发货地保存在b(i)中。

程序界面如图VB-1所示，左边列表框List1中显示用户已找到的所有商品信息（包括价格和发货地），单击“开始排序”按钮（Command1），所有商品按照价格从高到低显示在列表框List2中。

解决此问题的算法流程图如图VB-2所示，相应的程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。

Private Sub Command1_Click()Dim i As Integer, j As Integer, t1 As Integer, t2 As String, k As IntegerFor i = 1 To n – 1 ' n表示商品总数k = i ' k保存第i大的数，一开始假定是a(i)For j = i + 1 To nIf a(k) < a(j) Then k = ①Next jIf ② Thent1 = a(i): a(i) = a(k): a(k) = t1 '交换价格t2 = b(i): b(i) = b(k): b(k) =t2 '交换发货地End IfNext iFor i = 1 To n '在列表框List2中输出排序结果 List2.AddItem Str(a(i)) + " " + b(i)Next iEnd Sub程序中①划线处应填入___________________程序中②划线处应填入___________________图VB-1图VB－22009年6月高中信息技术会考算法与程序设计题（第五套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1. 有如下Visual Basic程序段：a = 18:b = 12c = (a - b) * 2该程序段运行后，变量c的值为____________。