组卷网基于海量中小学试题库建立的在线组卷系统
当前位置:手动组卷 >高中信息技术 >按章节
时间 使用次数
过滤已使用的试题
防超纲选题
  • 1. 做匀加速直线运动物体的即时速度计算公式是vt = v0 + at,其中v0是初速度,a是加速度,t是时间。计算步骤有:

    ①用公式计算即时速度vt = v0 + at

    ②输入初速度v0、加速度a和时间t

    ③结束

    ④输出结果vt

    其正确的顺序是(  )

    A . ②①④③ B . ①②③④ C . ④②③① D . ①④②③
  • 1. 在Visual Basic中,语句form1.Caption = "欢迎使用本系统!" 中的"Caption"是(  )
    A . 属性值 B . 属性名 C . 对象名 D . 类名
  • 1. 在Visual Basic中,下列能作为变量名的是(  )
    A . a_5 B . a-5 C . 5a D . A&5
  • 1. "猴子吃桃"问题:一天,有一只猴子从树上摘下若干个桃子,当即吃了一半,觉得不过瘾,又吃了一个。第二天小猴子接着吃剩下的一半,还觉得不过瘾,又吃了一个。以后每天都是吃前一天剩下的一半并再吃多一个。到第四天,猴子按规则吃完桃子后,只剩一个桃子。问小猴子第一天摘了多少个桃子。右图所示是根据分析所画出的部分流程图。

    采用倒推算法,其中设定M的初始值为1(第四天吃完后剩下的桃子数),D为天数(初始值为5)请在下面的①和②(对应流程图中相应空缺位置)填入相应选项。①、②分别为(  )

    A . M=M*2+1      D=1 B . M=M*2+1      D<1 C . M=2*(M+1)    D=1 D . M=2*(M+1)    D<1
  • 1. 在Visual Basic中,有如下程序:

    Private Sub Command1_Click()

      Dim a As Integer, b As Integer, c As Integer

      Dim d As Integer, z As Integer

      a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)

      d = max(a, b)

      z = max(d, c)

      Text4.Text = Str(d)

      Text5.Text = Str(z)

    End Sub

    Function max(x As Integer, y As Integer) As Integer

      If x > y Then max = x Else max = y

    End Function

    运行该程序,在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后,单击命令按钮Command1,文本框Text5中显示的是(  )

    A . -5 B . 2 C . 6 D . 24
  • 1. 用计算机无法解决"打印所有偶数"的问题,其原因是解决该问题的算法违背了算法特征中的(  )
    A . 唯一性 B . 有穷性 C . 能行性 D . 有输出
  • 1. 计算梯形面积的算法描述如下:

    ①输入上底a、下底b和高h

    ②计算梯形面积s(计算公式为:s=(a+b)*h/2)

    ③输出结果

    ④结束

    上述算法属于(  )

    A . 解析算法 B . 排序算法 C . 递归算法 D . 枚举算法
  • 1. 在VB中,要添加一个列表框(listbox),在工具箱中要单击的控件是 (  )
    A . B . C . D .
  • 1. 有如下Visual Basic程序段:

    a = "1100101"

    b = Mid(a, 2, 4) + "101"

    该程序段运行后,变量b的值为{#blank#}1{#/blank#}。

  • 1. 普源为晚上的班级联欢会设计了一个抽奖程序,将所有同学的编号和对应的姓名分别保存在数组a(全班共50个同学,编号为1到50)和数组b中,程序会随机产生一个1到50的正整数(同时包括1和50),作为中奖编号。

    程序界面如图所示,左边列表框List1中显示同学的编号和姓名,单击"抽奖"按钮(Command1),在标签Label3中显示抽中的编号,同时在标签Label4中显示"恭喜***同学",其中具体同学的姓名从数组b中获取。

    解决此问题的程序段如下,请在程序①和②划线处,填入适当的语句或表达式,把程序补充完整:

    Dim a(1 To 50) As Integer

    Dim b(1 To 50) As String

    Function search(m As Integer) As Integer

    search = 0

    For i = 1 To 50

        If m = a(i) Then

           search = a(i)

        End If

    Next i

    End Function

    Private Sub Command1_Click()

    Dim c As Integer,t as integer

    Randomize

    {#blank#}1{#/blank#}

    Label3.Caption = Str(c)

    t = search(c)

      If t <> 0 Then

        Label4.Caption = "恭喜" + {#blank#}2{#/blank#} + "同学"

       End If

    End Sub

    Private Sub Form_Load()

        ' 此过程用于对数组a和数组b进行初始赋值,代码略

    End Sub

1 2 3 4 5 下一页 共813页