相关试卷

1、使用Access软件统计某班高三毕业生高考成绩，如下图所示（）

A、对当前记录“语文”字段值进行修改，“总分”字段值会自动更新 B、“学号”字段肯定是“自动编号”类型 C、“上线”字段肯定是“是/否”类型 D、当前状态下插入新记录，将会出现在第24行

查看解析
2、使用UltraEdit软件查看字符的内码，部分界面如图所示：

则下列说法正确的是（）

A、图中最大内码的十进制表示为150 B、这段字符内码的所有字节之和为偶数 C、字符“1+2”的内码可能是“31 2C 32” D、内码“36 30 2B 3A A3 A4”中，包含4个数字

查看解析
3、汉字可以使用N* N的黑白点阵图案来表示，例如汉字“上”和“二”使用8 * 8的点阵图案表示，如图所示。转化为0和1的点阵，其中0表示白色，1表示黑色，则“上”字可以表示为：

使用以下规则对01点阵进行编码(以“上”为例)：

①编码的第一个数为点阵的行列数N，如示例中“上”对应的行列数N为8；

②按行列顺序从上到下，由左到右依次进行编码；

③第一个数表示连续有几个0，第二个数表示接下来连续有几个1，第三个数表示再接下来连续有几个0，依此类推……

根据以上规则，“上”的编码为8，3，1，7，1，7，1，7，3，5，1，7，1，7，1，4，8。依据上述描述的编码规则，设计一个解码程序，根据输入的压缩编码，输出01点阵和黑白点阵。程序运行界面如图b所示，其VB代码如下。请回答下列问题：

Private Sub Command1_ Click( )

    Dim n As Integer, m As Integer, flag As Integer

    Dim a(1 To 100) As Integer, sum As Integer, num As Integer

    Dim s As String,tmp As String

    '读取一组数据，并对数据处理后存入相应变量

    s= Text1. Text ： s=s+","

    num=0： i=1

    Do While Mid(s, i, 1) <> ","

        i=i+ 1

    Loop

    n=     ①

    p=i+1

    num=0 : m= 0

    For i=p To Len(s)

        ch= Mid(s, i, 1)

        If ch="," Then

            m=m+1

                ②

            num= 0

         Else

            num=num * 10+Val(ch)

         End If

    Next i

    '下列代码为按规则对编码进行解码，输出01点阵

    sum=n￥n

    i=1 : flag=0 : tmp=" "

    Do While sum>0

        For j=1 To a(i)

            If flag=0 Then

                 tmp=tmp+"O"

            Else

                 tmp=tmp+"1"

            End If

            If     ③   Then

                List1. AddItem tmp

                tmp=" "

            End If

        Next j

           ④

        i=i+1

        flag=1-flag

    Loop

    '按规则对编码进行解码，输出黑白汉字点阵，

代码略

End Sub

(1)、依据图a中“二”字点阵图案以及上述压缩编码的规则，“二”字的编码为(填数字，中间用逗号分隔)。

(2)、请在划线处填入合适的代码。
① ② ③ ④

查看解析
4、编写VB程序，实现如下功能：在文本框Text1中输入关键词，例如关键词“ok”，单击“查找”按钮Com-mannd1，在左边的列表框List1所列单词中查找包含“ok”的字符串，如果查找成功，将在右边的列表框List2中输出该单词。若该单词多次符合条件，则只显示一次。如果查找失败，则在列表框List2 中显示“查找无结果“。
实现上述功能的VB代码如下，运行效果如图所示。请回答下列问题：

Const n= 5

Dim a(1 To n) As String

Private Sub Form_ Load( )

'将n个字符串分别赋值给数组元素a(1)、a(2)、……、a(n)，并在列表list1中显示

'代码略：

End Sub

Private Sub Command1_ Click( )

    Dim s As String, i As Integer, j As Integer

    Dim m As Integer, k As Integer

    Dim flag As Boolean

    s = Text1. Text

    m = Len(s)

    List2. Clear

    flag = False

    For i=1 To n

        k = Len(a(i))

        For j=1 To k- m + 1

            If = s Then    '①改错

                List2. AddItem a(i)

                flag = True

                Exit For      '退出for 循环

            End If

        Next j

    Next i

    If Then    '②填空

        List2. AddItem“查找无结果”

    End If

End Sub

(1)、观察运行界面，窗体中一共有个对象。

(2)、程序代码中，加框处①有错，请改正。

(3)、为实现上述功能，请在加框处②填入合适的代码。

(4)、如果删除程序代码中Exit For语句，对程序最终运行结果(选项：有/无)影响。

查看解析
5、小明制作了主题为“鼠年大吉”的多媒体作品，他首先使用Photoshop 软件制作了一张背景图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、Photoshop部分界面如图a所示，当前状态下，下列说法正确的是(多选，填字母：A .选中“背景”图层，可以直接修改“背景”图层的不透明度/B .“鼠年大吉”图层的内容没有显示在画布中/C .不能把“灯笼”图层的图层样式复制到“舞龙”图层/D .把当前PSD文档保存为JPEG格式，该文件大小约为366.2KB)

