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

浙江省2008年高中信息技术会考(六月卷) PAGE 第 PAGE 17 页 共 NUMPAGES 18 页 2008年6月高中信息技术会考 算法与程序设计题（第一套） 四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分） 1．有如下Visual Basic程序段： a = 3 : b = 2 : c = 3 b = a+b*c 该程序段运行后，变量b的值为 。 2．有如下Visual Basic程序段： a=39 b=93 If a+b100 Then py=太大 If a+b=100 Then py=相等 If a+b100 Then py=太小 Label1.Caption=py 该程序段运行时，在Label1标签上显示的是　　　。 3．以下Visual Basic程序的功能是： 计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的表达式应更正为_____________。 Private Sub Command1_Click() Dim i As Integer,s As Long s = 0 i = 1 Do While i = 1024 s = s + 2*i i = i * 2 Loop Text1.Text=Str(s) End Sub 4．有一道趣味题，张老师问李老师:“你今年几岁？你爱人今年几岁？”李老师笑笑说：“我年龄的平方与我爱人年龄之和恰好等于1053。而我爱人年龄的平方与我的年龄之和却等于873。你计算一下吧！” 设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为： x2 + y = 1053 x + y2 = 873 解决此问题的流程图如VB-1所示。根据流程图VB-1编写的Visual Basic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim x As Integer, y As Long x = 1 y = 1053 - x * x Do While ① ② y = 1053 - x * x Loop Text1.Text = Str(x) Text2.Text = Str(y) End Sub 程序中划线处①应填入 程序中划线处②应填入 N N x + y2= 873? 开始 x赋初值1 结束 y=1053 - x2 x值增加1 计算y值 输出x，y Y 图VB－1 2008年6月高中信息技术会考 算法与程序设计题（第二套） 四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分） 1．有如下Visual Basic程序段： a = Happy b = ness c = a + b 该程序段运行后，变量c的值是___________。 2．有如下Visual Basic程序段： Dim x As Single, c As String x=Val(Text1.Text) If x12 Then c= PM Else c= AM End If Label1.Caption=c 该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是　　　。 3.下列Visual Basic程序的功能是：计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标，程序中For语句划线处的循环变量步长应为__________________。 Private Sub Command1_Click() Dim sum As Long Dim i As Integer sum = 0 For i =1 To 97 Step sum = sum + i*i Next i Text1.Text = Str(sum) End Sub 4．模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算,并输出运算结果。 程序界面如图VB-1所示，在文本框Text1中输入第一个数a，在文本框Text2中输入第二个数b，在文本框Text3中输入运算符ch，在文本框Text4中输出运算结果。 图VB-1当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。 图VB-1 解决上述问题的算法流程图