相关试卷

1、某算法的部分流程图如图所示。执行该流程，输出s的值约为（）

A、0 B、1 C、2 D、3

查看解析
2、使用Access软件打开数据库，部分界面如图所示。下列说法正确的是（）

A、数据库应用系统是按照用户需求而设计的数据库和配套的应用程序系统 B、当前正在使用Access数据库管理系统对“学生信息”数据库进行数据管理 C、若“ID”字段是主键字段，则无法删除此字段，也无法更改名称 D、更改“卡内余额”字段的数据类型为“数字”格式，则卡内余额会丢失

查看解析
3、用Word软件编辑某文档，如图所示，下列说法正确的是（）

A、文中的图文混排效果属于“四周型”环绕方式 B、文中批注的对象为“西湖十景之一” C、第3行部分文字下方的波浪线是拼写或语法检查的结果 D、当前状态下选择“拒绝修订”，第一句变为“雷峰塔建造于997年”

查看解析
4、下列有关信息与信息技术的说法，正确的是（）

A、数字、文字、图片、视频等都是信息 B、信息必须依附于载体，是不能脱离它所反映的事物而被保留下来 C、物联网是独立于互联网的网络技术，实现万物互联 D、现代信息技术主要支柱是通信技术、计算机技术和传感技术等

查看解析
5、在数组a中按顺序找出一组升序子序列，可以不连续，但要求长度最长。例如：数组a的值分别为2,11,4,13,5,7。升序子序列分别有[2,11]、[2,4]、[2,11,13]、[2,4,13]、[2,4,5]、[2,4,5,7]、[11,13]、[4,13]、[4,5]、[4,5,7]、[5,7]，其中最长升序子序列的数据是2,4,5,7。
算法思路如下：

1）求以a(i)为结尾元素的最长升序子序列时，找到所有序号j(j=1,2……i-1)，且a(j)<a(i)。

如果这样的元素存在，且d(j) >= d(i)（d(i)记录i位置的最长升序子序列长度），那么就增加i 位置的最长升序子序列长度，并记录该升序子序列倒数第二个位置。

2）在d 数组中找出最大值，即最长升序子序列长度。

3）例如，2、11、4、13、5、7，d(1)=1,d(2)=2,d(3)=2,d(4)=3,d(5)=3,d(6)=4，所以最长升序子序列长度为4，是以a(6)为结尾元素。

现设计了如下VB 程序，界面如图所示，请回答下列问题：

(1)、观察上图，最长升序子序列的数据是。

(2)、请在划线处填入合适的代码。
Const n = 9

Dim a(1 To n) As Integer

Private Sub Form_Load()

    '生成n个[1,10]范围的随机数，存储在a 数组，并显示在列表框List1。代码略

End Sub

Private Sub Command1_Click()

    Dim d(1 To n) As Integer     '记录i位置的最长升序子序列长度

    Dim pre(1 To n) As Integer    '记录i结尾的最长升序子序列前一数据的位置

    Dim st As String, i As Integer, k As Integer, maxlen As Integer

    For i = 1 To n

        d(i) = 1

    Next i

    For i = 2 To n

        For j = 1 To i - 1

            If a(j) < a(i) And d(j) >= d(i) Then

                d(i) =

                pre(i) = j

            End If

        Next j

    Next i

    maxlen = 0 : k = 0

    For i = 1 To n

        If Then maxlen = d(i) : k = i

    Next i

    Do While k <> 0

        st = a(k) & "," & st



    Loop

    Text1.Text = Mid(st, 1, Len(st) - 1)

End Sub

查看解析
6、数组a 中存储的是左右交替上升的n个正整数，如下表所示：

a(1)

a(2)

a(3)

……

a(n-2)

a(n-1)

a(n)

3

25

38

……

55

31

12

依据对分查找思想，设计一个在数组a中查找数据key 的程序，实现该功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

    Const n = 6

    Dim a(1 To n) As Integer, flag As Boolean

    Dim i As Integer, j As Integer, m As Integer, key As Integer

    ‘读取一组正整数，按上述规则存入数组a中，代码略

    key = Val(Text1.Text)

    i = 1

    j = (n + 1) \ 2

    flag = False

    Do While And Not flag     ‘⑴

        m = (i + j) \ 2

        If key = a(m) Then

            flag = True

        ElseIf key < a(m) Then

            j = m - 1

        Else

            i = m + 1

        End If

    Loop

    If Not flag And j > 0 Then

        m =      ‘⑵

        If key = a(m) Then flag = True

    End If

    If flag Then

        Text2.Text = Str(m)

    Else

        Text2.Text = "找不到"

    End If

