高中信息技术:

高中 信息技术

【加试题】VB应用程序“跳远成绩排序”功能如下:

 按指定格式录入数据,例:0373,张乐晓,3.90。编号宽度固定为4位,姓名宽度固定为3个汉字,不足部分以全角空格补齐,第9个字符开始为跳远成绩。

 在文本框按回车表示录入一项数据结束,录入的数据经处理后编号、姓名、成绩分别存放在数组编号bh、xm、cj中并将原始数据显示在List1中。

 点击命令按钮Command1后进行排序并将排序后的结果显示在List2中。

 程序运行界面如图所示。

  1. (1) 请在划线处填入适当的代码

    Dim bh(1 To 8) As String

    Dim xm(1 To 8) As String

    Dim cj(1 To 8) As Single

    Dim num As Integer

    Private Sub Command1_Click()

      Dim i As Integer, j As Integer, k As Integer, tmp_1 As String, tmp_2 As Single

      For i = 1 To 7

        k = i

        For j = k + 1 To 8

          If  Then  k = j

        Next j

        If k <> i Then

          tmp_1 = bh(k): bh(k) = bh(i): bh(i) = tmp_1

          tmp_1 = xm(k): xm(k) = xm(i): xm(i) = tmp_1

          tmp_2 = cj(k): cj(k) = cj(i): cj(i) = tmp_2

        End If

      Next i

      For i = 1 To 8

        List2.AddItem bh(i) & xm(i) & Str(cj(i))

      Next i

    End Sub

    Private Sub Form_Load()

      num = 0

    End Sub

    Private Sub sr_txt_Keypress(KeyAscii As Integer)

      Dim srsj As String      '输入数据

      If KeyAscii = 13 Then

        num = num + 1

        srsj = sr_txt.Text

        bh(num) = Mid(srsj, 1, 4)

        xm(num) = Mid(srsj, 6, 3)

        cj(num) =

        List1.AddItem srsj

        If num = 8 Then num = 0

      End If

    End Sub

  2. (2) 在事件处理过程Command1_Click()中采用的算法是
某对分查找算法的VB程序段如下:

i = 1: j = 6: k = 0

key = Val(Text1.Text)

Do While i<= j

k = k + 1

m = Int((i + j)/2 + 0.5)

If key = a(m) Then Exit Do

  If key < a(m) Then j = m - 1 Else i = m + 1

Loop

文本框Text1中输入27,执行该程序段后,k的值为2,则a(1)到a(6)各元素可能的值是(   )

A . 12,45,27,31,78,95 B . 15,27,56,61,73,89 C . 89,73,61,56,35,27 D . 13,31,47,56,73,80
激活属性窗口的快捷方式是
为了在网上更好地宣传自己,最好的方法是让自己成为“黑客”。
某磁盘组有8个盘面,存储区内直径为20cm,外直径为32cm,道密度为30道/cm,内层柱面位密度为400位/cm,转速为2400转/分。
  1. (1) 共有多少个柱面。
  2. (2) 总容量为多少个二进制位。
  3. (3) 数据传输率为多少位/秒。
计算机可能传染病毒的途径是(  )
A . 使用空白新软盘 B . 使用来历不明的软盘 C . 输入了错误的命令 D . 格式化硬盘
CMOS的作用是(    )。
A . 计算机启动时执行该程序并由它引导整个系统 B . 存放电脑硬件设置的一些参数 C . 管理计算机整个系统的运行 D . 存放计算机软件和硬件的有关信息
【加试题】某对分查找算法的VB程序段如下:

  Const  n=6

  Flag=False:key=30

  For i=1 To n-1

    L=i+1:R=n

    Do While L<=R And flag=False

       m=(L+R)\2

       If d(i)+d(m)<key Then

            L=m+1

       ElseIf d(i)+d(m)>key Then

            R=m-l

       Else

            Label1.Caption=Str(d(i))+" "+Str(d(m))

            flag=True

       End If

    Loop

  Next i

  If Not flag Then Label1.Caption=“没有符合条件的数对”

数组元素d(1)到d(6)的值依次为“5,8,13,17,22,25”。则程序段执行后,标签Label1中显示的内容是(  )

A . 13  17 B . 8  22 C . 5  25 D . 没有符合条件的数对
某算法的部分流程图如图所示,以下说法正确的是(    )

A . 该流程执行后,变量t的值为0 B . 该流程执行后,变量i的值为64 C . 该流程执行后,变量s的值为20 D . 若语句“t=1-t”改为“t=t-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

            Ifthen

               

            End If

        Next j

    Next i

    For j = 1 To n

        If a(j) = 0 Then list1.AddItem Str(j)

    Next j

End Sub

为了实现程序该功能,在画线处填写正确代码。

星形结构、总线形结构、环形结构、网状形结构是计算机网络的典型拓扑结构。
用Access创建的数据表如图所示:

在该表中下列操作能实现的是(  )

A . 在性别字段中输入“否” B . 在教师编号字段中输入“001” C . 在出生年月字段中输入“2006/13/30” D . 在专业字段中输入“计算机科学与技术”
电视台播放新闻:因雨雪天气,贵州省内多条高速公路被封。这条信息的来源属于(     )
A . B . 事物 C . 电子媒介 D . 纸质媒介
在Word中,为实现下图电子作品中第二段文字分两列显示的制作效果,在制作的过程中可以使用的菜单命令是(   )

A . “格式”→“分栏” B . “格式”→“段落” C . “插入”→“图片” D . “格式”→“字体”
数字反转,下面程序的功能是:输入一个非负整数,将该数各个位上数字反转得到一个新数。新数也应满足整数的常见形式,即除非给定的原数为零,否则反转后得到的新数的最高位数字不应为零。如输入120,反转后输出21,程序运行时,在文本框Text1中输入反转前的数字,单击“反转”按钮后,在文本框Text2中显示反转后的数字。程序运行效果如图所示。

为实现上述功能的程序如下,请在程序划线处填入合适的代码。

Private Sub Command1_Click()

    Dim a As String

    Dim n As Integer

    a = Text1.Text

    n = Len(a)

    Do While   ①    and Mid(a, n, 1)="0"

        n = n - 1

    Loop

    For i = n To 1 Step -1

        Text2.Text = Text2.text +     ②    

    Next i

End Sub

  1. (1) 划线①处应填入的语句为:
  2. (2) 划线②处应填入的语句为:
使用GoldWave软件打开某音频文件,选中其中一段音频后的部分界面如图所示。

下列说法正确的是(  )

A . 执行“插入静音”命令,音频文件大小不变 B . 单击“删除”按钮后,右声道时长变为40秒 C . 单击“剪裁”按钮后,选中音频部分前移至开头 D . 执行“另存为”命令可以降低采样频率
OCR(Optical Character Recognition)又称(  )。
A . 语音输入 B . 手写输入 C . 光学字符识别 D . 语言输入
下列学派中,不属于人工智能学派的是(    )
A . 符号主义 B . 机会主义 C . 联结主义 D . 行为主义
下列关于计算机信息编码的描述,正确的是(  )
A . 8位二进制数的最大值是128D B . 处理码是计算机内部用于信息处理的汉字编码,也称为交换码 C . 数据具有冗余,所以可以被压缩,压缩是编码的过程 D . 16色位图的每个像素必须用16位二进制数进行编码
全国计算机等级考试在每年的12月15至12月29日期间接受报名,超过时间不再受理;这说明信息具有(   )   
A . 价值性 B . 载体依附性 C . 时效性 D . 共享性