2009年会考－算法与程序设计试题（十套附答案）.docVIP

2009年6月高中信息技术会考 算法与程序设计题（第一套） 四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分） 1. 有如下Visual Basic程序段： m = VB n = is t = easy t = m + n + t= VBiseasy 该程序段运行后，变量t的值为_____VBiseasy______。 2. 有如下Visual Basic程序段： a = 23 b = 34 If a b Then Label1.Caption = ab Else Label1.Caption =a=b // 如果Label1.Caption =a=b　　显示的是true End If 该程序段运行后，在标签Label1上显示的是____ a=b ________。 3.以下Visual Basic程序的功能是：计算表达式1×3＋2×3＋3×3＋…100×3的值，并在文本框Text1中输出计算结果。 Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 i = 1 Do While i = 100 s =s+ i * 3 i = i + 1=101 Loop Text1.Text = Str(s) i=100 End Sub 问： （1）刚退出循环时，变量i的值是_____101_______。 （2）为了实现上述表达式的计算，程序中划线处的表达式应更正为_____s+i*3_______。 4．某市出租车计费标准规定：出租车启动后行程不超过3千米（包含3千米）计费5元；如果行程超过3千米且不超过10千米（包含10千米），则超过3千米部分按1.5元/千米计费（3千米及以内部分计费仍为5元）；若行程超过10千米，则在前面计费基础上，超出10千米部分按1.8元/千米计费。 假定某出租车行程为x千米，计费标准如下： 当x≤3千米时，计费为5元； 当3x≤10千米时，计费为5+（x-3）×1.5 当x10千米时，计费为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 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 程序中①划线处应填入_____x=3______________ 程序中②划线处应填入______Label3.Caption_____________ 图VB-1 2009年6月高中信息技术会考 算法与程序设计题（第二套） 四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分） 1. 有如下Visual Basic程序段： a = 12 b = 32 c = a=12 c = c + b=12+32=44 该程序段运行后，变量c的值为______44______。 2. 有如下Visual Basic程序段： x = 12 If x = 10 Then s = 8 Else s = x=12 End If 该程序段运行后，变量s的值为____12________。 3.以下Visual Basic程序的功能是：计算表达式1＋3＋9＋27＋81＋…2187的值，并在文本框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 = Str(t) End Sub 问： （1）为了实现这一目标，程序划线处的表达式应更正为_____i*3_______。 （2）运行更正后的程序，循环刚退出时变量i的值为____6561_______。 4．将一个十进制正整