2021年6月高中信息技术会考算法与程序设计题〔第一套〕四、程序设计题〔此题有4小题，第1－3小题，每题4分，第4小题6分，共18分〕1．有如下VisualBasic程序段：a=3:b=2:c=3b=a+b*c该程序段运行后，变量b的值为。2．有如下VisualBasic程序段：a=39b=93Ifa+b>100Thenpy="太大"Ifa+b=100Thenpy="相等"Ifa+b<100Thenpy="太小"Label1.Caption=py该程序段运行时，在Label1标签上显示的是。3．以下VisualBasic程序的功能是：计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的表达式应更正为_____________。PrivateSubCommand1_Click()DimiAsInteger,sAsLongs=0i=1DoWhilei<=1024s=s+2*ii=i*2LoopText1.Text=Str(s)EndSub4．有一道趣味题，张老师问李老师:“你今年几岁？你爱人今年几岁？〞李老师笑笑说：“我年龄的平方与我爱人年龄之和恰好等于1053。而我爱人年龄的平方与我的年龄之和却等于873。你计算一下吧！〞设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为：x2+y=1053x+y2=873解决此问题的流程图如VB-1所示。根据流程图VB-1编写的VisualBasic程序如下，在①和②划线处，填入适宜的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimxAsInteger,yAsLongx=1y=1053-x*xDoWhile①②y=1053-x*xLoopText1.Text=Str(x)Text2.Text=Str(y)EndSub程序中划线处①应填入程序中划线处②应填入开始x赋初值1y=1053-x2YNx+y2=873?输出x，yx值增加1结束计算y值图VB－12021年6月高中信息技术会考算法与程序设计题〔第二套〕四、程序设计题〔此题有4小题，第1－3小题，每题4分，第4小题6分，共18分〕1．有如下VisualBasic程序段：a="Happy"b="ness"c=a+b该程序段运行后，变量c的值是___________。2．有如下VisualBasic程序段：DimxAsSingle,cAsStringx=Val(Text1.Text)Ifx>12Thenc="PM"Elsec="AM"EndIfLabel1.Caption=c该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是。VisualBasic程序的功能是：计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标，程序中For语句划线处的循环变量步长应为__________________。PrivateSubCommand1_Click()DimsumAsLongDimiAsIntegersum=0Fori=1To97Stepsum=sum+i*iNextiText1.Text=Str(sum)EndSub4．模拟一个简单计算器，输入两个数和一个运算符〔加、减、乘、除〕，进行算术运算,并输出运算结果。程序界面如图VB-1所示，在文本框Text1中输入第一个数a，在文本框Text2中输入第二个数b，在文本框Text3中输入运算符ch，在文本框Text4中输出运算结果。图VB-1当输入的运算符不是加、减、乘、除四种运算符时，那么输出“运算符不正确〞；当进行除法运算时，如果除数为0，提示输出“除数不能为零〞。解决上述问题的算法流程图如图VB-2所示，相应的VisualBasic程序如下，在①和②划线处，填入适宜的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,chAsStringa=Val(Text1.Text)b=Val(Text2.Text)①Ifch="+"ThenText4.Text=Str(a+b)ElseIfch="*"ThenText4.Text=Str(a*b)ElseIfch="-"ThenText4.Text=Str(a–b)ElseIfch="/"ThenIf②=Str(a/b)Else="除数不能