浙江信息技术会考 算法与程序设计试题.docx

1、浙江信息技术会考 算法与程序设计试题2009年6月高中信息技术会考算法与程序设计题（第一套）四、程序设计题（本题有4小题，第13小题，每小题4分，第4小题6分，共18分）1. 有如下Visual Basic程序段：m = VBn = ist = easyt = m + n + t 该程序段运行后，变量t的值为_。2. 有如下Visual Basic程序段：a = 23b = 34If a b Then Label1.Caption = abElse Label1.Caption = a=bEnd If 该程序段运行后，在标签Label1上显示的是_。3.以下Visual Basic程序的功能是

2、：计算表达式1323331003的值，并在文本框Text1中输出计算结果。Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 i = 1 Do While i = 100 s = i * 3 i = i + 1 Loop Text1.Text = Str(s)End Sub问：（1）刚退出循环时，变量i的值是_。（2）为了实现上述表达式的计算，程序中划线处的表达式应更正为_。4某市出租车计费标准规定：出租车启动后行程不超过3千米（包含3千米）计费5元；如果行程超过3千米且不超过10千米（包含10千米），则超过3千米

3、部分按1.5元/千米计费（3千米及以内部分计费仍为5元）；若行程超过10千米，则在前面计费基础上，超出10千米部分按1.8元/千米计费。假定某出租车行程为x千米，计费标准如下：当x3千米时，计费为5元；当310千米时，计费为5+（10-3）1.5+(x-10)1.8程序界面如图VB-1所示，在文本框Text1中输入行驶里程数（单位：千米），单击“开始计算”按钮（Command1）后，在标签Label3输出计费结果。解决此问题的算法流程图如图VB-2所示，相应的Visual Basic程序如下，在程序和划线处，填入适当的语句或表达式，把程序补充完整。Private Sub Command1_Cl

4、ick() Dim x As Single, s As Single x = Val(Text1.Text) If Then s = 5 ElseIf x = 10 Then s = 5 + (x - 3) * 1.5 Else s = 5 + (10 - 3) * 1.5 + (x - 10) * 1.8 End If = Str(s)End Sub程序中划线处应填入_程序中划线处应填入_ 图VB-12009年6月高中信息技术会考算法与程序设计题（第二套）四、程序设计题（本题有4小题，第13小题，每小题4分，第4小题6分，共18分）1. 有如下Visual Basic程序段：a = 12b

5、= 32c = ac = c + b 该程序段运行后，变量c的值为_。2. 有如下Visual Basic程序段：x = 12If x = 10 Then s = 8Else s = xEnd If 该程序段运行后，变量s的值为_。3.以下Visual Basic程序的功能是：计算表达式13927812187的值，并在文本框Text1中输出计算结果。Private Sub Command1_Click() Dim i As Integer, t As Long t = 0 i = 1 Do While i = 2187 t = t + i i = i + 3 Loop Text1.Text =

6、 Str(t)End Sub问：（1）为了实现这一目标，程序划线处的表达式应更正为_。（2）运行更正后的程序，循环刚退出时变量i的值为_。4将一个十进制正整数转化为二进制数可以采用“除二取余法”，主要方法就是将十进制数用2除，保存所得余数，然后将商的整数部分作为下次运算的被除数，重复上述“除二取余”操作，直到商的整数部分为零停止。程序界面如图VB-1所示，在文本框Text1中输入一个正整数，单击“开始转换”按钮（Command1）后，对应的二进制数在标签Label3中显示出来。解决此问题的算法流程图如图VB-2所示，相应的Visual Basic程序如下，在程序和划线处，填入适当的语句或表达式

7、，把程序补充完整。Private Sub Command1_Click() Dim x As Integer, s As String, r As Integer, t As Integer s = Do While x 0 r = x Mod 2 s = Str(r) + s x = Loop Label3.Caption = sEnd Sub程序中划线处应填入_程序中划线处应填入_ 图VB12009年6月高中信息技术会考算法与程序设计题（第三套）四、程序设计题（本题有4小题，第13小题，每小题4分，第4小题6分，共18分）1. 有如下Visual Basic程序段：m = 8n = 5t

8、= 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 Integer s = 0 For i = 2 To 100 Step 2 a(i) = i * 2 s = s + a(i)

