相关试卷

1、编写程序，实现功能：通过双向排序，使数组元素a（1）到a（n）升序排列。
Const n =10

Dim a（1 To n）As Integer

‘随机生成10个1-100之间的数存储在数组a中，代码略

For i=1 to n\2

For j=    ⑴     To i+1 Step-1

If a（j）<a（j-1）Then t = a（j）：a（j）=a（j-1）：a（j-1）=t

Next j

For k=i+1 To    ⑵

If a（k）>a（k +1）Then t =a（k）：a（k）= a（k +1）：a（k+1）=t

Next k

Next i

划线处可选代码为：①2   ②n-i+1   ③n   ④n-i

则（1）、（2）处语句依次为（    ）

A、①③ B、③① C、②④ D、③②

查看解析
2、有如下VB程序段：
s="R255：G122：B221：End"

c=1

For i=1 To Len（s）

    t=Mid（s，i，1）

    If t>="0" And t<="9" Then

        a（c）=t+a（c）

    Else

        c=c+1

    End If

Next i

已知数组a各元素的初始值均为空字符串，执行该程序段后，字符串122存储在数组（    ）中。

A、a（2） B、a（4） C、a（5） D、a（6）

查看解析
3、有如下VB程序段：
a=Int（Rnd*20）*2+11

r=0：s=""

Do While a>0

    r=a Mod 7

    s=r&s

    a=a\7

Loop

执行该程序段后，变量s的值不可能是（    ）

A、"16" B、"23" C、"64" D、"100"

查看解析
4、某算法的部分流程图如图所示，执行这部分程序，下列说法正确的是（）

A、该流程图用于求1到100间，所有能被5整除的数的和 B、该流程图从结构上看，是一个循环结构中又嵌套了另一个循环结构 C、程序运行结束后，i的值是100 D、将①处s←1：i←2改为s←1：i←1，不影响输出结果

查看解析
5、关于正整数m、n、k的运算，以下VB表达式中的结果与另三个可能不相同的是（）

A、m=Int（Sqr（m）)^2 B、Int（Rnd* k）/k <1 C、m-（m\2）*2=m Mod 2 D、（n\k=n/k）=（n Mod k =0）

查看解析
6、未经压缩的BMP图像文件和AVI视频文件相关信息分别如下图所示。

文件名：bg.BMP

尺寸：1600*1200

颜色模式：RGB/8

文件名：logo．AVI

尺寸：400*300

颜色模式：256级灰度

时长：10秒

帧频：30fps

由此可知图像文件的存储容量与视频文件的存储容量比约为（）

A、1：50 B、4：25 C、4：75 D、8：15

查看解析
7、使用Photoshop软件制作“四月你好”的作品，部分编辑界面如图所示。

下列说法正确的是（）

A、“背景”图层中的图像内容不可以进行修改 B、可通过“自由变换”仅改变“传统节气”图层中“节气”文字的大小 C、交换“节气解读”和“鱼”图层的顺序，不影响作品的呈现效果 D、可通过“拷贝图层样式”将“夏至”图层的图层样式复制到莲花图层

查看解析
8、某数转换为十进制数为n，若n\5=5，则该数可能是（）

A、1DH B、21H C、10111B D、1111B

查看解析

9、用Access软件设计某大学新生管理信息系统的数据库，其中“基本信息表”中需要存储如图所示的数据。

学号	姓名	性别	出生年份	户籍所在地	注册日期	是否住校
202002001	张阳	男	2002	温州市瓯海区	2020/8/31	是
202003001	李玥	女	2001	宁波市北仑区	2020/8/30	否
…	…	…	…	…	…	…

下列关于该新生管理信息系统的描述，正确的是（）

A、该新生管理信息系统是数据库管理系统 B、“姓名”字段设为主键，是合理的 C、“基本信息表”中同一字段的字段值的数据类型定相同 D、该数据表中必定有一个字段的字段名为“户籍所在地”

查看解析

10、下列应用中，不属于人工智能应用范畴的是（）

A、使用指纹解锁功能解锁手机 B、利用手持金属探测仪对旅客进行安检扫描 C、某“在线翻译”系统将英文文章翻译成中文 D、“无人驾驶汽车”在道路上行驶

查看解析
11、下列有关信息和信息处理的说法，正确的是（）

