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

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

一、选择题

  • 1. 在条件选择语句If …… Else If …… Else If …… End If中,当If结构内有多个条件都为True时,则(    )
    A、VB依次执行条件为True的后面的语句块 B、VB执行第一个为True的条件后面的语句块 C、VB执行最后一个为True的条件后面的语句块 D、VB执行任一个为True的条件后面的语句块
  • 2. 在vb中,x+y小于10且x-y大于5的逻辑表达式是(   )
    A、x+y<10 or x-y>5 B、(x+y<10) : (x-y)>5 C、x+y<10; x-y>5 D、x+y<10 and x-y>5
  • 3. 已知x=4,则vb表达式Sqr(x)的值是(   )
    A、1 B、2 C、3 D、4
  • 4. 有一把锁和一串钥匙(共有10把钥匙,其中配套的钥匙有若干把),怎样找出能开这把锁的所有钥匙?设计的算法是:一把一把钥匙尝试开锁,开锁后将能开的钥匙做好标记,最后有标记的钥匙就是能开锁的钥匙,此算法属于(    )
    A、解析算法 B、枚举算法 C、递归算法 D、排序算法
  • 5. 在Visual Basic中,用变量p存储数值3.1415,变量p的数据类型应定义为(    )
    A、Boolean B、Integer C、Single D、String
  • 6. 在Visual Basic中,语句Soft.Text="QQ2015"中的Soft是(    )
    A、属性名 B、属性值 C、对象名 D、窗体名
  • 7. 在Visual Basic中,如果给变量a、b都赋值为3,则下列语句正确的是(    )
    A、a=3:b=3 B、a=b=3 C、a=3,b=3 D、a=3;b=3
  • 8. 小明用计算机解决数值交换问题时经历了若干阶段,其中设计算法属于(    )
    A、“分析问题确定要用计算机做什么”阶段 B、“寻找解决问题的途径和方法”阶段 C、“用计算机进行处理”阶段 D、“运行调试”阶段
  • 9. 下列关于算法的描述,正确的是(    )
    A、描述算法的方法只能是流程图 B、算法过程要一步一步执行,每一步执行的操作必须确切,不能含混不清,而且经过有限步或无限步后能得出结果 C、同一种算法只能用一种程序语言来实现 D、算法是描述解决问题的方法和步骤
  • 10. 在VB中,对于语句If I=1 Then J=1 else J=2,下列说法正确的是(    )
    A、I=1 和 J=1 都是赋值语句 B、J=1 和 J=2 都是关系表达式 C、I=1为关系表达式,J=1为赋值语句 D、J=1为赋值语句,J=2为关系表达式

二、综合题

  • 11. 根据流程图回答问题

    (1)、上面流程图执行后,输出的变量t的结果是什么?
    (2)、上面的流程图表示的是程序的哪种结构?
  • 12. 变量a,b,c分别保存一元二次方程的二次项、一次项系数和常数项(其中a≠0),变量x1和x2分别保存方程的两个根。完善下列程序,使程序运行时能根据方程的a,b,c值计算根并输出相应信息。

    d=

    if d>0 then

        x1= (-b + Sqr(d)) / (2 * a)

        x2=

        text4.text=str(x1)

        text5.text=str(x2)

        label6.caption=“有两个不同的实数根”

    else

        if  then

            x1=(-b)/(2*a)

            x2=x1

            text4.text=str(x1)

            text5.text=str(x2)

            label6.caption=“有两个相同的实数根”

        else

            text4.text=

            text5.text=""

            label6.caption=

        end if

    end if

  • 13. 计算1到100之和,欲设计的界面如下:

    (1)、设置部分对象及其属性如下表:

    对象名

    属性名

    属性

    Command1

    计算

    (2)、编写代码:

    Private Sub Command1_Click()

        Dim i, s As Integer

        s =

        For i = 0 To 100 Step 1

           

        Next i

        Label2.Caption = Str(s)

    End Sub