浙江省湖州市长兴县2020届九年级上学期信息技术期末考试试卷

修改时间:2024-07-13 浏览次数:156 类型:期末考试 编辑

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

一、选择题(本大题共25小题,每小题2分,共50分。在每小题给出的四个选项中只有一个选项是正确的)

  • 1. 下面文件中哪一个是VisaulBasic的工程文件(  ),
    A . exe. frm B . abc.vbp C . te.msc D . df.exe
  • 2. 下列关于算法的描述,正确的是(  )
    A . 描述算法的方法只能是流程图 B . 用一种程序语言来实现某个具体问题的算法只可能有一种 C . 同一种算法只能用一种程序语言来实现 D . 算法是描述解决问题的方法和步骤
  • 3. 下列4个流程图图形按顺序对应的名称正确的是(  )

    A . 开始,终止框、输入/输出框、判断框,处理框 B . 判断框、开始/终止框、处理框、输入/输出框 C . 处理框、输入,输出框、判断框、开始/终止框 D . 输入/输出框、处理框、判断框、开始/终止框
  • 4. 在VisualBasic中,语句Label1. Caption=“欢迎使用本系统”中的“Label1”是(  )
    A . 属性值 B . 属性名 C . 对象名 D . 类名
  • 5. 在VisualBasic窗体中添加一个命令按钮,在工具箱中要单击的是(  )
    A .   B .   C .   D .  
  • 6. 要使下列VB程序命令按钮Command1上产生单击事件时被执行,则填在横线处最合适的是(  )

    Private Sub     

    MsgBox(“好运中国!”)

    EndSub

    A . Command1_Click( ) B . Command1_Dbclick( ) C . Command1_KeyPress( ) D . Command1_单击( )
  • 7. Dim a as String的作用是将变量a定义为(  )
    A . 整数型 B . 单精度实数型 C . 字符型 D . 布尔型
  • 8. 在Visual Basic中,表达式“9 mod 10”的值是(  )
    A . 0 B . 1 C . 9 D . 10
  • 9. 下列可以作为Visual Basic变量名的是(  )
    A . 6bf B . fb6 C . -bf6 D . Dim
  • 10. 表达式Abs(-6)+Len(“ABCDE”)的值是(    )
    A . 6ABCDE B . -6ABCDE C . 11 D . 不能计算,出错
  • 11. 下列控件中可以用于接受用户输入文本,又可用于显示文本的是(  )
    A . Label控件 B . TextBox控件 C . CommandButton控件 D . PictureBox控件
  • 12. VB中表达式Mid(“hello”,2,3)的值是(  )
    A . “ll” B . “llo” C . “ell” D . “ello”
  • 13. VB中下列表达式书写正确的是(  )
    A . a>b And b>c B . a>b>c C . a≤b D . a≠22
  • 14. 把数值123转化成字符串“123”时应该使用的函数是(  )
    A . Str(  ) B . Val(  ) C . Len(  ) D . Abs(  )
  • 15. 下面程序的执行结果是(  )(提示:Print语句是表示输出)

    I=10

    J=20

    If I>J Then Print I Else Print J

    A . 10 B . 20 C . 1020 D . 2010
  • 16. 能正确描述条件“A、B之一为零但不同时为零”的VB逻辑表达式是(  )
    A . A=O Or B=0 B . A*B=0 And A+B<>0 C . A*B=0 Or A+B<>0 D . A=0 And B=0
  • 17. 下列程序运行后,变量Value的值是(  )

    x=10

    If x>=10 Then

    Value = 5*x

    Else

    Value=3*x+10

    End If

    A . 40 B . 50 C . 60 D . 70
  • 18. 当在文本框Text1中输入3时,执行下面的程序后,Y的值是(  )

    x=Val(Text1. Text)

    If x<=2 Then

    y=2

    Else

    If x<=3 Then

    y=3

    Else

    y=4

    End If

    End If

    A . 2 B . 3 C . 4 D . 程序出错,没有结果
  • 19. 在Select多分支结构中,下面哪个的表达式不正确(  )
    A . Case 1->10 B . Case“A”,“B” C . Case 3 to 6 D . Case Is<10
  • 20. 编程求1+2+3+……+1000的和,该题设计最适合使用的是控制结构为(  )
    A . 顺序结构 B . 分支结构 C . 循环结构 D . 选择结构
  • 21. 下面程序执行后,s的值是多少(  )

    s = 0

    For i=1 To 10 Step 1

    s=s+i

    Next i

    A . 50 B . 55 C . 45 D . 60
  • 22. 有如下的VB程序段。

    For i=1 To 10 Step 4

    s = s+i

    Next i

    该程序段运行后,语句s=s+i执行的次数为(  )

    A . 1 B . 3 C . 4 D . 10
  • 23. 假定有如下VB程序段

    x=1

    Do While x<28

    X = x * 4

    Loop

    Print x

    程序运行后,输出结果是(  )

    A . 81 B . 16 C . 4 D . 64
  • 24. 下面程序段运行后,总共显示(  )个星号

    For i=1 To 5

    For j=1 To 3

    Print”*”

    Next j

    Next i

    A . 5 B . 10 C . 15 D . 2
  • 25. 以下程序段执行后,x的值为(  )

    x=0

    For i=1’To 10

    For j=i To 10

    x=x+1

    Next

    Next i

    A . 50 B . 55 C . 100 D . 105

