信息技术会考算法与程序设计题

1、2007年6月高中信息技术会考算法与程序设计题（第一套）四、程序设计题（本题有4小题，第1-3小题，每小题4分，第4小题6分，共18分）1.有如下 Visual Basic程序段:a = 30b = 20该程序段运行后，变量2.有如下 Visual Basica的值为程序段:Dim a As Sin gle, py As Stringa=Val(Text1.Text)If a>0 The n py="正数”If a=0 Then py="If a<0 The n py="负数”Label1.Ca pti on=py在文本框Text1中输入100,则在L

2、abel1标签上显示的是3.以下Visual Basic程序的功能是：计算表达式1X 2X 3x 4 x 5X 6x 7x 8X 9X 10的值,并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为Private Sub Comma nd1_Click()Dim i As In teger,sum As Longsum = 0Fori = 1 To 10sum = sum * iNext iText1.Text=Str(sum)End Sub9%左 右。4.从改革开放以来，浙江省农村家庭的可支配收入逐年增加，近几年每年增长率在小明一家今年的可支配收入是 32000元，按

3、现在的增长率9%十算，小明家几年后可支配收入将达到50000元?解决此问题的流程图如VB-1所示。根据流程图 VB-1编写的Visual Basic 程序如下,在和划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Comma nd1_Click()Dim x As Long, p As DoubleDim n As In tegerx=32000p = 0.09Do While x = x * (1 + p)LoopText1.Text = Str( n)End Sub程序中划线处应填入程序中划线处应填入2007年6月高中信息技术会考算法与程序设计题（第二套）4小题，第1

4、-3小题，每小题4分，第4小题6分，共18 分） 程序段：c的值是 程序段：四、程序设计题（本题有1 .有如下 Visual Basica="Good"b="Bye"c=a+b该程序段运行后，变量2. 有如下 Visual Basicx=3If x>5The ny=x*xElsey=4*x End If该程序段运行后，变量y的值是3. 下面程序的功能是：计算表达式1+3+5+（2n-1）的值，在文本框Textl中输入n的值,结果在文本框Text2中输出。则程序中划线处的语句应更正为Private Sub Comma nd1_Click()Dim s

5、um As Lon g,i As In teger, n As In teger sum = 0 n = Val(Text1.Text)For i = 1 To 2 * n - 1 Ste p 2sum = sum + 2Next iText2.Text=Str(sum)End Sub 4.依照中华人民共和国机动车驾驶员驾车时血液中酒精含量规定，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1.0mg/ml驾驶机动车的属醉酒驾车。设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。解决此问题的流程图如 VB-1所示。根据流程图 VB-1编写的Visual

6、 Basic 程序如下, 在和划线处，填入合适的语句或表达式，把程序补充完整。2007年6月高中信息技术会考算法与程序设计题(第三套)Private Sub Comma nd1_Click()Dim x As Si nglex = Val(Text1.Text)If ThenLabel1.Ca ption ="Else你属于醉酒驾车!"If x >= 0.3 The nLabel1.Ca ption ="Label1.Ca ption ="End If你属于酒后驾车!"恭喜你没有违法!"End IfEnd Sub程序中划线处应填

7、入程序中划线处应填入四、程序设计题 (本题有4小题，第1-3小题，每小题4分，第4小题6分，共18 分)1.2.有如下Visual Basic程序段：a=300b=400b=b-a该程序段运行后，变量b的值为有如下Visual Basic程序段：a=2b=5If a<b Thenm=aElsem=bEnd If该程序段运行后，变量m的值为3.下面Visual Basic程序的功能是：计算表达式1+1/3+1/5+1/99的值，并在文本框Text1中输出该表达式的值。为了实现这一功能，程序中划线处的语句应更正为Private Sub Comma nd1_Click()Dim sum As

8、Single , i As Integersum = 0For i = 1 To 99 Ste p 2sum = sum + iNext iText1.Text = Str(sum)End Sub4.某人走楼梯，方法是每步跨1个台阶或跨2个台阶。现要计算有20个台阶的楼梯，共有 多少种不同的走法？经分析，台阶数与走法种数如下表：台阶数123456789走法种数1235813213455由上表得，走法种数的规律是：从第3项开始，每一项是它相邻的前面2项之和。解决上述问题的 Visual Basic程序如下，在和划线处，填入合适的语句或表达式,把程序补充完整。Private Sub Comma n

9、d1_Click()Dim a As Long, b As Long, c As Long, n As In tegera = 1b = 2c = a + bFor n = 4 Toa = bb = cNext nTextI.Text = Str(c)End Sub程序中划线处应填入程序中划线处应填入2007年6月高中信息技术会考算法与程序设计题（第四套）四、程序设计题 （本题共4小题，第1-3小题，每小题4分，第4小题6分，共18 分）1.有如下Visual Basic程序段:a=2b=32.c=4c=b-a该程序段运行后，变量c的值为有如下Visual Basic程序段：a=23.b=5I

