当前位置:手动组卷 >高中信息技术 >按章节
时间 使用次数
过滤已使用的试题
防超纲选题
  • 1. 有如下Visual Basic程序段:

    a = 5

    b = Len("1011")

    If a > b Then

      Label1.Caption = "请重新输入"

    Else

     Label1.Caption = "欢迎光临"

    End If

    该程序段运行后,在标签Label1上显示的是{#blank#}1{#/blank#}。

  • 1. 有如下Visual Basic程序段:

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

    a = 20

    b = 0

    c = 2

    Do While a > b And a > c

       b = b + 1

       c = c + b

    Loop

    问:该程序段运行后,

    1. (1)语句“b=b+1”执行的次数为{#blank#}1{#/blank#}。
    2. (2)变量c的值为{#blank#}1{#/blank#}。 
  • 1. 有如下流程图结构,该流程图中输出的前2个值依次分别是{#blank#}1{#/blank#}、{#blank#}2{#/blank#}。

  • 1. 设有n盏灯,放在一排。从1 到 n依次顺序编号。有 n个人也从1到n依次编号。第1个人(1号)将灯全部关闭,第2个人(2号)将凡是2的倍数的灯打开,第3个人(3号)将凡是3的倍数的灯做相反处理(该灯如果为打开的,则将它关闭,如关闭的将它打开),以后的人和3号一样,将凡是自己号数倍数的灯做相反处理。问当n个人操作后,哪几盏灯是亮的。(亮灯为0,关闭为1)

    为了实现这一目标,完善下列程序,使之能完成该功能。

    Private Sub command1_click()

       Const n=20

       Dim i as integer,j as integer

       Dim a(1 to n) as integer

       For j=1 to n

          a(j)=0

       next j

       for i=1 to n

          for j=1 to n

             if j mod i=0 then

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

             End if

           Next j

        Next i

        For j=1 to n

           If {#blank#}2{#/blank#} then list1.additem str(j)

        Next j

    End Sub

  • 1. 数制转换。将一个K进制(k<=10)数x转换成十进制数可采用如下方法:主要方法是从右向左,依次取数x的各位数字,分别计算出该数从右边数起的第i位数字与k(i-1)的积,再将其累加,直到所有的数字取完为止。例如,将五进制数1231转换成十进制数的方法如下:

    下列Visual Basic程序的功能是将K进制(k<=10)数x转换成十进制数。界面如图所示,在文本框Text1中输入数制k,在文本框Text2中输入数x,单击"转换"按钮(Command1)后,在标签Label4中输出转换的结果。

     

    解决此问题的算法流程图如图所示,相应的Visual Basic程序如下:

    Private Sub Command1_Click()

    Dim b As Long, i As Integer, k As Integer, x As Long, t As Integer

    b = 0: i = 1

    k = Val(Text1.Text)

    x = Val(Text2.Text)

    t = x Mod 10

        Do While      ①    

            b =       ②     

            x = x \ 10

            t = x Mod 10

            i = i + 1

        Loop

    Label4.Caption = Str(k) + "进制数" + Text2.text + "转换成十制数为" + Str(b)

    End Sub

    在程序①和②划线处,填入适当的语句或表达式,把程序补充完整:

    1. (1)程序中①划线处应填入{#blank#}1{#/blank#}。
    2. (2)程序中②划线处应填入{#blank#}1{#/blank#}。
  • 1. 把杂乱无章的数据变为有序的数据,这一过程称为排序。冒泡排序是其中一种最基础的排序方法,其中的升序是把数列中把较小的数据逐次向上推移的一种排序技术。它的方法是把待排序的n个元素的数组看成是垂直堆放的一列数据,从最下面一个元素起,自下而上的比较相邻两个元素中的数据,如果较小的数据在下面,那将较小的数据换到上面的元素中(否则不交换)重复这一过程,直到处理完最后两个元素中的数据,称为一遍加工,当第1遍加工完成时,最小的数据已经上升到第1个元素的位置;第2遍加工对余下的n-1个元素重复上述处理过程,第2遍加工完成后剩下最小的数据上升到第2个位置;直到n-1遍加工完成后发现数据完成了从小到大的排序。

    假设有4个数据:27  36  32  18,需要4-1=3遍加工

    第1遍加工如下:

    第2遍加工如下:

    第3遍加工如下:

    假设4个数据放在数组d(1), d(2),d(3), d(4)

    第1遍:比较d(j)、d(j-1),j=4,3,2,比较3次;

    第2遍:比较d(j)、d(j-1),j=4,3,比较2次;

    第3遍:比较d(j)、d(j-1),j=4,比较1次;

    1. (1)假设另有一组未经排序的数据如下:

      45   67   23   87   13   30

      按照上述规则进行从小到大冒泡排序,第一遍加工完成后这6个数的位次应该是

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

      冒泡排序对应流程图片段如下:

    2. (2)下面程序片段要实现数据d(1)..d(n)的从小到大排序,请根据上面流程图说明,填写中间部分代码:

      ……

      ……

      For  i=1 to n-1     '1到n-1遍加工

      Next i

      ……

      ……

  • 1. 在Visual Basic中,语句form1.Caption = "欢迎使用本系统!" 中的"Caption"是(  )
    A . 属性值 B . 属性名 C . 对象名 D . 类名
  • 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~F六种流程图符号代表的含义依次是{#blank#}1{#/blank#}  

  • 1. VB程序的工程文件名、窗体文件名以及生成的可执行文件名分别是(  )
    A . .vb、.frm、.exe B . .vbw、.exe、.frm C . .vbw、.frm、.exe D . .vbp、.frm、.exe
1 2 3 4 5 下一页 共821页