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

浙江省金华市武义第三中学2019-2020学年高二上学期信息...

更新时间:2024-07-31 浏览次数:62 类型:月考试卷
一、选择题
  • 1. (2019高二上·武义月考) 对10个数据进行冒泡排序,需要比较的次数是(   )
    A . 90 B . 110 C . 45 D . 55
  • 2. (2019高二上·武义月考) 篮球联赛中,有5个班级的比赛积分依次为14,11,13,8,9。若采用冒泡排序算法对其进行从小到大排序,则完成第二遍时的结果是(    )
    A . 8,11,13,14,9 B . 8,9,13,14,11 C . 8,9,14,11,13 D . 14,13,11,9,8
  • 3. (2019高二上·武义月考) 有如下Visual Basic程序段:

    m = a(1)

    i =2

    Do While i <= 10

        If m < a(i) Then m = a(i)

        i =i+ 1

    Loop

    该程序段执行后,变量m中存储的是(   )

    A . a(1)至a(10)中的最大值 B . a(1)至a(10)中的最小值 C . a(2)至a(10)中的最大值 D . a(2)至a(10)中的最小值
  • 4. (2019高二上·武义月考) 有如下VB程序段:

    Dim i As Integer,c As String,s As String,t As String

    s=“China2014IT”:t=“”

    For i=1 To Len(s)

        c=Mid(s,i,1)

        If c>=“a” And c<=“z” Then t=t+c

    Next i

    Label1.Caption=t

    该程序段运行后,标签Label1中显示的内容是(    )

    A . 2014 B . ChinaIT C . hina D . CIT
  • 5. (2019高二上·武义月考) 下面VB程序的功能为:在文本框Text1和Text2中输入两个整数,单击按钮对象Command1,在标签对象Label1中显示这两个数的差。

    Function lsc(x,y) As Integer

        If x>y Then

            lsc=x-y

        Else

            lsc=y-x

        End If

    End Function

    Private Sub Command1_Click( )

        Dim a1 As Integer,a2 As Integer

        a1=Val(Text1.Text)

        a2=Val(Text2.Text)

        Label1.Caption=              

    End Sub

    要实现上述功能,程序画线处应填入的语句为(      )

    A . lsc(x,y) B . lsc(Text1.Text,Text2.Text) C . lsc D . lsc(a1,a2)
  • 6. (2019高二上·武义月考) 小明在VB中定义了以下函数,功能是求a和b的最大公约数。

    Function gcd(a As Integer, b As Integer) As Integer

        Do While b>0

            c=a Mod b

            a=b

            b=c

        Loop

    End Function

    调试中发现计算结果一直是0。经过仔细观察与分析,发现错误的原因是(    )

    A . 函数名有错 B . 变量c没有定义 C . 函数没有返回值 D . b>0应该改为b>=0
  • 7. (2019高二上·武义月考) 字符串变量a的值为“Hello, world!”,下列Visual Basic表达式的值是“world”的是(    )
    A . Len(a,6,5) B . Mid(a,6,5) C . Mid(a,7,4) D . Mid(a,7,5)
  • 8. (2019高二上·武义月考) 运行如下VB程序:

    Private Sub Command1_Click( )

        Dim x As Integer

        Dim y As String

        x=Val(Text1.Text)

        If x>=95 Then

            y=“非常满意”

        ElseIf x>=80 Then

            y=“满意”

        ElseIf x>=60 Then

            y=“基本满意”

        Else

            y=“不满意”

        End If

        Label1.Caption=y

    End Sub

    在文本框Text1中输入50,单击命令按钮Command1后,在标签Label1中显示(    )

    A . 非常满意 B . 满意 C . 基本满意 D . 不满意
  • 9. (2019高二上·武义月考) 窗体装载事件过程可以对程序进行初始化。VB窗体装载事件过程的名称是(    )
    A . Command1_Click B . Form_Keypress C . Form_Load D . Form_DblClick
  • 10. 有如下VB程序:

    Dim i As Integer,j As Integer,k As String,n As Integer

    n=3

    List1.Clear

    For i=1 To n

        k=“”

        For j=1 To i

            k=k+“*”

        Next j

        List1.AddItem k

    Next i

    该程序运行中,在列表框List1中显示的是(  )

    A . B . C . D .
二、非选择题
  • 11. (2019高二上·武义月考) 下面VB程序的功能是求100~999间被3除多2,被5除多3的所有整数,并统计符合条件的数的个数。

    Private Sub Command1_Click( )

        Dim i As Integer, p As Integer

        p=0

        For i=100 To 999

            If  Then

                List1.AddItem Str(i)

               

            End If

        Next i

        List1.AddItem Str(p)

    End Sub

    为实现上述功能,请在程序划线处填入合适的语句。

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

试卷信息