10、f a>b The n m=a Else m=b该程序段运行后，变量m的值为下面是一段Visual Basic 程序：Private Sub Comma nd1_Click()Dim sum As Double , i As Integer sum = 0For i = 1 To 5sum=sum+i*iNext iText1.Text=Str（sum）End Sub该程序运行后，语句 sum=sum+i*i有一个有趣的兔子繁殖问题：第14.对小兔子，以后每个月都会生一对小兔子；对小兔子。依次类推，试问：几个月后，兔子将超过 分析问题得出月份与兔子对数的关系如下表：共执行了 次。个月买来

11、1对小兔子，两个月后，这对兔子就会生 而生下来的这对小兔子，两个月后又会开始生50对？月份123456789兔子对数1123581321342个月由表知兔子繁殖规律： 从第3个月开始，以后每月的兔子对数都是它相邻的前面：的兔子对数之和。解决上述问题的 Visual Basic程序如下，在和划线处，填入合适的语句或表达式, 把程序补充完整。Private Sub Comma nd1_Click()Dim a(1 To 100) As In teger, n As In tegera(1) = 1a(2) = 1a(3) = a(2) + a(1)n = 3Do While a(n) <=

12、50a( n) =Loop2007年6月高中信息技术会考算法与程序设计题（第五套）TextI.Text = Str(a( n)End Sub程序中划线处应填入程序中划线处应填入四、程序设计题（本题有1 .有如下 Visual Basica=2b=4b=a+b该程序段运行后，变量2.有如下 Visual Basic x=1.5b的值是 程序段：Label1.Ca ption ="ElseLabel1.Ca ption ="End If该程序段运行后丄abel1醉酒!"没有醉酒!"标签上显示为4小题，第1-3小题，每小题4分，第4小题6分，共18 分） 程序

13、段：If x>1 Then3.下面Visual Basic程序的功能是：计算表达式1+1/2+1/3+1/100的值，并在文本框Text1中输出表达式的值。为了实现这一功能，程序中划线处的语句应更正为Private Sub Comma nd1_Click()Dim sum As Double , i As Integer sum = 0For i = 1 To 100sum=sum+iNext iText1.Text=Str（sum）End Sub4.浙江省道路交通安全法第八十三条规定：机动车驾驶人驾驶机动车超过规定时速的，按以下标准处以罚款：（一）超过规定时速未达百分之五十的，处二百元

14、罚款；（二）超过规定时速百分之五十的，处五百元罚款；每多超五公里，加处二百元罚款，但 最咼罚款不得超过二千兀。X <8080 <x <120XA120（Int（x）的值为不大于x的的最大整数）y A 2000设某公路的规定时速为 80（km/h），用x表示车速，y表示罚款数，该问题的数学式为: 0200500 +1 nt（x1.5咒80）/5）咒 2002000Visual Basic程序如下，在和划线处，填入合适的根据上述分析，解决此问题的 语句或表达式，把程序补充完整。Private Sub Comma nd1_Click() Dim x As Sin gle, y As

15、 Sin gle x = Val(Textl.Text) If x <= 80 The ny = 0 Else ThenIfy = 200ElseIf y > 2000 Then y = 2000End IfEnd IfLabell.Ca ption = Str(y)End Sub程序中划线处应填入程序中划线处应填入2007年6月高中信息技术会考算法与程序设计题(第六套)四、程序设计题(本题有1 .有如下 Visual Basic a=15b=5a=a-b该程序段运行后，变量2.有如下 Visual Basic x=110a的值是程序段：Label1.Ca ption ="

16、;ElseLabel1.Ca ption ="End If该程序段运行后丄abel1你超速了 !"你没超速!"标签上显示为4小题，第1-3小题，每小题4分，第4小题6分，共18 分) 程序段：If x>100 Then3.下面Visual Basic程序的功能是：计算表达式1 x 2+3X 4+5x 6+7x 8+9x 10的值。运行该程序后，语句 sum=sum+i*(i+1)共执行了 次。Private Sub Comma nd1_Click()Dim sum As Integer, i As Integersum = 0For i = 1 To 9 S

17、te p 2 sum = sum + i * (i+1)Next iText1.Text=Str(sum)End Sub4.哥哥考弟弟一道数学题，题目是：“有一筐鸡蛋，2个2个数多1个，3个3个数多2个，4个4个数多3个，5个5个数正好数完，问这筐鸡蛋最少是几个？”为解决此问题，弟弟编了一个如下Visual Basic程序，其中s表示鸡蛋数，t用于控制循环。但此程序存在两处错误，已分别用划线及、标注。请改正这二处错误，并将正确 内容按顺序填写在程序下方和划线处。Private Sub Comma nd1_Click()Dim s As In teger, t As Boolea ns = 5t

18、 = FalseDo While Not ts = s + 1(s Mod 5 <> 0)'t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And Next 'Text1.Text = Str(s)End Sub程序中划线处改为程序中划线处改为2007年6月高中信息技术会考算法与程序设计题(第八套)四、程序设计题 (本题有1 .2.有如下 Visual Basic a=8 b=10 b=a*b/2该程序段运行后，变量 有如下 Visual Basic a=5b=102007年6月高中信息技术会考 算法与程序

19、设计题(第七套)4小题，第1 3小题，每小题4分，第4小题6分，共18 分) 程序段：b的值为 程序段：max=aIf b>max Then max=b该程序段运行后，变量max的值为F面程序的功能是：计算表达式1 X 2X 3XX 10的值，并在文本框 Text1中输出表达式的值。为了实现这一功能，程序中划线处的语句应更正为Private Sub Comma nd1_Click()Dim i As Integer , t As Longt=0For i=1 To 10t=t*i3.Next iText1.Text=Str(t)End Sub4.我国是人口大国，2007年初，我国人口总数

20、已达13亿5千万。假设我国年人口增长率为 0.5%，则从2007年起多少年 后我国人口就会达到或超过解决此问题的流程图如15亿？VB-1所示。根据流程图程序如下，在和划线 处，填入合适的语句或表达式，把程序补充完整。Private Sub Comma nd1_click()Dim n As In teger, r As Sin gleDim p As Doubler = 0.5/100 p = 13.5 n = 0VB-1 编写的 Visual BasicDo While p < 15n = n + 1输出n开始今年人口： pj 13.5增长率：rj 0.5%所需年数：n J 0INpv

21、 15 ?Text1.Text = Str( n)End Sub程序中划线处应填入程序中划线处应填入结束、fP J p(1+r)inJn+1Y图 VB 1四、程序设计题(本题有有如下 Visual Basick=302.h=5s=h*k/2该程序段运行后，变量有如下 Visual Basic a=10s的值为程序段：b=20x=30If x>b Thena= b+aElsea=b-aEnd If该程序段运行后，变量a的值为3.并在文本框Text1中输出表达式的值。该程序运行后，程序中的语句 行了次。Private Sub Comma nd1_Click()Dim sum As Integ

22、er , i As Integersum = 0F面Visual Basic程序的功能是：计算表达式1 x 2+2x 3+3x 4+8X 9+9X 10sum=sum+i*(i+1)的值,共执Fori = 1 To 9sum=sum+i*(i+1)Next iText1.Text=Str(sum)End Sub4.铁路托运行李，是根据行李的重量按下列标准收费：若不超过50千克，按每千克元收费，若超过 50千克，超过部分则按每千克0.5元收费，行李重量不得超过0.35150千克。设计一个Visual Basic程序，通过输入托运行李的重量，计算并输出托运行李的费用, 若超过150千克，提示“行李

23、超重！” <设X表示行李重量，y表示托运费。通过分析可以得出该问题的数学表达式为:0.35XXX <50y = 50X0.35+ (x-50)x 0.5行李超重！50CX 兰150X >150解决上述问题的 Visual Basic程序如下，在和划线处，填入合适的语句或表达式,把程序补充完整。Private Sub Comma nd1_Click()Dim X as Doublex=Val(Text1.Text)If x>150 Then4小题，第1-3小题，每小题4分，第4小题6分，共18 分) 程序段：ElseIfText2.Text="行李超重!&quo

24、t; The ny=50*0.35+(x-50)*0.5ElseEnd IfText2.Text=Str(y)End IfEnd Sub程序中划线处应填入 程序中划线处应填入2007年6月高中信息技术会考算法与程序设计题(第九套)四、程序设计题(本题有1 .有如下 Visual Basice=34小题，第1-3小题，每小题4分，第4小题6分，共18 分) 程序段：f=7h=5s=(e+f)*h/2s的值为程序段：该程序段运行后，变量2.有如下 Visual Basic a=10 b=20 x=5If x>b Thena=a+bElsea=a-bEnd If该程序段运行后，变量a的值为3.

25、下面Visual Basic程序的功能是：求120以内的奇数和。运行该程序后，语句sum=sum+i 共执行了 次。Private Sub Comma nd1_Click()Dim sum as In teger,i as In tegersum=0For i=1 To 20 Ste p 2 sum=sum+iNext iText1.Text=Str(sum)End Sub4 .将一张面值为100元的人民币等值换成 5元、1元的零钞共40张，要求每种零钞不少于 1张，问5元和1元面值的零钞各多少张？5元和1元面值的零钞张数，通过分析可得出该问题的数学表达式为:设x、y分别为3x +y =100

26、|x +y =40且 1 < XV 20解决上述问题的Visual Basic程序如下，但此程序存在两处错误，已分别用划线及、标注。请改正这二处错误，并将正确内容按顺序填写在程序下方和划线处。Private Sub Comma nd1_Click() Dim x As In teger, y As In teger y = 1 : x = 1 Do While 5x + y <> 100 ' y = y + 1 x + y = 40 ' Loop2007年6月高中信息技术会考算法与程序设计题(第十套)元钞 ” + Str(x) + " 元钞 ” + Str(y) + "Labell.Ca ptio n = "5Label2.Ca ptio n = "1End Sub程序中划线处改为程序中划线处改为4小题，第1-3小题，每小题4分，第4小题6分，共18 分) 程序段：v的值是 程序段：For i = 1 To 50 sum=sum+1/(2*i) Next iText1.Text=Str(sum)End Sub4有一判断健康状况的 Visual Basic程序，其窗体如下图所示，输入身高和体重后，单击 “健康状况”按扭，将显示相应的健康状况信息。标准