(2)、制作的Flash动画如图b所示，“鼠1”图层呈现动画可能是(单选，填字母：A .由3只老鼠逐渐变成2只老鼠再变成如图所示的1只老鼠/B .“鼠1”由小变大的同时，由舞台外面运动到舞台的左上角，再运动到如图所示位置/C .由“老鼠”文字逐渐变成“鼠”文字再变为如图所示的一只老鼠)

(3)、“礼花”图层从第1帧至25帧实现礼花从空中飘落到云上，并消失在云的后面。但测试影片时发现，礼花最终停留云的外面，要修正错误，下列对“礼花”图层操作可行的有 (多选，填字母)

A、选择第26帧至48帧执行“删除帧"操作 B、将第48帧移动到第26帧 C、选择第25帧执行“清除关键帧”操作 D、选择第26帧执行“插入空白关键帧"操作 E、选择第26帧执行“清除帧"操作

(4)、按下组合键“Ctr1+Enter”测试动画，在当前文件夹中会产生一个名为(填写完整文件名)的文件。

(5)、测试影片时，弹出如图c所示提示信息，应进行的修改是

查看解析
6、小王收集了某地农产品价格数据，用Excel对其进行分析，整理后的数据如图a所示，

(1)、表中第J列数据是通过公式计算得到。小王首先在J5单元格中输入公式，然后利用自动填充功能向下填充到J23单元格。

(2)、小王想对蔬菜类的数据以“农产品品种”为主要关键字按升序进行排序，则他应该选择的数据区域是。

(3)、小王要对数据进行筛选，筛选条件如图b所示，则他共筛选出行数据

(4)、小王根据图a中数据制作了一个图表，如图c所示：则制作此图表的数据区域为

查看解析
7、有一数组a(1 to 6) ，其数值分别为“45，39，78，37，93，64”，想要从小到大排序，编写如下程序代码：
Dim flag As Boolean

i =1：n=6

flag = True

Do While i <= n-1 And flag = True

    flag = False

    For j=n To i+ 1 Step-1

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

            k = a(j)： a(j) = a(j- 1)： a(j-1)= k

            flag = True

        End If

    Next j

    i=i+1

Loop

以上代码在整个排序过程中，数据总比较次数和总交换次数分别是(     )

A、9次和4次 B、9次和6次 C、12次和6次 D、15次和12次

查看解析
8、有如下VB程序段：
Dim p As Integer, q As Integer, s As Integer, t As Integer

p = Vai(Text1. Text)

t=0

For q=p+1 To2*p

    s=(p*q)Mod(q-p)

    If s = 0 Then

        t=t+1

    End If

Next q

Label1. Caption = Str(t)

该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是(     )

A、3 B、4 C、5 D、6

查看解析
9、某对分查找算法的VB程序段如下：
i=1： j=6： n=0： f= False

key= Val(Text1. Text)

Do While i<=j and Not f

    n=n+1

    m= Fix((i+j)/2)

    If key=a(m) then f= True

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

Loop

数组元素a(1)到a(6)的值依次为“12， 19，27，31，46，55”。若在文本框Text1中输入“31”，则以上程序段运行结束后，下列说法不正确的是(     )

A、变量i的值为4 B、变量j的值为4 C、变量m的值为4 D、变量n的值为3

查看解析
10、有n盏灯，一开始全部处于关闭状态，现有n个人对这些灯进行操作：第1个入将所有灯打开，第2个人将所有编号为2的倍数的灯全部关闭，第3个人对所有编号为3的倍数的灯进行反向操作……直到第n个人操作完成为止，该过程用如下VB程序段进行模拟。
Dim a(1 To n) As Integer

For i=1 To n

    For j=i To n

      If   ①   Then

          ②

      End If

    Next j

Next i

已知数组a初始值全部为0，模拟灯的状态，0为关，1为开。则划线处正确的是(     )

A、①i Mod j=0②a(j)=1-a(j) B、①j Mod i=0②a(j)=1-a(j) C、①j Mod i=0 ②a(i)=1-a(i) D、①i Mod j=0 ②a(i)=1-a(i)

查看解析
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、180 B、174 C、42 D、36

查看解析
12、某算法部分流程图如图所示，则输出的值s为( )

A、4 B、8 C、16 D、22

查看解析
13、小宋用UltraEdit软件观察“他很happy”字符的内码，如图所示：

下列说法中，正确的是( )

A、全部字符共占8个字节 B、汉字“很”的十六进制内码为“FB BA" C、小写字母“o”的十六进制内码为“69” D、字母“B”的二进制内码为“1000010”

