二一教育旗下产品
当前位置:手动组卷 /高中信息技术 /按章节
最新上传 最多使用
  • 1. (2022·绍兴模拟) 下列关于信息安全的说法,不正确的是(    )
    A . 使用自己的生日作为密码既方便又安全 B . 随意连接公共场所的Wi-Fi网络存在安全风险 C . 随意扫描二维码安装手机APP存在安全风险 D . 网上银行支付时通过U盾进行验证,可以提高安全性
  • 1. (2022·绍兴模拟) 下列关于计算机信息编码的描述,正确的是(    )
    A . 汉字的输入码不是唯一的,常见的有音码、形码等 B . ASCII 码在计算机中存储时占8位,共有256个ASCII字符 C . 用视频处理软件把AVI格式视频转为MPEG格式的过程是无损压缩 D . 若两位十六进制数的首位不为“0”,末位为“0”,则其一定大于十进制数16
  • 1. (2022·绍兴模拟) 下列VB表达式的值为True的是(    )
    A . "9"< "10" B . 2021 Mod 100\ 10= 2 C . Len("12" + "3")= 3 D . Int(-4.1)=-4
  • 1. (2022·绍兴模拟) 一个序列经过一趟冒泡排序后的结果是:10,21,13,24,28,则原始序列不可能是(    )
    A . 21,13,24,28,10 B . 21,10,24,28,13 C . 21,10,24,13,28 D . 21,24,13,28,10
  • 1. (2022·绍兴模拟) 有如下VB程序段:

    Dim a(0 To 10) As String

    s= Text1.Text

    a(0)= "": a(1)= Mid(s, 1, 1):t= 1

    For i= 2 To Len(s)

         If t>= 1 And Mid(s, i, 1)= a(t) Then

             t=t- 1

         Else

             t=t+ 1: a(t)= Mid(s, i, 1)

         End If

    Next i

    运行程序段,在文本框Text1中输入以下字符串,运行后变量t的值与其它三项不同的是(    )

    A . AABAB B . AAABA C . BAABA D . BBABA
  • 1. (2022·绍兴模拟) 小李收集了2021 浙江GDP排名前20的区县(市)数据,并使用Excel软件对数据进行处理,如图a所示。

    请回答下列问题:

    1. (1) 若将G3单元格中的公式复制粘贴到E3单元格,则E3单元格中显示 (单选,填字母:A.0/B.#VALUE! /C.#DIV/0!)。
    2. (2) 区域K3:K9的数据是通过公式计算得到的,在K3单元格中输入公式,再使用自动填充功能完成区域K4:K9的计算(提示:公式“=COUNTIF(B2:B5,J3)”统计区域B2:B5中值等于J3单元格值的单元格个数)。

      2021年各城市拥有GDP前20区县个数

    3. (3) 为了直观反映2021年各城市拥有GDP前20区县的个数,根据图a中的数据创作的图表如图b所示。综合图a和图b,下列说法正确的有         (多选,填字母)。

  • 1. (2022·绍兴模拟) 使用如图a所示的九宫格键盘输入单词,每个单词对应一个按键组合,如“tree对应的按键组合为“8733”;而按键组合“8733”对应的单词有“tree”、“used”等。抽取n个英文单词(可重复),使用九宫格键盘输入,统计最频繁使用的按键组合。

    编写VB程序,实现上述功能。运行程序,在列表框List1中显示n个英文单词(单词仅由小写字母组成且字母个数至少为1),单击“统计”按钮Command1,在列表框List2升序显示全部单词的按键组合,在文本框Text1中显示最频繁使用的按键组合,若有多个,则全部输出。程序运行界面如图b所示。

    1. (1) 下列类中生成的对象具有Text属性的是 (单选,填字母: A . Label / B . TextBox/ C . CommandButton )。
    2. (2) 实现上述功能的部分VB程序如下,请在划线处填入合适的代码。

      'n为常量,代码略

      Dim a(1 To n) As String       '数组a存储所有单词

      Dim b(1To2*n) As String       '数组b存储转换后的按键组合

      Private Sub Form_ Load()

          '读取所有单词存入数组a,并显示在列表框List1中

          '初始化数组b各元素为空字符串,代码略

      End Sub

      Private Sub Command1_Click()

          Dim i As Integer, j As Integer, k As Integer, p As Integer, max As Integer

          Dim m As Integer, key As String, t As String, s1 As String, s2 As String

          key= 222334455566677889999      'key 表示a-z各个字母所对应的键盘数字

          max=0

          '以下代码实现将数组a中的每个单词转化成按键组合,并依次存入数组b中

          For i= 1 To n

              t= ""

              For j= 1 To Len(a(i))

                  m = Asc(Mid(a(i), j, 1))- Asc("a")

                  t=

              Next j

              b(i)= t

          Next i

          '以下代码实现对数组元素b( 1)~b(n)升序排序

         

          Do While i>=1

              For j= 1 To i

                  If b(j+ 1)< b(j) Then

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

                  End If

              Next j

              i=i- 1

          Loop

          '将排序后数组元素b(1)~b(n)显示在列表框List2中,代码略

          s1= b(1)

          p=n+ 1

          i= 1:j= 2

          Do While j<= n      '从数组元素b(n+1)开始存储最高频次的按键组合

              s2 = b(j)

              If s1 < s2 Then

                  If  Then

                     max=j-i

                     p=n+ 1

                     b(p)=s1

                  Else If max=j- i Then

                      p=p+ 1

                      b(p)= sl

                  End If

                  s1= s2

                 

              End If

              j=j+ 1

          Loop

          t=""

          If max<j- i Then

              t= s1

          Else

              For k=n+ 1 To p

                  t=t+ b(k)+" "

              Next k

              If max=j- I Then t=t+" "+s1

          End If

          Text1.Text= "最频繁按键组合为: " &t

      End Sub

    3. (3) 程序中加框处代码有错,请改正。
  • 1. (2022·绍兴模拟) 某算法的部分流程图如图所示。执行这部分流程,则输出s的值是(    )

    A . 52 B . 74 C . 80 D . 82
  • 1. (2022·绍兴模拟) 某对分查找算法的VB程序段如下:

    Key = Val(Text1.Text)

    i= l:j= Key

    Do While i<= j

         m=(i+j)\2          '①

         If Key=m*m Then Exit Do 'Exit Do表示退出循环

         If Key>m* m Then i=m+ 1 Else j=m- 1

    Loop

    If i> j Then

         Label1.Caption= Key & "不是完全平方数"

    Else

         Label1.Caption= Key & "是完全平方数"

    End If

    运行该程序段,在文本框Text1中输入15,运行后①处语句的执行次数是(    )

    A . 3 B . 4 C . 5 D . 6
  • 1. (2022·绍兴模拟) 有n册图书已按图书编号升序排列(编号互不重复,用7位长度的字符串表示)。经过多次借阅归还之后,部分图书顺序被打乱,现要找出这部分图书进行调整,以使整体升序。算法思想:先找到首尾两个图书编号升序区间,再处理得到待调整区间,最后对该区间中的图书编号排序。

    编写VB程序,实现上述功能。运行程序,在列表框List1中显示全部图书编号。单击“整理”按钮Command1,在标签Label1中显示待调整区间图书的册数,在文本框Text1中显示待调整区间图书的起止编号,并在列表框List2中显示排序后的图书编号。程序运行界面如图所示,其中①和②两处分别指向待调整区间图书的起始和截止编号。

    1. (1) 如图所示,若采用选择排序算法,仅将待调整区间图书进行升序排序,排序过程结束后,数组元素之间的比较次数为(填数字)。
    2. (2) 实现上述功能的部分VB程序如下,请在划线处填入合适的代码。

      'n是常量,代码略

      Dim a(0 To n) As String

      Private Sub Form_ Load()

          a(0)= "”

          '将n册图书的编号存入数组元素a(1)~a(n),在List1中显示,代码略

      End Sub

      Private Sub Command1_ Click()

          Dim i As Integer, k As Integer, left As Integer, right As Integer

          Dim min As String, max As String

          min= ": max= ": left= 1: right= 0

          For i= 1 To n- 1

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

                  max = a(i)

                  left= i: Exit For

              End If

          Next i

          For i=n To 2 Step-1

              If  Then

                 min= a(i)

      right= i: Exit For

              End If

          Next i

          i= left

           Do While i <= right

              If a(i)> max Then

                max = a(i)

              ElseIf a(i) < min Then

                  min= a(i)

              End If

             i=i+ 1

          Loop

          k=0

          If left < right Then

              left = getPos(1, left, min)

             

               k= right- left+ 1

      Text1.Text= "待调整区间图书起始编号: " + a(left) + "-->截止编号: "+ a(right)

          End If

      Label1.Caption = "待调整区间图书共有:" + Str(k) + "册"

          '对待调整区间的图书编号进行排序,在List2中输出整理结果,代码略

      End Sub

      Function getPos(head As Integer, tail As Integer, value As String) As Integer

          Dim i As Integer

          i= tai1

          Do While

              i=i- 1

          Loop

          getPos=i+ 1

      End Function

1 2 3 4 5 下一页 共1000页