浙教版初中信息技术九年级上册期末试卷

试卷更新日期:2021-11-12 类型:期末考试

一、单选题(本题有16小题,每小题2分,共32分)

  • 1. 用VB开发程序的一般步骤是(     )

    ①界面设计②分析问题③编写代码④保存文件⑤调试与运行⑥生成可执行文件

    A、①②③④⑤⑥ B、②①③⑤④⑥ C、②①③⑤⑥④ D、⑥②①③④⑤       
  • 2. 下面的流程图表示的程序的基本结构是(      )

    A、顺序结构   B、选择结构   C、循环结构    D、以上都不是
  • 3. VB中,工程文件的扩展名是(     )
    A、frm B、vbp C、bas D、frx    
  • 4. VB中,命令按钮控件是(     )
    A、Label B、TextBox C、CommandButton D、Image         
  • 5. 关于VB中控件的操作下列说法错误的是(       )
    A、单击Delete键一次只能删除一个控件 B、单击Delete键一次可以同时删除多个控件 C、按住Shift键,依次单击每个要选择的控件,可以同时选中多个控件 D、按住Ctrl键,依次单击每个要选择的控件,可以同时选中多个控件     
  • 6. 在VB中,要设置窗口的标题内容,应使用(     )属性。
    A、Caption B、Text C、Font D、Name   
  • 7. 数学式(2a-b)/(2a+b)在VB中的正确写法是(      )
    A、(2*a-b)/(2a+b) B、(2*a-b)/2*a+b C、(2a-b)/(2a+b) D、(2*a-b)/(2*a+b)      
  • 8. VB中,比较运算符中的不等于用(      )来表示。
    A、 B、<> C、>= D、<=       
  • 9. VB中,如果x=Val("123.45"),那么x的值为(     )
    A、123 B、123.45 C、12345 D、"123.45"  
  • 10. VB中,可以弹出一个对话框的函数是(       )
    A、Int( ) B、Rnd( ) C、Val( ) D、MsgBox( ) 
  • 11. VB中,定义a为整型变量的语句是(     )
    A、Dim a As Integer B、Dim a As Single C、Dim a As Data D、Dim a As Byte          
  • 12. x=1

    z=0

    For x=1 to 10 step 1

        z=z+x

    next x

    以上程序段是(     )结构。

    A、顺序 B、分支 C、循环 D、流程  
  • 13. VB中,执行下面的程序段后,b的值为 (       )

    a = 100

    b = 20

    a = a + b

    b = a – b

    A、100 B、120 C、20 D、80          
  • 14. 下列程序运行后,变量y的值为(      )

    x=20

    if x>=100 then y=5*x else y=4*x
    end if

    A、20 B、40 C、80 D、100       
  • 15. 下列程序段的运行结果是(       )

    x=3

    Select Case x

        Case 5

        Print "优秀"

        Case 4

        Print "良好"

        Case 3

        Print "通过"

        Case Else

        Print "不通过"

    End Select

    A、优秀 B、良好 C、通过 D、不通过   
  • 16. 下面程序段中s的结果是(     )

    s = 0

    For i = 1 To 3

    s = s + i

    Next i

    A、0 B、1 C、3 D、6          

二、填空题(本题共3小题,第17、18题各9分,第19题10分,共28分)

  • 17. 横线处完成程序,使得单击"显示"按钮时,Label1、Label2分别显示30,10。程序代码:

    Private Sub Command1_Click()

      Dim x, y, t As Integer

       x = 10

       y = 30

         If x < y Then

           t =

           x =

           y =

         End If

       Label1.Caption = Str(x)

       Label2.Caption = Str(y)

    End Sub

  • 18. 读程序: Dim a,b,c As Integer

    a = 1

    b = 2

    a = a + b

    c = a + b * 2

    程序结果 a=    b=   c=

  • 19. 填空完成程序,编程计算1+1/2+1/3+1/4+...+1/99+1/100,单击窗体后,在窗体上显示结果。注:请不要更改源程序结构,并在横线位置填写正确的代码。

    Private Sub Form_Click()

      Dim s As Single

      Dim i As Integer

        s =

        For i = 1 ToStep 1

            s =

        Next i

      Print "s="; s

    End Sub

三、上机题(40分)

  • 20. 编写程序,使用多分支(Select Case)语句结构对输入的学生成绩给出A、B、C和E四个等级判断。

    要求,学生成绩由文本框(Text1)输入,结果显示在文本框(Text2)中。评分标准如下:

      90≤成绩≤100    A

      80≤成绩<90      B

      60≤成绩<80      C

       0≤成绩<60      E

    其余成绩       无效  文本框(Text2)中显示“输入有误,请检查输入的成绩”