A、计算机中的信息是以十六进制形式存储的 B、声音、图像必须经过数字化后才有价值 C、文字、声音、图像等既是载体，也是信息的表达技术 D、算术运算和逻辑运算是计算机处理信息的基本运算

查看解析
12、某字符串加密算法，规则如下：
1）根据字符串长度构建一个最小的n*n矩阵，将字符串中每个字符从左到右，自上而下顺序填入矩阵，不足部分用字符“*”代替；

2）将矩阵转置（行列对换），然后将奇数行字母内码加上1，偶数行字母内码减1，字符为a、z或A、Z时做循环处理。比如，字符a减1为z；字符Z加1为A。

3）按从左到右，从上而下依次取出字符，形成新的字符串。如图a为字符串“Go to the zoo.”的加密过程。编写VB程序，在文本框Text1中输入字符串，点击“加密”按钮，在文本框Text2中输出加密后的字符串。程序运行结果如图b所示。

图a

图b

(1)、若在文本框Text1中输入3个字母“Far”，执行加密程序后，输出结果为。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码
Dim a(1 To 100) As String, b(1 To 100) As String, n As Integer

Private Sub Command1_Click()

   Dim s1 As String, s2 As String，i As Integer, j As Integer, m As Single

  s1 = Text1.Text

   m = Sqr(Len(s1))

  If m > Int(m) Then n = Int(m) + 1 Else n = m

   For i = 1 To n * n

        If i <= Len(s1) Then a(i) = Mid(s1, i, 1)   Else a(i) = "*"

  Next i

   For i = 1 To n

      For j = 1 To n

            b((i - 1) * n + j) =     ‘将矩阵转置

            b((i - 1) * n + j) = jm(i, j)   ‘内码变换

        Next j

  Next i

  s2 = ""

  For i = 1 To n * n

        s2 = s2 & b(i)

  Next i

   Text2.Text = s2

End Sub

Function jm(x As Integer, y As Integer) As String

  Dim s As String

  s = b((x - 1) * n + y)

  If s <= "Z" And s >= "A" Or s <= "z" And s >= "a" Then

        If x Mod 2 <> 0 Then

            If s <> "Z" And s <> "z" Then

                s = Chr(Asc(s) + 1)

            Else

                s = Chr(Asc(s) - 25)

            End If

        Else

            If s <> "a" And s <> "A" Then

                s = Chr(Asc(s) - 1)

            Else

                s =

            End If

        End If

   End If



End Function

查看解析
13、某比赛项目由多位评委打分，然后根据项目难度系数计算最终得分。规则为：
最终得分=（所有评委打分总和－1个最高分－1个最低分）×项目难度系数

编写VB程序，实现计算最终得分的功能。在文本框Text1中输入项目难度系数和多位评委的打分，中间用“，”隔开并以“，”结尾，然后点击计算按钮，在文本框Text2中显示最终得分。程序运行界面如图所示。

(1)、程序中计算按钮的对象名是 (单选，填字母:A .Command1/B .Cmd1/C .Cmd1_Click)。

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

    Dim a(1 To 100) As Single

    Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer

    Dim Tot As Single, tmp As Single

    Dim s As String, v As String, ch As String

    s = Text1.Text

    n = 1：v=""



   Do While n <= Len(s)

        ch = Mid(s, n, 1)

        If ch <> "," Then

            v = v & ch

        Else

            a(m) = Val(v)



            m = m + 1

        End If

        n = n + 1

   Loop

   For i = 2 To m - 2

      For j = m - 1 To i + 1 Step -1

            If a(i) < a(j) Then

                tmp = a(i): a(i) = a(j): a(j) = tmp

            End If

        Next j

   Next i

   Tot = 0

   For

        Tot = Tot + a(i)

   Next i

   Text2.Text =

End Sub

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

查看解析
14、用Flash软件打开“昆虫世界.fla”文件，部分编辑界面如图a所示。

图a

请回答下列问题：

(1)、创作多媒体作品时需要对背景音乐进行处理，用Goldwave软件打开声音文件，界面如图b所示。下列描述正确的是 (多选，填字母)。

图b

A、当前处理的声音素材为Wav格式立体声 B、当前状态执行“删除”命令后，保留的声音时长为1分50秒 C、当前状态执行“剪裁”命令后，保留的声音时长为40秒 D、当前状态下执行“淡入”命令后直接保存，音频文件存储容量与原来一样 E、当前状态下执行“静音”命令后直接保存，音频文件存储容量将减少

