信息技术程序设计试卷真题

1、浙江省2008年高中信息技术会考(六月卷)PAGE 第31页 共31页2008年6月高中信息技术会考算法与程序设计题（第一套） 四、程序设计题（本题有4小题，第13小题，每小题4分，第4小题6分，共18分）1有如下Viisual Basicc程序段：a = 3 : b = 2 : c = 33b = a+bb*c 该程序段段运行后，变变量b的值为为 。2有如下Viisual Basicc程序段：a=39b=93If a+b100 TThen ppy=太大大If a+b=100 TThen ppy=相等等If a+b100 TThen ppy=太小小Label1.Captiion=pyy该程序段

2、运行时时，在Labbel1标签签上显示的是是。3以下Vissual BBasic程程序的功能是是： 计算表表达式1+22+4+8+16+322+10244的值，并在在文本框Teext1中输输出结果。为为了实现这一一功能，程序序中划线处的的表达式应更更正为_。Privatee Sub Commaand1_CClick()Dim i AAs Intteger,s As Longs = 0i = 1Do Whille i 122 Thenn c= PMElse c= AAMEnd IfLabel1.Captiion=c该程序段运行时时，在文本框框Text11中输入155.6，Laabel1标标签上将

3、显示示的是。3.下列Vissual BBasic程程序的功能是是：计算表达达式12+42+72+972的值，并在文文本框Texxt1中输出出表达式的值值。为了实现现这一目标，程程序中Forr语句划线处处的循环变量量步长应为_。Privatee Sub Commaand1_CClick()Dim summ As LLongDim i AAs Inttegersum = 00 For i =1 To 97 Sttep summ = suum + i*iNext iText1.TText = Str(sum)End Subb 4模拟一个简简单计算器，输输入两个数和和一个运算符符（加、减、乘乘、除），

4、进进行算术运算,并并输出运算结结果。程序界面如图VVB-1所示示，在文本框框Text1中中输入第一个个数a，在文本框TText2中中输入第二个个数b，在文文本框Texxt3中输入入运算符chh，在文本框框Text44中输出运算算结果。图VB-1当输入的运算符符不是加、减减、乘、除四四种运算符时时，则输出“运算符不正正确”；当进行除除法运算时，如如果除数为00，提示输出出“除数不能为为零”。图VB-1解决上述问题的的算法流程图图如图VB-2所示，相相应的Vissual BBasic程程序如下，在和划线处，填填入合适的语语句或表达式式，把程序补补充完整。Privatee Sub Commaand1

5、_CClick()Dim a AAs Sinngle, b As Singlle, ch Ass Striinga = Vall(Textt1.Texxt)b = Vall(Textt2.Texxt) If ch = + Thhen Text44.Textt = Str(a+b)ElseIf ch = * TThen Text44.Textt = Str(a*bb)ElseIf ch = - TThen Text44.Textt = Str(ab)ElseIf ch = / TThen If TThen TText4.Text = Str(a/bb) Else Text44.Textt =除数

6、不能是零零Else Text44.Textt = 运运算符不正确确End IfEnd Subb程序中划线处应填入 程序中划线处应填入 2008年6月月高中信息技技术会考算法与程序设计计题（第三套套）四、程序设计题题（本题有44小题，第113小题，每每小题4分，第第4小题6分分，共18分分）1. 有如下VVisuall Basiic程序段：a=3 : bb=4c=a+bb=c*b 该程序序段运行后，变变量b的值为为_。2有如下Viisual Basicc程序段：a = 10b = 20c = 5m=aIf b m Thenn m = bIf c m Thenn m = c该程序段运行后后，变量m

7、的值为 。3以下Vissual BBasic程程序的功能是是： 计算表表达式1+22+22+23+24+25+26+27+28+29+210的值，并并在文本框TText1中中输出结果。为为了实现这一一功能，程序序中划线处的的语句应更正正为_。Privatee Sub Commaand1_CClick()Dim i AAs Intteger,s As Longs = 0k = 2For i= 1 To 10 s = s + kk k = k * 22Next iText1.TText=SStr(s)End Subb4. 某市近期期向市民投放放带2B开头头尾数为0001至9999的机动车牌牌号，经