查看解析
14、将一幅未经压缩的1024×576像素、24位色BMP图片，转换成JPG格式后，存储容量为350KB，则压缩比约为( )

A、40：1 B、8：1 C、5：1 D、1：1

查看解析
15、用GoldWave软件打开某音频文件，选中一段音频后的部分界面如图所示。

下列说法错误的是( )

A、该音频每个数据点的存储容量为2字节 B、执行“更改音量”操作后，只有当前选中的声音音量发生改变 C、当前状态下执行“剪裁”操作后，再按原参数保存，则该音频存储容量变小 D、当前状态下插入5s静音，再按原参数保存，则该音频存储容量变大

查看解析

16、使用Access软件设计一个数据表，直接存储如图所示的学生饭卡数据

序号	学号	姓名	性别	存钱日期	金额
1	20190234	金子鑫	男	2020-5-14	500元
2	20181203	吴浩	女	2020年6月12日	800元
……	……	……	……	……	……

下列表结构设计合理的是( )

A、

B、

C、

D、

查看解析

17、下列关于网站和网页的说法，正确的是( )

A、网页文件是用HTTP语言来描述的 B、HTML是超文本传输协议，用于浏览器与Web服务器之间的信息传输 C、IE浏览器可以用于编辑网页文件 D、收藏网站其实就是保存网页的URL

查看解析
18、下列有关信息安全的说法，正确的是( )

A、任何一款杀毒软件都不能查杀所有的计算机病毒，因此不必安装反病毒软件 B、有的计算机病毒能帮助查杀其他的病毒，因此计算机病毒的危害不大 C、计算机黑客能轻松破解密码，因此经常更换计算机系统的密码没有必要 D、计算机病毒和黑客都能给用户带来损失，因此我们必须高度关注计算机安全

查看解析
19、有一个加密/解密程序，其加密的算法是：将原文中每个字符的ASCII码加上该字符在原文中的位置数(设字符在原文中是第n个字符，则其位置数是n被10除的余数，当余数为0时，其位置数为10.例如，原文字符串为“meet me at sunset”，第一个字符“m”，其位置数为1，而“s”为第12个字符，其位置数是被10除的余数2，其余依次类推)作为密文字符的代码，再将密码字符逆序排列(例如ABCD，逆序排列为DCBA)即为密文。解密算法是加密算法的逆运算，运行效果如下图所示。

(1)、如图所示，如果原文中字母“g”后面添加字母“h”，按“加密”按钮后，字母“h”对应的密文为：

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

    Dim enc As String, dec As String, i As Integer

    Dim s As String,n As Integer

    dec = Text1. Text

    For i=1 To Len(dec)

        s=

    n=i Mod 10

        If n=0 Then n=10

        enc =Chr(Asc(s)+n) & en

    Next i

    Text2. Text =enc

End Sub

Private Sub Command2_Click( )    '解密

    Dim enc As String, dec As String, i As Integer

    Dim n As Integer, s As String, p As Integer

    enc = Text2. Text

    n = Len( enc)

    For i =1To n

        s = Mid(enc， i， 1)

        P=

        If p =0 Then

        dec = Chr(Asc(s) -p) & dec .

    Next i

    Text1. Text = dec

End sub

查看解析
20、小王编写VB程序实现Excel筛选最大的n项数据功能。其功能如下：在列表框list1中显示m个原始数据(存储在数组a中)，在文本框Text1中输入整数n(n≤m)，单击“筛选”按钮Command1后，在列表框List2 中按降序输出最大的n项数据(包括第n项的重复数据)。
程序运行界面如图所示，实现上述功能的VB程序如下。请回答下列问题：

Const m= 10

Dim n As Integer

Dim a(1 To m) As Integer

Private Sub Form_ Load( )

    '获取原始数据依次存数组a中，并在列表框List1中显示，数据个数存变量m，代码略

End Sub

Private Sub Command1_ Click( )

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

    n= Val(Text1. Text)

    i= 1

    Do While i<=n

      k=i

      For j=i+1 To m

            If a(j) > a(k) Then k=j

      Next j

       If i<>k Then

            a(i)=a(i)+a(k)： a(k)=a(i) - a(k) ：   ①

      End If

        i=i+ 1

    Loop

    For i=1 To n

      List2. AddItem Str(a(i))

    Next i

    c==n

    For i=n+1 To m

       If Then c=c+1： List2. AddItem

        Str(a(i))    '改错

    Next i

  List2. AddItem "筛选出" +   ②    + "个成绩"

End Sub

(1)、代码“Private Sub Command1_ Click( )”中的Command1_ Click( )属于 (单选，填字母：A .对象名/B .属性名/C .事件名/D .事件过程名)。

(2)、请在划线处填入合适的代码。
① ②

(3)、加框处代码有错误，请改正。

查看解析

上一页 421 422 423 424 425 下一页跳转