2012年程序模拟题专项训练.doc

2012年程序模拟题专项训练 程序模拟题专项训练四川高中程序操作（36分）专项模拟题 当前在线人数为 0 人 题库状态：单项选择题数量76 题库状态：多项选择题数量20 题库状态：判断题数量35 题库状态：程序题数量27 100班无名氏同学你上次测试成绩是4，请认真完成练习，不合格的同学要增加做书面作业。 程序题 1、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略：购买5公斤以上（不包含5公斤），单价为：18元/公斤；否则，单价为20元/公斤。小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。请将程序缺失部分补充完整。 Function func() Dim x As Single, y As Single x = 8 If Then y=18 * x else y= 20 * x End If func = 应付金额y= y End Function 2、2012年6月，小张同学参加了一场模拟考试，其中有一道题目是求S=1*2*3*......*7。小张同学编写出了如下的不完整程序。请将空格补完整实现前述功能。 Function func() Dim I As Integer, s As Intege s =1 For i= 1 To 7 s = Next I func = s= s End Function 3、 2012年6月，小李同学参加了一场考试，其中有一道题目是：已知长方体的长为10，宽为3，高为5，求长方体的体积V，小李同学编写出了如下的不完整程序。 Dim A As Single Dim B As Single Dim H As Single Dim V As Single A = 10 B = 3 H = 5 V = func = 长方体的体积V= V 4、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略：购买5公斤以上（不包含5公斤），单价为：18元/公斤；否则，单价为20元/公斤。小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。请将程序缺失部分补充完整。 Function func() Dim x As Single, y As Single = 8 If x= 5 Then y=18 * x else y= 20 * x End If func = 应付金额y= y End Function 5、2012年6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为2011，变量b的值为2012，交换变量a、b的值。小李同学编写出了如下的不完整程序。 Function func() Dim a As Single Dim b As Single Dim c As Single a = 2011 b = 2012 a=b b = t func = a= a b= b End Function 6、变量R为半径，计算圆周长L（圆周率取3.14） Dim R As Single Dim L As Single R = 5 L = 7、2012年6月，小张同学参加了一场模拟考试，其中有一道题目是求S=1*2*3*......*7。小张同学编写出了如下的不完整程序。请将空格补完整实现前述功能。 Function func() Dim I As Integer, s As Integer s = For i= 1 To 7 s = s * i Next I func = s= s End Function 8、完成如下算法设计： 该程序功能是求S=2+4+6+……+100。 Function func() Dim I As Integer, s As Integer s = 0 For i = 2 to 100 Step s = s + i Next i Func = s End Function 9、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略：购买5公斤以上（不包含5公斤），单价为：18元/公斤；否则，单价为20元/公