8、过竞竞投有2000个牌号被首首批车主投中中。下面Viisual Basicc程序段的功能能是根据车牌牌号查找相应应的车主身份份证号码，其其中车牌号按按尾数从小到到大的顺序存存储在cnoo数组中，身身份证号码存存储在cnuum数组中。 界面如图图VB-1所所示，在文本框TText1中中输入一个车车牌号，单击击“开始查找”按钮后，在在文本框Teext2中输输出结果。如如果查找成功功，则输出对对应的车主身身份证号码，否否则输出“找不到”。图VB-1解决查找问题的的算法流程图图如图VB-22所示，相应应的Visuual Baasic程序序段如下，在和划线处，填填入合适的语语句或表达式式，把程序段段补充

9、完整。图VB-1Privatee Sub Commaand1_CClick()Dim keyy As SStringg , i AAs InttegerDim j AAs Intteger , fouund Ass Boolleani = 1: j = 2200 : fouund = Falsee Do Whille i = j AAnd Noot fouund m = IInt(ii + j) / 2) If cnno(m) = keyy Thenn found = TrueElseIf Theen i = m + 1 Else j = mm 1 End IIfLoopIf Not foun

10、dd Thenn Textt2.Texxt = 找不到 Elsee Textt2.Texxt = ccnum(mm)End Subb程序中划线处应填入 程序中划线处应填入 2008年6月月高中信息技技术会考算法与程序设计计题（第四套套）四、程序设计题题（本题共44小题，第113小题，每每小题4分，第第4小题6分分，共18分分）1有如下Viisual Basicc程序段：a = 3 : b = 2 b= a*ba= a+b该程序段运行后后，变量a的值为为 。2有如下Viisual Basicc程序段：a = 30 : b = 20 : c = 5m=aIf b m Thenn m = bIf c

11、 m Thenn m = c该程序段运行后后，变量m的值为 。3有如下Viisual Basicc程序段： s = 0 Forr i = 0 To 4 ss=s+2i Nexxt i该程序段运行后后，变量s的值为_。4某班级455名学生，每每位学生中文文姓名均不相同，并且都有有一个英文名名。下面程序序的功能是根根据学生的中中文姓名查找找相应的英文文名，其中学号存储储在数组snno中，英文名存存储在数组snaame中，中文姓名名存储在数组ch中中。程序界面如图VVB-1所示示，在文本框框text11中输入要查查找的中文姓姓名，单击“开始查找”按钮，如果果查找成功，则则在文本框TText2中中输出

12、该学生生的学号、中中文姓名和英文名名，否则在文文本框Texxt2中输出出“查无此人！”。解决查找问题题的算法流程程图如图VBB-2所示，相应的Visual Basic程序段如下，在和划线处，填入合适的语句或表达式，把程序段补充完整。图VB-1Privatee Sub Commaand1_CClick()图VB-1Dim keyy As SStringg, i Ass InteegerDim n AAs Intteger, founnd As Booleeanfound = Falssen = 0 : i = 1 Do Whille i 6.0 TThen Labbel1.CCaptioon =

13、 PassElse Labbel1.CCaptioon = FailEnd If该程序段运行后后, Labbel1标签签上显示为。3以下Vissual BBasic程程序的功能是是： 计算表表达式1+22+4+8+16+322+10244的值，并在在文本框Teext1中输输出结果。为为了实现这一一功能，程序序中划线处的的语句应更正正为_。Privatee Sub Commaand1_CClick()Dim a AAs Intteger, s As Longs = 0a = 1Do Whille a = 10024 s = s + aa a = a + 2LoopText1.TText=SStr

14、(s)End Subb4. 浙江省省电网销售电电价表中规规定，不满1千伏“一户一表”居民用电价格格，按以下标标准计算：月月用电量在50千瓦时时及以下部分分，每千瓦时时以0.5338元计算；512000千瓦时部部分，则每千千瓦时按0.568元计计算；2000千瓦时以上上部分,每千千瓦时按0.638元计计算。设计一一个程序，根根据用户的月月用电量分段段计算电费。设某用户的当月月用电量是xx千瓦时， 当x50时时，电费为00.538x元；当x2000时，电费为为0.5688(x-500)+0.553850元；当x2000时，电费为为0.6388(x-2000)+0.568150+0.53850元；在

15、文本框Texxt1输入xx，在文本框框Text22中输出相应的的电费。根据上述分析，解解决此问题的的算法流程图图如图VB-1所示，相相应的Vissual BBasic程程序如下，在在和划线处，填填入合适的语语句或表达式式，把程序补补充完整。Privatee Sub Commaand1_CClick()Dim x AAs Intteger If x 0 Theen Text2.Text = 用电电量不能是负负的！ElseIf x 0 Thenn Labell1.Capption = PositiiveIf x = 0 Theen Labbel1.CCaptioon = ZeroIf x 0 Th

