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

修改时间:2021-08-02 浏览次数:66 类型:期末考试 编辑

选择试卷全部试题 *点击此按钮,可全选试卷全部试题,进行试卷编辑

一、单选题

  • 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

二、填空题。

三、综合题

  • 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程序实现上面的内容,算出人数并在窗体上列出所有编号。

    界面设计参考如下:

试题篮