(2)、测试影片时，本场景播放结束后，蝴蝶还在扇动翅膀，声音还在继续播放，可知“蝴蝶”的元件类型为， “背景音乐”图层中声音的同步类型为。（选填：事件/数据流）

(3)、甲虫动画脚本为：沿树干上爬→左转→沿树枝左爬→变“昆虫”文字。若要将“世界文字”动画与甲虫变昆虫动画同步，则在“世界文字”图层中应进行的操作是。

(4)、测试影片时，单击当前场景中的“浏览”按钮，停止所有声音播放，同时在浏览器中显示出位于同一目录下的“kunchong.txt”文件内容，则“浏览”按钮的动作脚本为on(release)｛｝

查看解析
15、网上下载了第六次人口普查的相关数据，并用 Excel软件进行数据处理，如图a所示。

图a

请回答下列问题:

(1)、区域 E4:G14的数据是通过公式计算得到的，在E4单元格中输入公式，再使用自动填充功能完成区域E5:E14和F4:G14的计算。
（提示：占总人口比重＝年龄段人口数÷总计人口数×100）

(2)、对图a所示表格中数据按“性别比”降序排列，则应选择的数据区域为。

(3)、利用图a数据建立了“各年龄段人口比重”饼图，如图b所示。下列说法正确的是 (多选，填字母)。

图b

A、可以通过数据区“A4:B14”创建该图表 B、可以通过数据区“A4:A14,E4:E14”创建该图表 C、隐藏“0-9岁”所在行数据，图表不会发生变化 D、调整数据表中小数点位数，图表不会发生变化

查看解析
16、有如下 VB 程序段：
s = "AAABBBCCCCDDEFF"

i = 1: j = Len(s): Key = "H": v = ""

Do While i <= j

   m = (i + j) \ 2

   c = Mid(s, m, 1)

  If c = Key Then Exit Do

  If c > Key Then

        j = m - 1: v = v & c

   ElseIf c < Key Then

       i = m + 1: v = v & c

   End If

Loop

执行完以上程序后，v的值为（   ）

A、CDFF B、CDF C、CDEF D、DEF

查看解析
17、采用选择排序算法进行两趟后的数据序列为“2，3，8，4，9”，则原始序列不可能为（）

A、2，4，8，3，9 B、9，2，8，4，3 C、3，9，8，4，2 D、8，4，9，2，3

查看解析
18、有如下VB程序段：
Dim a(1 To 6) As Integer

‘产生6个1-100的随机数，存放到数组a中，代码略

For i = 1 To 3 Step 2

   If a(i) < a(i + 2) Then

        tmp = a(i): a(i) = a(i + 2): a(i + 2) = tmp

    End If

Next i

执行该程序段后，数组元素a(1)到a(6)的值不可能的是（   ）

A、54，80，12，23，16，51 B、50，49，47，67，7，70 C、58，35，47，73，45，72 D、98，54，79，67，64，88

查看解析
19、编写一个读数小程序。在文本框1中输入一个10000以内的正整数，点击“读数”按钮，在文本框2中输出该数字的中文阅读，程序运行界面如图所示。实现该功能的VB程序段如下：

Const SN = "〇一二三四五六七八九十百千"

Dim s1 As String, s2 As String, i As Integer

s1 = Text1.Text: s2 = "": i = 1

Do While i < Len(s1)

   n1 = Val(Mid(s1, i, 1))

   n2 = Val(Mid(s1, i + 1, 1))

  If n1 <> 0 Then

  If n1 = 0 And n2 <> 0 Then

   i = i + 1

Loop

n1 = Val(Mid(s1, i, 1))

If n1 <> 0 Then

Text2.Text = s2

上述程序方框处可选语句为：

①s2 = s2 & Mid(SN, n1 + 1, 1) & Mid(SN, Len(s1) - i + 10, 1)

②s2 = s2 & Mid(SN, 1, 1)

③s2 = s2 & Mid(SN, n1 + 1, 1)

则（1）、（2）、（3）处语句依次是（   ）

A、①②③ B、②①③ C、②③① D、③②①

查看解析
20、某算法的部分流程图如图所示，变量w的初值为空，输入变量x的值为51，执行这部分流程后，变量w的值是（）

A、“201” B、“102” C、“121” D、“211”

查看解析

上一页 777 778 779 780 781 下一页跳转