End Sub

⑴⑵

查看解析
7、小李同学制作关于“新春祝福”的多媒体作品。他首先使用Photoshop 软件制作一张背景图片，然后使用Flash 软件制作动画。请回答下列问题：

(1)、在当前状态下，若要使图1中的“猪年大吉”四个字出现在图2所示的作品中，下列操作可行的是（多选，填字母： A . 选中图1中的“背景”图层，执行“全部”选择、拷贝操作，在图2中进行“粘贴” / B . 将图1的“猪年大吉”图层直接通过鼠标拖拽到图2中/ C .用魔棒工具选中图1“猪年大吉”图层中的文字区域并进行拷贝操作后，在图2中进行粘贴/ D .选中图1的“猪年大吉”图层后，执行“全部”选择操作，并进行拷贝，在图2中进行粘贴。）

(2)、如图3所示，“文字”图层实现了从第1帧的“2019”字样变成第20帧的“学业进步”动画效果，并持续到第50帧，则该图层第1帧到第20帧的动画补间类为。

(3)、测试影片时，发现声音一开始就播放，当前状态下若要让声音推迟1秒播放，可进行的操作是。

(4)、“声音”图层的声音时长为10s，同步为“事件”，若要实现动画和声音在最后一帧同时停止，可在图层的最后一帧添加动作脚本。

(5)、将该作品按图4设置发布，生成的文件除了这两种格式的文件有交互功能外，还有格式的文件也具有交互功能。

查看解析
8、在一个数字字符串中，求最长连续递增序列的长度。例如，字符串“123423416789”，最长的递增序列为“16789”，长度为5。编写一个程序,功能如下：在文本框Text1中输入数字字符串，单击“计算”按钮Command1，在标签Label3中显示最长连续递增序列的长度。程序设计界面与运行界面如图所示。

(1)、要使程序运行时，按钮Command1 上的文字显示为“计算”，可在事件过程中添加语句Command1.Caption="计算"。
（单选，填字母：A . Command1_Click / B . Form_Load / C . Command1_DblCkick）。

(2)、实现上述功能的VB 程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()

    Dim s As String, max As Integer

    Dim t As Integer, i As Integer

    max = 0: t = 1

    s = Text1.Text

    i = 1

    Do While i <= Len(s) - 1

        If Val(Mid(s, i, 1)) < Then

            t = t + 1

        Else

            If t > max Then max = t



        End If

        i = i + 1

    Loop



    Label3.Caption = Str(max)

End Sub

(3)、如果删除加框处代码，并运行程序，在文本框Text1 中输入“123423416789”,单击“计算”按钮，则标签框Label3中显示的内容为。

查看解析
9、某校教务处汇总了选考模拟报考表，并使用Excel软件进行数据处理，部分界面如下图。请回答下列问题：

(1)、表中“学考门数”和“选考门数”是用COUNTIF函数计算得到的。分别选择I3、J3单元格输入公式，然后用自动填充功能完成其他单元格的计算。观察上图，可知J3单元格中的公式为。
（COUNTIF函数的作用是计算某个区域中满足给定条件的单元格个数，COUNTIF(B3:H3,"学考")的作用是计算数据区域B3:H3中内容为“学考”的单元格的个数。）

(2)、表中第13行姓名为“胡桐”的同学地理学考不考了，则清除D13单元格内容后，I13单元格显示的内容为（单选，填字母：A . 1 / B . #REF! / C . #VALUE ！）

(3)、表中E列数据错位了，即第3行应为第4行，第4行应为第5行……第15行应为第16行。现要将错位更正，则下列操作可行的是（多选，填字母。）

A、选择E3单元格，选择右键菜单“插入”命令，在弹出的对话框中选择“活动单元格下移” B、选择E3单元格，选择右键菜单“删除”命令，然后在弹出的对话框中选择“下方单元格上移” C、选择E3:E16单元格，执行“剪切”命令，然后选择E4单元格，执行“粘贴”命令 D、选择E3:E16 单元格，移动该区域至E4:E17 单元格

查看解析
10、有如下VB 程序段：
a(1) = 1: a(2) = 1: b(1) = 1: b(2) = 2

For i = 3 To 5

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

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

Next i

执行该程序段后，数组元素b(5)的值为（    ）

A、4 B、5 C、8 D、12

查看解析
11、未经压缩的BMP图像文件a.bmp和b.bmp，其参数分别为80万像素、256色和40万像素、16色，则图像文件a.bmp与b.bmp存储容量之比约为（）

A、4：1 B、8：1 C、16：1 D、32：1

