高中信息技术:

高中 信息技术

某Visual Basic程序如下:

    Private Sub Command1  Click()

    Dim a(1 To 10)As Integer

    Dim i As Integer

    For i=1 To 10

    a(i)=i * i

    Next i

    List1.Add Item Str(a(i))

    End Sub

运行程序,单击命令按钮Command1后,出现的错误提示为:(  )

A . 下标越界 B . 子程序或函数未定义 C . 溢出 D . 类型不匹配
人们可以通过网络购买计算机、智能手机等设备,下图是某电子商务提供的某型号计算机的重要参数。根据所学知识判断下列说法正确的是(   )。

A . 硬盘总大小为1152GB B . CPU的主频为4G,决定了计算机的运算性能 C . 购买电脑只需看CPU就行,其他参数不重要 D . 内存的大小为4G,主要用于长期存储数据
下列软件中,不能用于制作网页的是(   )
A . CuteFTP B . DreamweaverMX C . FrontPage2000 D . FlashMX
一同学要搜索 "北京奥运会"的信息,他访问google搜索引擎,键入什么关键词,搜索范围更为有效(    )
A . 北京奥运会 B . 奥运会 C . 北京  奥运 D . 北京
【加试题】小李基于冒泡排序算法编写了一个VB程序,功能如下:在文本框Text1中显示排序前的数据,单击“排序”按钮Command1,在文本框Text2中显示升序排序结果,重复数据不重复显示。程序运行界面如图所示。

实现上述功能的VB程序如下,但加框处代码有错,请改正。

Const n=10

Dim a(1 To n)As Integer

Private Sub Form_Load()

‘获取排序前数据,并依次存储在数组a中,并在文本框Text1中显示。代码略

End Sub

Private Sub Command1_Click()

  Dim i As Integer,j As Integer,t As Integer

  Dim top As Integer

  top=1

  For i=1 To n-1

    For j= To n-1              ‘⑴

       If a(i)>a(j+1)Then

       t=a(j):a(j)=a(j+1):a(j+1)=t

     ElseIf a(j)=a(j+1)Then     ‘相邻两个数据相等,由前面数据对进行覆盖处理

                        ‘⑵

       top=top+1

      End If

     Next j

    Next i

    Text2.Text=“ ”

    For i=top To n

      Text2.Text=Text2.Text+Str(a(i))

    Next i

  End Sub

将十六进制数56转换成8位二进制数,再将该8位二进制数从左向右按两位一组依次分为4组,每组中的两位相互交换,得到新的8位二进制数,则新的8位二进制数对应的十六进制数是(    )
A . D0 B . 34 C . 65 D . A9
声音编码通常经过采样和量化两个步骤。量化时将整个振幅划分为若干个量化级,把落入同一级的样本值赋予相同量化值。如图所示,若a点、b点量化值是12,那么关于c点、d点量化值,以下叙述正确的是(    )。

A . c点、d点都为12 B . c点、d点都为13 C . c点为13,d点为14 D . c点、d点都为14
   选择某个文件后,若按住Ctrl键不放,再单击该文件,可以取消选择 。
某地驾照考试规定,考试成绩不低于80分为合格,下图是根据成绩判断是否合格的部分流程图,如果输入的成绩为85,则该流程的执行顺序为:(    )

A . ①→②→③ B . ①→②→④ C . ①→②→④→③ D . ①→②→③→④
小王基于选择排序算法编写了一个VB程序,功能如下:数组a有n*n个元素,按n行n列进行排列,按列进行升序排序。例如6*6的数组,第一列将a(1),a(7),a(13),a(19),a(25),a(31)进行排序。运行程序,在列表框List1中显示n*n个数列单击“排序”按钮Command1,在列表框List2中显示排序后的结果,程序运行界面如图所示。请回答下列问题:

  1. (1) n=6时运行结果如图所示,图中1处“47”在数组a中下标是(填数字)。
  2. (2) 为了实现上述功能,请在划线处填写合适的代码。

    Const n =6

    Dim a(1 To n * n) As Integer

    Private Sub Form_Load()      '产生n*n个数组元素,每行按n个数显示在list1中

      For i = 1 To n * n

        a(i) = Int(Rnd * 90) + 10

        s = s + Str(a(i))

        IfThen

          List1.AddItem s

          s = ""

        End If

      Next i

    End Sub

    Private Sub Command1_Click()

      Dim i As Integer, j As Integer, w As Integer, s As String

      For i = 1 To n * n

        k = i

        For j = k + n To

          If a(k) > a(j) Then k = j

        Next j

        If _x0000_i1031 Then t = a(k): a(k) = a(i): a(i) = t

      Next i

    '将排序后数组a的元素,按每行n个数显示在list2中,代码略

    End Sub

  3. (3) 程序中加框处代码有错,请改正。
如图1所示,最外圈方格中已写入数字0。机器人小艾根据图2所示的算法从数字1所在方格出发,沿箭头所指方向前进,并在空白方格中写入数字,方格X中写入的数字是(     )。

A . 16 B . 13 C . 15 D . 14
公共自行车系统要对公共自行车站点(如下图所示)上的自行车进行合理的自动调度,这样才不至于出现“租不到车”和“无法还车”的情况,自动调度属于计算机领域的(     )

A . 数据挖掘 B . 优化决策 C . 模式识别 D . 机器博弈
小童给朋友发送邮件,但他的朋友当时没在线,那么已发送的电子邮件将会(  )
A . 退回给发件人 B . 保存在邮件服务器上 C . 因为超过时间,所以无法打开 D . 被丢掉
在Excel工作表中,区域A1:B2所包含的单元格个数是(  )
A . 2 B . 3 C . 4 D . 6
某算法部分流程图如图所示。执行这部分流程,依次输入12、-5、29、18、7,则输出值是(  )

A . 12 B . -5 C . 29 D . 7
某算法流程图如图所示,执行该算法,输出s的结果是(   )

A . 0 B . 8 C . 10 D . 15
目前现代信息社会已进入以互联网为核心的阶段。
利用VB程序设计语言进行信息编程加工的一般流程是:设计算法、设计界面、编写代码、调试运行。
管理信息系统概念的正确描述之一是(        )
A . 由计算机、网络等组成的应用系统 B . 由计算机、数据库等组成的信息处理系统 C . 由计算机、人等组成的社会技术系统 D . 由计算机、数学模型等组成的管理决策系统
若一个数是某个整数的平方,则该数被称为完全平方数。下列程序段用于找出字符串中用逗号分割的完全平方数。部分程序代码如下:

Dim tmp As Single ,s As String ,ch As String ,i As Integer s = "1,20,36,29,3,"

tmp = 0

For i = 1 To Len(s)

    ch = Mid(s, i, 1)

    If ch <> "," Then

              

    Else

        If       Then

            List1.AddItem Str(tmp)

        End If

        tmp = 0

    End If

Next i

上述程序段中横线处可选语句为:

① tmp = tmp * 10 + Val(ch)

② tmp = tmp + ch 

③ Sqr(tmp) ^ 2 = tmp

④ Int(Sqr(tmp)) = Sqr(tmp)

则方框处处语句依次为: (  )

A . ①③ B . ①④ C . ②③ D . ②④
最近更新