计算机会考2009年6月填空题.docVIP

2009年6月高中信息技术会考 算法与程序设计题（第一套） 四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分） 1. 有如下Visual Basic程序段： m = VB n = is t = easy t = m + n + t 该程序段运行后，变量t的值为____________。VBiseasy 2. 有如下Visual Basic程序段： a = 23 b = 34 If a b Then Label1.Caption = ab Else Label1.Caption = a=b 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 = i * 3 i = i + 1 Loop Text1.Text = Str(s) 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 c = c + b 该程序段运行后，变量c的值为____________。44 2. 有如下Visual Basic程序段： x = 12 If x = 10 Then s = 8 Else s = x 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）为了实现这一目标，程序划线处的表达式应更正为____________。3*i （2）运行更正后的程序，循环刚退出时变量i的值为___________。6561 4．将一个十进制正整数转化为二进制数可以采用“除二取余法”，主要方法就是将十进制数用2除，保存所得余数，然后将商的整数部分作为下次运算的被除数，重复上述“除二取余”操作，直到