二、判断题(本大题共10个小题,每小题1分,共10分。)

三、填空题(本大题共20个空格,每个空格2分,共40分)

  • 36. 计算右边VB表达式的值:25+6*4/8=
  • 37. 在VB中,将A定义为长整数变量类型,其语句为:
  • 38. 用VB表达式表示“X+Y小于10且X-Y要大于0”:
  • 39. 语句If 3*4>10 Then a=1 Else a=2,执行后,a的值是
  • 40. 计算机上能直接运行的语言是(机器语言/高级语言)
  • 41. 在VB中,用Boolean来表示的数据类型是
  • 42. 在VB语言中,用于求余的运算符是
  • 43. 下面的程序是用来计算矩形的面积和周长已知a,b表示矩形两条边的边长,s表示矩形的面积,c表示矩形的周长。

    ……

    Dim a As Integer,b As Integer,s As Single,c As Single

    a=18

    b=9

    C=2*(    )   

    (1) 计算该矩形的周长
    (2) 计算该矩形的面积
  • 44. 编制一个摄氏温度C和华氏温度F相互转换的程序。相关公式为:C=(F-32),F=C+32。

    界面如下:文本框从上到下对象名称分别是Text1,Text2,按钮从左到右名称依次是:Command1,Command2,Command3。

    现在程序编写如下:

    Private Sub Command1_Click()

    Dim C As Sinzle,F As Sinzle

    C=(Text1.Text)  (VB中字符转数值函数)

    F=(计算华氏温度)

    Text2.Text=(F)    (将华氏温度放在TEXT2中,注意要将数值转字符)

    End Sub

  • 45. 程序填空,输入成绩(0—100),输出该成绩对应的等级,90分及以上为“A”,80分及以上为“8”,70分及以上为“C”等,60分及以上为“Di”等,60分及以下为“E”等。(输入分数时不考虑0一100之外的任何数据)

    Private Sub Command1_Click()

    Dim x As Integer

    x=Val(Text 1.Text)

    Select Case

      Case Is>=90

        Text2.Text=“A”

      Case Is>=80

        Text2.Text=“B”

      Case Is

        Text2.Text=“C”

      Case Is>=60

        Text2. Text=“D”

      Case Else

       

    End Select

    End Sub

  • 46. 程序填空:求S= 的和,并在窗体上输出来

    Private Sub Command1_Click()

    Dim i As Integer

    Dim s As       ‘(s变量存放总和,此处定义它为单精度变量类型)

    For i=1 To 

    s=

    Next i

    Print s

    End Sub

  • 47. 程序填空,当单击窗体后,计算出1+2+3+……+N<500的最大值,并在文本框中显示出来

    Private Sub Form-Click()

    Dim S As Integer

    Dim N As Integer

    N=0

    S=0    ‘S变量存放的是总和

    Do While    (条件)

    N=N+1

    S=S+N

    Loop

    Text1. Text=Str()

    End Sub

试题篮