9、 Next i Text1.Text = Str(s)End Sub问：（1）程序运行后，下标变量a(4)的值为_。（2）循环刚退出时，变量i的值为_。4在某学校里，每位同学都会得到一张一卡通卡，一卡通的卡号是唯一的，卡内会记录每位同学的姓名、住址、班级、金额等信息。每当同学刷卡时，卡号就被输入电脑，然后进行查找，如果找到就显示姓名，否则显示“查无此人”。下列程序的功能是根据卡号查找对应的姓名，程序中数组a保存所有已发放一卡通的卡号，数组b保存卡号对应的姓名，第i位同学的卡号保存在a(i)中，姓名保存在b(i)中。程序界面如图VB-1所示，左边列表框列出所有同学的卡号和姓名，在右边文本框Tex

10、t1中输入卡号，单击“开始查询”按钮（Command1），程序就按卡号进行查找，如果找到就在标签Label3中输出卡号对应同学的姓名，否则就输出“查无此人”。解决此问题的算法流程图如图VB-2所示，相应的程序如下，在程序和划线处，填入适当的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim x As String, i As Integer, s As String, f As Boolean x = i = 0: f = False f为找到标志变量，值为True表示找到，否则表示没找到 Do While (i = 0.5 Then s = 1E

11、lse s = 0End IfLabel1.Caption = Str(s) 该程序段运行后，在标签Label1上显示的是_。3.有如下Visual Basic程序段：Dim i As Integer, s As Integeri = 1s = 0Do While i = 10 s = s + 1：i = i + 1Loop问：（1）该程序段运行后，循环中的两个语句“s = s + 1：i = i + 1”一共执行的次数为_。（2）该程序段运行后，变量s的值为_。4在网上商城中找到商品后可以将商品按照价格顺序显示，下列程序模拟该信息处理过程，程序能根据找到的商品信息（价格和发货地），将所有商品

12、按照价格从高到低显示。一开始，所有商品的价格和发货地分别保存在数组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,

13、t2 As String, k As Integer For i = 1 To n 1 n表示商品总数 k = i k保存第i大的数，一开始假定是a(i) For j = i + 1 To n If a(k) 10 Then Label1.Caption = 你可以继续使用Else Label1.Caption = 余额不足End If 该程序段运行后，在标签Label1上显示的是_。3.有如下Visual Basic程序段：Private Sub Command1_Click() Dim i As Integer, x As Integer, s As Integer x = 10 s =

14、0 i = 0 Do While i = x i = i + 2 s = s + i LoopEnd Sub问：（1）该程序段运行后，变量s的值为_。（2）循环刚退出时，变量i的值为_。4超市进货时会将每个商品的条形码和价格输入计算机，并对所有商品按照条形码排序（从小到大），顾客付款时只要把条形码输入电脑，电脑即可根据条形码找到该商品并显示对应的价格。下列程序的功能是根据条形码查找对应商品的价格，所有商品的条形码和价格分别保存在数组a和b中（并且已经按照条形码从小到大排序），第i个商品的条形码保存在a(i)中，对应的价格保存在b(i)中，变量f是标志变量，如果值为True则说明找到了商品，若为

15、False则说明没有找到。程序界面如图VB-1所示，在文本框Text1中输入商品的条形码，单击“开始查找”按钮（Command1）后，对应商品的价格在标签Label4中显示出来，如果未找到则显示“找不到该商品，请重新输入条形码”。解决此问题的算法流程图如图VB-2所示，相应的程序如下，在程序和划线处填入适当的语句或表达式，将程序补充完整。 Private Sub Command1_Click() Dim x As String, i As Integer, j As Integer, m As Integer Dim f As Boolean x = Text1.Text i = 1: j =

16、 n: f = False n保存总的商品数 Do While (i = j) And Not (f) m = Fix(i + j) / 2) If Then f = True ElseIf x = 60 Then Label1.Caption = PElse Label1.Caption = EEnd If 该程序段运行后，在标签Label1上显示的是_。3. 以下Visual Basic程序的功能是：计算表达式12345699100的值，并在文本框Text1中输出计算结果。Private Sub Command1_Click() Dim i As Integer, s As Integer