查看解析
12、使用Flash 软件制作动画作品，部分编辑界面如下图所示。其中“蜻蜓”图层第40帧有动作命令gotoAndStop(“load”,10);“蜻蜓”图层利用“蜻蜓”元件实例制作了从左到右飞出舞台的动画效果；“声音”图层中声音的同步属性为“数据流”。下列说法不正确的是（）

A、“蜻蜓”元件的类型一定是“影片剪辑” B、当前状态下，可以在“背景”图层第15帧插入关键帧 C、测试场景时，播放到最后一帧，动画会自动跳转并停止在load场景第10帧 D、若要声音播放2秒后停止，可以在“声音”图层第25帧插入空白关键帧

查看解析
13、用Photoshop软件编辑某psd文件的界面如下图所示，下列说法正确的是（）

A、“NO SMOKING”图层添加了“挤压”滤镜效果 B、可用“自由变换”命令调整背景图层的大小 C、使用文本工具更改“禁止吸烟”文字大小，“NO SMOKING”文字大小一起改变 D、保存为jpg 格式后，“外发光”图层样式不可见

查看解析
14、编辑Access数据表“精品书籍表”（如图a所示），将Excel表（如图b所示）A2:F9区域数据复制到“精品书籍表”中，则正确的是（）

图a

图b

A、“出借否”字段打“√”记录有4条 B、“书籍编号”字段的值不能修改 C、《小妇人》所在记录的书籍编号为1 D、存储“出借否”字段数据类型需要1字节

查看解析
15、使用Word 软件编辑某文档，部分界面如下图所示。下列说法正确的是（）

A、文中有插入和删除两类修订 B、文中有一处拼写和语法检查提示 C、正文中鹳雀楼的图片版式为嵌入型 D、文中有用户为“V1”和“V2”的两处批注

查看解析
16、现需要对某企业大型招聘活动面试成绩进行排名，面试数据包含专业编号(整数，顺序编号)、专业名称、姓名(字母编写)和面试分。整理面试数据的要求是：先按专业编号从小到大排列；然后，同专业的面试者按面试成绩从大到小排列(同分同名次)。按上述要求，编写一个VB程序，功能如下：在列表List1中显示整理前的数据，单击“整理”按钮Command1，整理结果显示在列表框List2中，程序运行界面如图所示。

(1)、n个元素两两比较大小，需要比较的次数是

(2)、请在划线处填入合适的代码。
Const n=200      '报名人数

Const nz=10       '专业数

Dim zybh(1 To n) As Integer， zyname(1 To n) As String， sname(1 To n) As String， zymark(1 To n) As Integer

Dim b(1 To nz) As Integer           '存储每个专业的人数

Dim c(1 To nz) As Integer

Dim d(1 To n) As Integer

Dim q(1 To n) As Integer

Private Sub Form_ Load()

    '本过程读取专业编号、专业名称、姓名和面试分的数据分别存储在数组zybh，zyname，sname， zymark中，并在List1中显示，代码略

End Sub

