2007年浙江省信息技术会考算法与程序设计题.docVIP

2007年6月高中信息技术会考 算法与程序设计题（第一套） 四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分） 1.有如下Visual Basic程序段： a = 30 b = 20 a = b 该程序段运行后，变量a的值为________。 2.有如下Visual Basic程序段： Dim a As Single, py As String a=Val(Text1.Text) If a0 Then py=正数 If a=0 Then py=零 If a0 Then py= 负数 Label1.Caption=py 在文本框Text1中输入100，则在Label1标签上显示的是　　　。 3. 以下Visual Basic程序的功能是：计算表达式1×2×3×4×5×6×7×8×9×10的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为_____________。 Private Sub Command1_Click() Dim i As Integer,sum As Long sum = 0 For i = 1 To 10 sum = sum * i Next i Text1.Text=Str(sum) End Sub 4.从改革开放以来，浙江省农村家庭的可支配收入逐年增加，近几年每年增长率在9%左右。小明一家今年的可支配收入是32000元，按现在的增长率9%计算，小明家几年后可支配收入将达到50000元？ 解决此问题的流程图如VB-1所示。根据流程图VB-1编写的Visual Basic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim x As Long, p As Double Dim n As Integer x = 32000 p = 0.09 n = 0 Do While ① x = x * (1 + p) ② Loop Text1.Text = Str(n) End Sub 程序中划线处①应填入 程序中划线处②应填入 2007年6月高中信息技术会考 算法与程序设计题（第二套） 四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分） 1．有如下Visual Basic程序段： a=Good b=Bye c=a+b 该程序段运行后，变量c的值是___________。 2. 有如下Visual Basic程序段： ???? x=3???????????? ???? If? x5? Then?? ?????? y=x*x ???? Else ?????? y=4*x ???? End? If ?? 该程序段运行后，变量y的值是___________。 3. 下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。则程序中划线处的语句应更正为__________________。 Private Sub Command1_Click() Dim sum As Long,i As Integer,n As Integer sum = 0 n = Val(Text1.Text) For i = 1 To 2 * n - 1 Step 2 sum = sum + 2 Next i Text2.Text=Str(sum) End Sub 4．依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1.0mg/ml驾驶机动车的属醉酒驾车。设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。 解决此问题的流程图如VB-1所示。根据流程图VB-1编写的Visual Basic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) If ① Then Label1.Caption = 你属于醉酒驾车! Else If x = 0.3 Then Label1.Caption = 你属于酒后驾车! ② Label1.Caption = 恭喜你没有违法! End If End If End Sub