当前位置: 初中信息技术 /备考专区
试卷结构: 课后作业 日常测验 标准考试
| 显示答案解析 | 全部加入试题篮 | 平行组卷 试卷细目表 发布测评 在线自测 试卷分析 收藏试卷 试卷分享
下载试卷 下载答题卡

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

更新时间:2021-07-08 浏览次数:62 类型:期末考试
一、单选题
  • 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. (1) 请为上面的程序设计流程图。

    2. (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. (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. (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. (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. (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

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

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

    界面设计参考如下:

微信扫码预览、分享更方便

试卷信息