Private Sub Command1_ Click( )

    Dim i As Integer， j As Integer， k As Integer， t As Integer， pos As Integer

    For i=1 To nz

        b(i)=0

    Next i

    For i=1 To n

        d(i)=0 ： q(i)=0

    Next i

    For i=1 To n

        k= zybh(i)

        b(k)=b(k) + 1

    Next i

    k=1

    For i=1 To nz

        c(i)=k



    Next i

    For i=1 To n-1

        For j=i+1 To n

           If zybh(i)= zybh(j) And zymark(i) < <> zymark(j) Then

               If Then

                   d(j)=d(j)+1

               Else

                   d(i)=d(i)+1

               End If

           End If

        Next j

    Next i

    For i=1 To n

        j=0

        Do While

            j=j+1

        Loop

        q(c(zybh(i))+d(i)+j)=i

    Next i

    For i=1 To n

        List2.AddItem "" & zybh(q(i)) & " " & zyname(q()) & " " & sname(q(i))& "" & zymark(q(i) & "" & d(q(i)) + 1

      Next i

End Sub

查看解析
17、某网站注册密码需要符合以下两点条件：①密码不少于4位字符组成；②必须同时包含4种字符，大写字母“A-Z”，小写字母“a-z”，数字“0-9”，特殊符号“！ @# $%~&．*”，为了方便批量注册，小迪同学编写了自动生成密码的VB程序，程序运行界面如图所示，当在文本框Text1中输人需生成密码长度，点击“生成密码”按钮(Command1)，在文本框Text2中输出符合要求的密码串。

(1)、下列对象不具有Caption属性的是(单选，填字母：A.Command1/B.Form1/C.Text1/D.Label1)

(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_ Click( )

    Dim a(0 To 4) As Integer， b(1 To 4) As Integer

    Dim key As String， s As String， n As Integer， k As Integer， i As Integer， j As Integer， sum As Integer

    key="ABCDEFGHJKIMNC)PQRSTUVWXYZabdefghijklmnopqrstuvwxyz0123456789！ @# $ %&．*"

    Randomize

    n= Val(Text1.Text)

    a(0)=0：a(1)=26 ：a(2)=52 ：a(3)=62：a(4)=70    '记录每种符号的结束位置

    s= ""

    For i=1 To 4

        b(i) =0      'b数组记录某类符号是否使用

    Next i

    sum=4           '当前未使用字符类型，初始为4种

    Do While Len(s)+sum< n

        k=       '随机选择一个密码序号

        s=s+ Mid(key， k， 1)

        i= 1

        Do While

            i=i+ 1

        Loop

        b(i)= 1

        sum=4-b(1)-b(2)-b(3)-b(4)

    Loop

    '生成剩余未出现元素密码，保证4种符号均有出现

    For i=1 To sum

      j=Int(Rnd*4)十1

        Do While ( )

            j=j Mod 4+1

        Loop

        b(j)=1

        k=Int(Rnd * (a(j)-a(j- 1)))+a(j-1)+1

        s=s+Mid(key， k， 1)

    Next i

    Text2.Text=s

End Sub

(3)、程序代码中的加框处代码有误，请改正。

(4)、如果文本框Text1中输入值2，文本框Text2中输出字符长度为(单选，填字母：A . 2/ B . 4 /C .运行错误/D .没有输出)

查看解析
18、使用Flash软件制作“流感常识宣传”动画：

(1)、创作多媒体作品需要进行需求分析和规划设计。下列属于应用需求分析的是(多选，填字母：A .了解用户的计算机应用水平/B .考虑作品创作及运行需要的硬件设施/C .分析该作品的受欢迎程度及教育意义/D .设计作品的主要界面/E．确定作品的发布方式)。

(2)、测试该场景时，“按钮”图层内容直到45帧才出现，要使按钮从第1帧就出现并延续到第45帧，下列操作可行的是。(多选题，填字母)

A、选中“按钮”图层第1帧执行“清除关键帧”操作 B、选中“按钮”图层第45帧执行“清除关键帧”操作 C、删除“按钮”图层第1至44帧 D、选中“按钮”图层第45帧执行“复制帧”操作，在第1帧执行“粘贴帧”操作 E、选中“按钮”图层第45帧，并移动到第1帧

(3)、“教师”图层中的“人物”实例实现了由透明逐渐显示的动画效果，该图层第一帧“人物”实例的Alpha属性值为。

(4)、删除“音效”图层，第40帧到第45帧，对动画整体音效(有/无)影响。

(5)、单击“play”按钮，跳转到“第一幕”场景第1帧并开始播放，该按钮上的动作脚本命令是。

查看解析
19、小张收集了2020美国大选8个摇摆州民调数据，并用EXCEL软件进行处理，如图所示。

(1)、支持率大于50的总统候选人获得该州的选票，如拜登获得了佛罗里达州(FL)、亚利桑那州(AZ)、北卡罗来纳州(NC)．俄亥俄州(OH)的选票，并将预计得票显示在G3、G4中。G3单元格是使用SUMIF函数计算得到的，其公式是。
(提示：SUMIF(条件区域，求和条件，实际求和区域)，第二个求和条件参数作用在第一个条件区域里。SUMIF(A2：A13，“>50"，B2：B13)表示A2：A13区域大于50的对应实际求和区域B2：B13数据求和)

(2)、H4单元格是通过H3自动填充得到的，现在出现了“#DIV/0！”错误，请分析原因，并修改H3公式：。

(3)、根据图a数据，制作图b所示图表(2020美国大选摇摆州民调情况)，则该图表的数据源是。

查看解析
20、某对分查找算法的VB程序段如下：
Key= Val(Text1.Text)

i=1： j=10： n=0

Do While i<=j

  m=(i+j)\2

  n=n+1

  If a(m) ： > Key Then

        j=m-1

   Else

        i=m+ 1

  End If

Loop

Text2.Text=str(n)

数组元素a(1)到a(10)的值依次为“2，3，5，8，9，10，13，17，19，25”。在文本框Text1中输入待查找的整数，执行该程序段，则文本框Text2中显示3，待查找数不可能是（    ）

A、2 B、4 C、9 D、i9

查看解析

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

a(1)	a(2)	a(3)	……	a(n-2)	a(n-1)	a(n)
3	25	38	……	55	31	12