浙教版初中信息技术九年级上学期期末试卷(3)

试卷更新日期:2021-04-14 类型:期末考试

一、单选题

  • 1. 下列选项中哪一项不属于VB系统的文件类型?(   )
    A、frm B、vbp C、vbg D、bar
  • 2. 下列给出的VB赋值语句中正确的个数是(    )。

    m=m-10;

    –m=n;

    m=m+n;

    8=n;

    A、1个 B、2个 C、3个 D、4个
  • 3. 若x=666: y=Str(x),则下列描述正确的是(   )。 
    A、x和y均是字符型变量 B、x是字符型变量,y是数值型变量 C、x是数值型变量,y是字符型变量 D、x和b均是数值型变量
  • 4. 在日常生活中,我们上网登录QQ时,密码和QQ号对应就可以登入,若不对应,会提示你账号有误,重新输入。这一事件若用vb中的结构图来描述,应当属于下列哪个结构(   )?
    A、顺序结构 B、分支结构 C、循坏结构 D、数据结构
  • 5. 下列应用程序中对应的数字用到了哪些控件?(    )

    A、①Label     ②Msgbox     ③TextBox B、①TextBox   ②Label      ③Image C、①TextBox   ②Msgbox     ③PictureBox D、①TextBox   ②Label      ③PictureBox
  • 6. 在Visual Basic中,表达式Sqr(4)的值是(     )
    A、1 B、2 C、3 D、4
  • 7. 下图所示的流程图为求分段函数。根据算法,流程图中①处应当填写的内容是(      )

    A、b≥a B、b≥0 C、b≤0 D、b≤a
  • 8. 如下一段VB程序运行后,变量a的值为(    )。

    Dim i As Integer, a As Integer

    i=6

    a=6

    If i <6 Then 

        a = a +4

    Else

        a = a -4

    End If

    A、2 B、10 C、6 D、4
  • 9. 下列程序运行后,单击Command1命令按钮,变量a=(    )。

    Private Sub Command1_Click()

    a = 0 

    For i = 8 To 100 Step 8

        a = a + 1

    Next i 

    End Sub

    A、0 B、8 C、12 D、13
  • 10. 以下VB程序段运行后,循环体执行的次数是(     )

    Dim x As Integer

    x=2

    Do while x<=63

        x=(x+1)*(x-1)

    Loop

    A、2 B、3 C、4 D、5

二、填空题。

  • 11. 计算机语言的发展经历了机器语言、和高级语言。
  • 12. 在面向对象程序设计中,用来描述对象的特征信息。
  • 13. 采用搜索的方法解决问题,如密码破解的问题,常采用的方法叫做
  • 14. 在VB环境中,修改对象的BackColor的属性值,则对象的会发生改变。
  • 15. 将字符型变量转化为数值型变量应该用函数
  • 16. 循环结构是指程序重复执行循环语句中的一行或多行代码,其三个要素为、循环体和循环终止条件。
  • 17. 用循环结构解决问题时,如果循环的次数已知,通常采用语句。
  • 18. 函数的作用是在窗体中直接弹出一个提示框,用于程序中的提醒、警告等信息输出。

三、综合题

  • 19. 有如下一个生活中常见的情况:

    输入一个成绩,判断该成绩属于“优秀”、“良好”、“及格”还是“不及格”。

    (1)、请为上面的程序设计流程图。

    (2)、请把下面对应的代码填写完整。

    Private Sub Command1_Click( )

        Dim x As Integer

        x= (Text1.Text)

        Select Case x

       

            Text2.Text=“优秀”

        Case x≧75

            

       

            

        Case Else

           Text2.Text=“不及格”

        End Select

    End Sub

  • 20. 阅读下列程序,完成相应的问题。
    (1)、下列程序运行后,变量s=

    Private Sub Form_Click( )

        Dim a, b, c, s As Integer

        a=9

        b=41

        c=2*(a+b)

        s=a*c

    (2)、若a=50,b=60,则下列程序的执行结果为

    Private Sub Form_Click( )

        Dim a As Integer, b As Integer

        If a>b Then

            a=a-b

        Else

            a=b+a

        End if

    Print a

    (3)、执行下面的程序后,输出的结果是 ,

    Private Sub Form_Click( )

        Dim x As Integer, a As Integer

        x=0

        a=0

        For j=1 to 5

            a=a+j

        Next j

        x=j

        Print x, a

    End Sub

    (4)、执行下面的程序后,输出的结果是 ,

    Private Sub Form_Click( )

        Dim x As Integer

        x=0

        Do While x<50

            x=(x+2)*(x+3)

            n=n+1

        Loop

        Print x,n

    End Sub

四、设计程序

  • 21. 某合唱队有100人,分别编号为1,2,3……100,现从中抽出编号为6的倍数的队员单独作为一个声部的合唱,那么这样的人数共有多少?分别是哪些编号?

    请用VB程序实现上面的内容,算出人数并在窗体上列出所有编号。

    界面设计参考如下: