ZUJUAN.COM组卷网基于海量中小学题库的在线组卷网站
当前位置:手动组卷 >高中信息技术 >按章节
时间 使用次数
过滤已使用的试题 vip
防超纲选题 vip
  • 1. (2021·浙江模拟) 使用Access软件打开某数据库,部分界面如图所示,下列说法正确的是(    )

    A . Access是常用的小型数据库应用系统 B . Access无法存储图片 C . 添加一条新记录,其“收藏日期”字段可能显示为“2001年4月5日” D . Access中“是否借出”字段在导出到Excel时值会显示TRUE或FALSE
  • 1. (2021·浙江模拟) 用Photoshop软件制作“最美逆行者”作品,部分界面如图所示,下列说法不正确的是(    )

    A . 可将“武汉”图层的图层样式拷贝到“病毒2”图层 B . 可在“背景”图层中用“画笔”工具直接绘制图像 C . 当前状态下,“武汉”图层仅显示“投影”和“外发光”效果 D . 可用“自由变换”命令将“病毒2”图层中的病毒缩小到原来的50%
  • 1. (2021·浙江模拟) 下列应用中,没有体现人工智能技术的是(    )
    A . 某综艺节目中能和人智能对话的虚拟机器主持人 B . 某线上购物软件可以采用指纹识别支付 C . 通过在线翻译软件将外文网站内容自动翻译成中文 D . 用户在家中通过佩戴特殊的设备体验刺激的过山车
  • 1. (2021·浙江模拟) 小张收集了某校图书馆借阅排行TOP300的相关数据,并用Excel软件进行处理,如图a所示:

    图a

    1. (1) 为计算图a中的“流通次数”和“预约次数”,小张已利用公式正确计算了“流通次数”,他希望通过修改K3单元格的公式,利用自动填充得到“预约次数”L3:L7区域中正确的数据,则单元格K3中的公式应修改为________。(提示:SUMIF函数用于求满足条件的单元格之和,例如=SUMIF(E3:E302,J3,G3:G302)用于求单元格区域E3:E302中与单元格J3中值相等的对应单元格区域G3:G302中的值之和。)
    2. (2) 根据图a中数据制作了图表如图b所示,则创建图表的数据区域________。

      图b

    3. (3) 根据图a所示,下列说法正确是           (多选题)
  • 1. (2021·浙江模拟) “一笔画游戏”是指图上的所有边有且仅经过一次刚好将整个图描完。一般图由点和边组成,一条边连接两个点,一个点可以连接多条边。若某点连接的边数是奇数,则被称为奇点,反之称为偶点。如图a图中A点连接的边有3条,A点就是奇点,B点连接的边为2条,B点就是偶点。如果图中存在0个奇点或2个奇点,则能被一笔画成,否则就不能。如图a图中奇点数为2个,可以一笔画成;如b图中奇点数为4个,不可以一笔画成。

    现有VB程序用于判断某图能否一笔画成,若能,则通过穷举边的顺序来找到一种合法的路径。如c图有三条边,第1条由①②相连,第2条由④③相连,第3条由③②相连,若边的顺序231就是其中一种合法的边的顺序,代表先描第2条边,再描第3边,最后描第1条边,对应的路径④→③→②→①。在程序运行过程中,在文本框Text1中输入点的个数n,表示图中有n个点编号为1~n。在文本框Text2中输入若干点的编号,每两个点代表一条边(保证输入为偶数个点),以“,”开头,点击“一笔画”按钮Command1后,在Label3中输出结果,在若能一笔画成,则输出一条路径,否则,提示“无法一笔画!”。程序界面如c图:

    c图

    1. (1) 在Text1中输入“4”,在Text2中输入“,2,3,1,2,2,4”。则Label3输出结果是________。
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适的代码。

      Dim n As Integer, t As Integer, m As Integer, I As Integer, j As Integer

      Dim ans As Integer, u As Integer, st As Integer, p As Long

      Dim a(21) As Integer, b(11) As Integer, f(11) As Integer

      Dim c(11)As Integer       '用于存储构成一笔画各边的序号

      Dim s As String, ss As String

      Private Sub Command1_Click()

          n= Val(Text1.Text)

          s= Text2.Text: t= 0

          For j= 1 To Len(s)

              ch = Mid(s, j, 1)

              If ch = "," Then

                  b(a(t)) = b(a(t)+1

                  t=t+1

                  a(t)= 0

              Else

                  a(t)= a(t)*10 + Val(ch)

              End If

          Next j

          ________: m=t\2: ans=0

          st= 1

          For i= 1 To n

              If b(i) Mod 2=1 Then ans = ans+ 1: st=i

          Next i

          If ans=0 Or ans=2 Then

              For p=1 To m^m    '穷举边的顺序

                  If try(p) Then

                      u= st: ss = Str(u)

                      For j=1 To m

                          If (a(c(j)* 2)<>u) And (a(c(j)*2-1)<>u) Then Exit For

                          If________ Then u= a(c(j)*2- 1) Else u=a(c(j)*2)

                          ss=ss +"->"+ Str(u)

                      Next j

                      If j> m Then Exit For

                  End If

              Next p

          Else

              ss="无法一笔画!"

          End If

          Label3.Caption=ss

      End Sub

      Function try(x As Long) As Boolean      '生成边的访问顺序,并判断有无重复的边

          Dim k As Integer, y As Long

          y=x

          For k=1 To m

              c(k)=y Mod m+1: y-y\m

              If f(c(k)) = x Then Exit For

              ________

          Next k

          If k> m Then try=True Else try = False

      End Function

  • 1. (2021·浙江模拟) 果园里有n堆果子放在地上,现要将所有果子合并成一堆。每次只能合并两堆果子,消耗的体力等于两堆果子的重量之和。显然,n堆果子需要经过n-1次合并。合并果子的过程中总共消耗的体力等于每次合并所耗体力之和。为了尽可能地节省体力,我们每次都选择重量最小两堆进行合并。例如,有三堆果子,重量依次为1,2,9。可以先将1、2堆合并,新堆重量为3,耗费体力为3。接着,将新堆与原先的第三堆合并,又得到新的堆,重量为12,耗费体力为12。所以总共耗费体力为3+12=15。可以证明15为最小的体力耗费值。

    编写VB程序,实现上述合并功能。运行程序时,将n堆果子的重量从数据库读入到a数组。单击“合并”按钮Command1后,在文本框Text1中输出最小的体力耗费值。请回答下列问题:

    1. (1) 若要清空文本框Text1中的内容,能实现该功能的语句是________(单选,填字母:A .Text1.Caption=“”/B .Text1.Clear/C .Text1.Text=“”)。
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适的代码。

      Private Sub Form_ Load( )

      ‘将n堆果子的重量从数据库导入到数组a,代码略。

      End Sub

      Private Sub Command1_Click( )

          Dim f As Boolean

          Dim last As Integer

          Dim a(1 To n) As Integer

          i= 1

          Do While i<n And Not f

              f=True

              For j=n To i+1 Step-1

                  If a(j)<a(j- 1) Then

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

                      last= j

                      f= False

                  End If

              Next j

             

          Loop

          For i= 1 To n-2

              tmp=a(i)+a(i+1)

              j=________

              Do While a(j)< tmp

                  a(j-1)= a(j)

                  j=j+1

                  If j=n+ 1 Then Exit Do

              Loop

              ________

              Min=Min+tmp

          Next i

          ________

          Text1.Text = Min

      End Sub

    3. (3) 程序中加框处代码有错,请改正。
  • 1. (2021·浙江模拟) 某算法的流程图如图所示,执行完该流程图后输出结果可能的是(    )

    A . 0 0 0 0 0 0 B . 2 4 2 5 2 8 C . 6 10 8 12 6 8 D . 10 22 14 16 18 12
  • 1. (2021·浙江模拟) 下列四段VB程序执行后运行结果与其余三个选项不相同的是(    )
    A . B . C . D .
  • 1. (2021·浙江模拟) 由大写字母组成的长度相同的两个字符串s1和s2,若所含各字母数量相等则可以归为一类。如“ABDAC”与“AABCD”归为一类,与“AABBC”不可以归为一类。实现该功能的VB程序段如下:

    Dim s1 As String, s2 As String, a As Integer, i As Integer, b(1 To 26) As Integer    'b数组初值均为0

    s1 = Text1.Text: s2 = Text2.Text

    For i= 1 To Len(s1)

        a= Asc(Mid(s1, i, 1))-65+ 1

          ⑴  

    Next i

    For i= 1 To Len(s2)

        a= Asc(Mid(s2, i, 1))-65+ 1

          ⑵  

    Next i

    For i= 1 To 26

        If   ⑶   Then Exit For

    Next i

    If   ⑷   Then Label1.Caption = "能归为一类" Else Labl1.Caption= "不能归为一类"

    填空处的代码可以由以下部分组成:

    ①b(a)=b(a)+1  ②b(a)=b(a)-1  ③b(i)<>0  ④b(i)=0  ⑤i<=26  ⑥i>26

    代码顺序正确的是(    )

    A . ①②③⑤ B . ①②④⑥ C . ②①③⑥ D . ②①④⑤
  • 1. (2021·浙江模拟) 下列关于信息与信息技术的说法,正确的是(    )
    A . 信息必须依附于某种载体,因此其表现形态不可以转换 B . 信息具有载体依附性,所以信息不能脱离它所反映的事物进行传播 C . 信息的载体可以是文字,也可以是图像、声音等 D . 信息技术是计算机对信息进行采集、处理、传输、存储、表达和使用的技术
1 2 3 4 5 下一页 共1000页