相关试卷

  • 1、若要把《动物图谱》中华南虎的图片保存计算机中,下列设备合适的是(    )
    A、数码相机 B、打印机 C、键盘 D、鼠标
  • 2、下列关于获取信息的途径的描述,不正确的是(    )
    A、通过电视可以收看体育赛事 B、通过电话可以获取气象信息 C、通过收听广播可以了解新闻 D、只能通过因特网获取信息
  • 3、信息技术主要包括通信技术、传感技术、微电子技术和(    )
    A、医疗技术 B、勘探技术 C、计算机技术 D、生物工程技术
  • 4、智能手机的应用处于信息技术发展历程的(   )
    A、第二次革命时代 B、第三次革命时代 C、第四次革命时代 D、第五次革命时代
  • 5、南方中学要组织义务植树活动。同学们通过网上搜索,获得“3月12日是植树节”、“根据南方的气候条件,三、四月份植树最有利于树苗的生长”等信息,从而确定了植树的日期。这件事说明信息具有(    )
    A、共享性和价值性 B、共享性和真伪性 C、价值性和真伪性 D、时效性和真伪性
  • 6、以下哪个是信息?(    )
    A、黑板 B、报纸 C、天气预报 D、太阳光
  • 7、用VB编写的英文单词字频统计程序如图所示,在文本框Text1中输入文章,单击“统计”按钮Command1,在列表框List1输出单词与频次,在标签Label2中输出频次最高的单词,如频次最高的单词有多个,则输出时用逗号分隔。算法如下:

    1)将文本框Text1中的文章保存到字符串变量s中。

    2)从左往右扫描字符串s,用字符串word存储文章中依次出现的单词,将新出现的单词自动加入单词队列dic(i)中,单词出现的频次记录到对应的num(i)中。

    如下方法扫描:

    ①从左往右扫描,当扫描到第i个字符时,如果是字母,继续扫描,否则,跳转到②,直至扫描结束;

    ②将b到i-1组成一个单词word,查询单词字典dic判断是否存在,如果不存在,将新单词插入单词字字典尾部dic(k),并且记录单词频次num(k)为1,如果dic字典中存在单词word,那么该单词对应频次增加1,再跳转到①。

    (1)、在列表框List1中依次输出单词与频次,在标签Label2中输出频次最高的单词。实现上述功能的VB程序如下,请在划线处填入合适的代码。

    Private Sub Command1_Click()

        Dim dic(1 To 10000) As String    '存储自建单词字典

        Dim num(1 To 10000) As Integer    '存储单词出现的频率

        Dim word As String, c As String, s As String, slen As Integer

        Dim i As Integer, j As Integer, di As Integer, k As Integer

        Dim nummax As Integer     '记录最高的单词频率

        Dim result As String     '存储出现频率最高的单词串

        s = Text1.Text: slen = Len(s)

        j = 0    '存储每个单词的长度

        k = 1    'k-1 为当前单词字典长度

        nummax = 0

        For i = 1 To 10000    '初始化单词字典频次

            num(i) = 0

        Next i

        i = 1

        Do While i <= slen

            

            If c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then j = j + 1

            Else

                If j <> 0 Then

                    word = LCase(Mid(s, i - j, j))    'LCase()函数功能:单词统一为小写

                    di = 1

                Do While word <> dic(di) And di < k

                    di = di + 1

                Loop

                If di = k Then    '单词字典插入新单词

                    dic(k) = word

                    num(k) = 1

                     

                Else

                     

                End If

                '单词在单词字典中已存在,对应频次加1

                If num(di) > nummax Then nummax = num(di)

                j = 0

                End If

            End If

            i = i + 1

        Loop

        result = ""

        For j = 1 To k - 1

            List1.AddItem dic(j) + "" + Str(num(j))

            If  Then

                If result = "" Then

                    result = result + dic(j) Else

                    result = result + "," + dic(j)    '如出现频率最高的单词有多个,则用逗号分隔

                End If

            End If

        Next j

    Label2.Caption = "出现频率最高的单词是:" + result

    End Sub

    (2)、根据本题算法如图所示,若在Text1中将文章最后一行“so you must know how to use it.” 改为“so you must know how to use it3.”,单词统计结果(选填:会/不会)产生变化。

  • 8、已知数组a中的元素按非递减有序排列,在程序运行时显示在Text1中。编写程序实现如下功能:删除数组的重复元素,并更新数组的长度,在Text2输出新的数组元素值。程序运行界面 如图所示。

    (1)、要是程序运行时,窗体Form1标题立即立即显示为“删除重复数组元素”,可在(单 选:A .Form_Load()/B .Form_click()/C .Command1_Click())事件过程中添加Form1.Caption=“删除重复数组元素”语句来实现。
    (2)、为实现上述功能的VB程序如下,请在划线处补充缺失的代码。

    Const n = 20

    Dim a(1 To n) As Integer

    Dim lena As Integer    '数组a的实际长度 Dim s As String

    Private Sub Form_Load()

        '生成lena个非递减序列,并输出到文本框text1中,代码略

    End Sub

    Private Sub Command1_Click()

        Dim i As Integer, j As Integer i = 1

        Do While i < lena

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

            Else

                For j = i + 1 To lena

                    a(j - 1) =  

                Next j

                lena =  

            End If

        Loop

        s = ""

        For i = 1 To lena

            s = s + Str(a(i))

        Next i

        Text2.Text = s

    End Sub

  • 9、小李制作了主题为“杭州亚运会”的多媒体作品,首先用 Photoshop 软件处理了图片, 然后使用 Flash 软件制作动画。请回答下列问题:
    (1)、如图a所示,下列说法正确的是()(多选,填字母:A .可以通过“填充”命令更改图层“Hangzhou 2022”的文字颜色/B .“背景”图层一定没有添加了“高斯模糊”的滤镜效果C .调整“场馆”和“背景”的图层顺序,场馆图像将不可见/D .将该图像文件保存为“a.jpg”,则“Asian Games”文字上的“外发光”效果不可见/E.无法直接删除“场馆”图层)

    图a

    (2)、将动画GIF文件“闪烁.gif”导入库中产生一个影片剪辑元件,则该元件中动画的动 画类型是(单选,填字母:A .逐帧动画/B .形状补间动画/C .动画补间动画)
    (3)、影片剪辑元件“礼花”的编辑界面如图b 所示。若在不改变其他动画效果的情况下,希望礼花的动画速度提高一倍,下列操作可行的是(单选,填字母:A .将帧频 改成 6fps/B .删除第11-20帧/C .将20帧移动至第 10 帧,并删除 11-20 帧)

    图b

    (4)、如图c所示,按钮一开始就出现,若要使按钮直到最后才出现,则应如何操作

    图c

    (5)、测试影片时,动画播放到最后,停止。按钮出现,单击按钮,将停止声音(声音设置如图d所示),并打开 http://www.hangzhou.net网页。那么按钮上的动作命令是

    图d

  • 10、小张收集了2018年和2019年浙江省文化和旅游厅收入和支出情况的信息,用Excel软件进行了数据处理,如图1所示,请回答下列问题:

    图1

    (1)、区域E3:E15的数据是通过公式计算得到的,在E3单元格输入公式后,用自动填充功能完成E4:E15的计算,则E8中的公式是
    (2)、若要对浙江省文化和旅游厅的支出预算按照2019年的数据进行降序排序,则应选择的排序数据区域为
    (3)、选中图1中A1:E9的数据区域复制粘贴到新工作表中A1开始的位置,在新工作表中对“2018年”和“2019年”设置的筛选条件如图2所示,则按此设置筛选出的项目有条。

    图2

    (4)、小张根据图1中数据直接制作了如图3所示的图表,创建图表的数据区域为

    图3

  • 11、有如下程序段:

    Dim i As Integer, Sum As Integer

    Dim a(1 To 11) As Integer

    Sum = 6

    a(11) = 49

    For i = 10 To 1 Step -1

        a(i) = a(i + 1) - 1

        If a(i) Mod 3 = 0 Then Sum = Sum + a(i)

    Next i

    Text1.Text = Str(Sum)

    该程序段运行后,文本框text1中显示的内容是(   )

    A、174 B、180 C、36 D、42
  • 12、下列VB语句可以产生10到99之间(包含10和99)随机整数的是(    )
    A、Int(Rnd()* 100) B、Int(Rnd ()* 89 )+10 C、Int(Rnd ()* 90)+10 D、Int(Rnd()*91)+10
  • 13、某算法的部分流程图如图所示。执行这部分流程,若输入a的值为36,则输出c的值为(    )。

    A、2 B、3 C、4 D、5
  • 14、把一幅1024×768像素的24位彩色BMP图像存储为JPG格式,存储后容量为460KB,则图像压缩比约为
    A、5:1 B、10:1 C、20:1 D、40:1
  • 15、某ACCESS数据表设计视图的部分界面如下图所示。下列说法正确的是(    )

    A、该数据表的名称为“注册用户信息表” B、数据表视图下,可以在“性别”字段输入“男性” C、“2018年1月1日”可以是“出生年月”字段的有效输入值 D、除“ID”字段的字段值不允许重复外其余字段的字段值都允许重复
  • 16、用 UltraEdit 软件观察字符串“ 方程 x1+y2 = 10” 的内码,部分界面如图所示。

    下列说法正确的是 (    )

    A、字符“10”的二进制编码为 0100 0000B B、图中有9个ASCII编码,有4个字节的GB2312编码 C、字符“y”的内码是79H,则字符“z”的内码是80H D、小写字母和大写字母内码相差32D,则“Y”的内码为47H
  • 17、小张使用Word软件编辑某文档,部分界面如图所示。

    下列说法正确的是 (    )

    A、图中图片的环绕方式一定不是“ 嵌入型” B、在光标所在处按“ Delete” 键,可以删除“ 曹娥江与甬江” 下方的波浪线 C、接受所有修订后,图中文字变为“ 天台山( tiān tāi shān) 位于中国浙江省天台县城北” D、可使用查找替换功能将文档中的所有的“ 天台山” 一次性加粗显示,这采用了人工智能技术
  • 18、下列有关网页与浏览器的说法,正确的是(    )。
    A、使用搜索引擎对相同关键词检索两次,得到的结果一定相同 B、用HTML(超文本标记语言)可以描述网页中的文本、图像和超链接等元素 C、在IE浏览器中,使用“添加到收藏夹”功能可以保存正在浏览的网页内容 D、在IE浏览器中,以“文本文件(*.txt)”类型保存网页,可以保存网页中的超链接地址
  • 19、下列有关信息的说法,不正确的是(    )
    A、信息可以被加工处理 B、计算机中的信息是以二进制的形式存储的 C、信息可以在不同形态间转化 D、电影技术、微电子技术和通信技术都是现代信息技术
  • 20、一张骨牌由上下两行共四个格子构成,每个格子有一个1到6之间的数字。现在一共有5张骨牌,从左到右排成一排,定义每张骨牌的差值为:骨牌第一行的数字和减去第二行的数字和;5张骨牌的差值为:每张骨牌的差值和的绝对值。

    如图a中,5张骨牌的差值为:|(3+3-4-4)+(6+3-2-5)+(2+3-4-5)+(1+5-3-3)+(1+1-1-1)|=4。

    每张骨牌都可以顺时针旋转90度,效果如图b所示。现在最多可以选择其中一张骨牌进行旋转,使得旋转后的骨牌差值变小。求一种旋转方案,并输出骨牌差值的最小值。

    图a

    图b

    编写VB程序,实现上述功能。运行程序,在文本框Text1中依次输入5张骨牌上的数字,单击“计算”按钮Command1,在文本框Text2、Text3、Text4中输出结果。程序运行界面如图b所示。

    (1)、若图a中第1张骨牌的数字修改为,1、2、6、6,则骨牌差值的最小值为
    (2)、实现上述功能的VB程序如下,请在划线处填入合适的代码。

    Dim a(1 To 20) As Integer     ‘依次存储5张骨牌上的数字

    Dim d(1 To 5) As Integer       ‘依次存储5张骨牌,上下两行的差值

    Const n = 5

    Private Sub Form_Load()

    '从文本框Text1读取5张骨牌上的数字,依次存入数组a

    'a(1)~a(4)依次存储第一张骨牌从左到右从上到下四个数字

    'a(5)到a(20)依次类推

    '代码略

    End Sub

    Private Sub Command1_Click()

        Dim i As Integer, up As Integer, down As Integer, t As Integer, k As Integer

        Dim id As Integer, times As Integer, x As Integer, ans As Integer

        For i = 1 To n

            up = a(4 * i - 3) + a(4 * i - 2)

            down = a(4 * i - 1) + a(4 * i)

            d(i) = up - down

            t = t + d(i)

        Next i

        id = 0 : times = 0

        ans =

        If ans <> 0 Then

            k = 1

            Do While k <= n

                For x = 1 To 3

                    temp =

                    If temp < ans Then

                        ans = temp

                        id = k

                        

                    End If

                    If temp = 0 Then Exit Do

                Next x

                k = k + 1

            Loop

        End If

        Text2.Text = CStr(id)

        Text3.Text = CStr(times)

        Text4.Text = CStr(ans)

    End Sub

    Function turn(ByVal k As Integer, ByVal x As Integer) As Integer

        ‘求将第k张骨牌,顺时针旋转x次后,上下两行的差值,代码略

    End Function

上一页 694 695 696 697 698 下一页 跳转