16、ennx = x+22Else x = x-2End If该程序段运行后后, 变量x的值值为。3有如下Viisual Basicc程序段：s = 0For i = 1 Too 10 IIf i MMod 3 = 0 TThen s = s + iNext i该程序段运行后后，变量s的值为为 。4某学生说他他的年龄不低低于10岁，且且他的年龄减减去10，平方以后得得到的一个数数，恰好是他他的年龄加上上10，问他他的年龄多大大？设这位学生年龄龄为y，他年龄减去110的平方为为r，则r=（y-10）2，则y满足的表达式为: （y - 10）2=y + 10解决此问题的算算法流程图如如图VB-11所示

17、，相应应的Visuual Baasic程序序如下，在和划线处，填入入合适的语句句或表达式，把把程序补充完完整。Privatee Sub Commaand1_Clicck()Dim y AAs Intteger, r Ass Inteegery = 10r = (y - 10) 2Do Whille r = (y - 110) 2LoopText1.TText = Str(y)End Subb程序中划线处应填入 程序中划线处应填入 YYry+10？开始年龄赋初值10结束计算r=（y-10）2y值增加1计算r值方输出yN图VB12008年6月月高中信息技技术会考算法与程序设计计题（第八套套）四、程

18、序设计题题（本题有44小题，第113小题，每每小题4分，第第4小题6分分，共18分分）1. 有如下VVisuall Basiic程序段： a = 4b = 3b = a + b a = a + b该程序段运行后后，变量a的的值为 。 2有如下Viisual Basicc程序段：a=120If a 100 tthen Label1.Captiion= 超重ElseLabel1.Captiion= 正常End If 该程序段运行后后, Labbel1标签签上显示为。3有如下Viisual Basicc程序段：s = 0i = 3Do Whille s 10024 Thhen sizee = 大了E

19、lsesize = 刚好End If Label11.Capttion = sizee该程序段运行后后, Labbel1标签签上显示为。3以下Vissual BBasic程程序的功能是是：找出自然然数1-100之间间被3整除的的数，并在文本本框Textt1中输出这这些数的累加加和。为了实实现这一功能能，程序中划划线处的语句句应更正为_。Privatee Sub Commaand1_CClick()Dim i AAs Integerr, sum As Inntegerrsum = 00For i = 1 to 1000 If i MMod 3=0 Thhen sum = ssum + 3Next

20、 iText1.TText=SStr(suum)End Subb4下面的算式式表示一个四四位数乘以99，积还是一一个四位数。算式式中相同的字字母表示相同同的数字，不不同的字母表表示不同的数数字。那么算算式中的a、bb、c、d各各代表什么数数字？ a b cc d * 9 d c bb a从算式分析可知知，第一式上上最高位a*9没有产生生进位，可得得a=1，再由d*9结果果的个位数是是a，即1，可可得d=9， b、c满足的表达式为(1000+1100b+110c+9)*9=90000+1000c+10bb+1解决此问题的算算法流程图如如图VB-11所示，相应的的Visuaal Bassic程序如

21、如下，在和划线处，填入入合适的语句句或表达式，把把程序补充完完整。Privatee Sub Commaand1_CClick()Dim a AAs Intteger, b Ass InteegerDim c AAs Intteger, d Ass Inteegera = 1 For b = 0 Too 9 For c = 0 TTo 9 If ( ) * 9 = 90011 + 1000 * cc + 100 * b Then Textt1.Texxt = SStr(a) Textt2.Texxt = SStr(b) Textt3.Texxt = SStr(c) Textt4.Texxt =

22、SStr(d) End IIfNext cNext bEnd Subb程序中划线处应填入 程序中划线处应填入 图VB-1图VB-1图VB-1图VB-12008年6月月高中信息技技术会考算法与程序设计计题（第十套套）四、程序设计题题（本题有44小题，第113小题，每每小题4分，第第4小题6分分，共18分分）1有如下Viisual Basicc程序段：s=Frieends=s+shhip该程序段运行后后，变量s的的值是_。2. 有如下VVisuall Basiic程序段：x = 7If x 5 Theen y = 33Else y = -3End If 该程序段段运行后，变变量y的值是是。3以下Vissual BBasic程程序的功能是是： 计算表表达式1+22+22+23+24+25的值，并在在文本框Teext1中输输出结果。为为了实现这一一功能，程序序中划线处FFor语句循循环变量i的