17、 s = 0 i = 1: t = 1 Do While i = 100 s = s + i t = -t i = i + 1 Loop Text1.Text = Str(s)End Sub问：（1）循环刚退出时变量i的值是_。（2）为了实现上述表达式的计算，程序中划线处的表达式应更正为_。4COD（化学需氧量）是衡量水质污染程度的重要指标之一，污水处理时根据污水的COD指标来计算COD去除剂的投放量。程序界面如图VB-1所示，在文本框Text1中输入COD指标，单击“计算投放量”按钮（Command1）后，程序根据COD指标计算出合适的COD去除剂投放量，并在标签Label3中输出计算结果。

18、污水处理厂根据COD指标投放COD去除剂的标准如下表所示：当前COD指标x根据COD指标应投放COD去除剂的剂量x500 图VB-1在程序和划线处填入适当的语句或表达式，将程序补充完整。Private Sub Command1_Click() Dim x As Single, s As Single x = Val(Text1.Text) If Then s = 10 ElseIf x c Then Label1.Caption = 初检合格Else Label1.Caption = 重新调试End If 该程序段运行后，在标签Label1上显示的是_。3.有如下Visual Basic程序：

19、Private Sub Command1_Click() Dim s As Integer, i As Integer s = 1 For i = 1 To 10 s = s + 1 Next i Text1.Text = Str(s)End Sub问：（1）程序运行后，变量s的值为_。（2）程序运行后，语句“s=s+1”被执行的次数为_。4某网站组织了100个商品进行网络人气调查，投票结束后，要选出得票数最高的前10个商品。下列程序的功能是根据商品已有得票数，选出得票数最高的10个商品。商品的代号和得票数分别保存在数组a和b中，第i个商品的代号保存在a(i)中，对应的得票数保存在b(i)中。

20、程序界面如图VB-1所示，左边列表框List1中显示的是所有商品的代号和得票数（按代号从小到大排列），单击“开始统计”按钮（Command1）后，在右边的列表框List2中显示得票数最高的10个商品的代号和得票数（按照得票数从高到低的顺序显示）。解决此问题的算法流程图如图VB-2所示，相应的程序如下，在程序和划线处填入适当的语句或表达式，将程序补充完整。 图VB-1Private Sub Command1_Click() Dim i As Integer, j As Integer, t As Integer For i = 1 To 10 For j = 100 To i + 1 Step

21、If b(j) b(j - 1) Then t = a(j - 1): : a(j) = t t = b(j - 1): b(j - 1) = b(j): b(j) = t End If Next j Next i For i = 1 To 10 List2.AddItem Str(a(i) + + Str(b(i) Next iEnd Sub程序中划线处应填入_程序中划线处应填入_ 图VB-22009年6月高中信息技术会考算法与程序设计题（第八套）四、程序设计题（本题有4小题，第13小题，每小题4分，第4小题6分，共18分）1. 有如下Visual Basic程序段：i = 7: j = 3

22、k = i * j - j 该程序段运行后，变量k的值为_。2. 有如下Visual Basic程序段：x = 90If x 90 Then Label1.Caption = 声音超标Else Label1.Caption = 合格End If 该程序段运行后，在标签Label1上显示的是_。3.有如下Visual Basic程序：Private Sub Command1_Click() Dim s As Integer, t As Integer t = 1: s = 0 For i = 1 To 10 Step 2 t = t * 2 s = t + 1 Next i Text1.Text

23、 = Str(s)End Sub问：（1）程序运行后，变量s 的值为_。（2）程序运行后，语句“t = t * 2”被执行的次数为_。4交通违章查询。在违章查询系统中输入车主的汽车车牌号，查询系统就会按照车牌号查找所有的违章记录。下列程序的功能是根据车牌号查找该车的违章信息，数组a和b分别保存所有违章汽车的车牌号和违章原因，第i条信息的车牌号保存在a(i)中，对应的违章原因保存在b(i)中。程序界面如图VB-1所示，在文本框Text1中输入车牌号，单击“开始查找”按钮（Command1），电脑就开始查找该汽车所有的违章记录，如果找到对应的信息，就统计所有违章次数并在标签Label3中显示违章总次数，同时在列表框List1中显示所有违章的原因，如果没有找