相关试卷

1、下列选项中，与代码"Do while i <= j And Flag = False"功能相同的是（）

A、Do while Int(j - i) >= 0 And Not Flag B、Do while i*a <= j*a And a > 1 And Flag = Not True C、Do while Int(i - j) <= 0 And Not Flag = True D、Do while j > Int(i) And (Not Flag) = True

查看解析
2、下列表达式，错误的是（）

A、十进制运算：2^8=256 B、1111B+1B=16D C、11H>11D,11D>11B D、19H+11H=30D

查看解析
3、用Photoshop软件制作“开学小贴士”作品，效果如图所示。

下列描述正确的是（）

A、当前状态下，可以删除“喇叭和树叶”图层 B、当前文件保存为BMP格式后，每个像素存储量大小为3个字节 C、可以对“小女孩”图层拷贝图层样式，粘贴图层样式到背景图层 D、当前状态下，用“图像大小”功能仅增大“开学小贴士”图层的内容

查看解析
4、下列关于编码和数据存储量的说法，正确的是（）

A、“GB2312”编码中既有汉字也有数字和字母 B、数据在压缩时，压缩比越大的，压缩时间越短 C、对Wav格式文件，只降低采样频率而不改变量化位数和声道数，则文件每秒的存储量大小不变 D、某字符编码采用7位二进制，最大值是1111111B，转换为十进制表示是127，所以该编码最多可以编码127个字符

查看解析
5、某ACCESS文件的数据表视图如图a，设计视图图b，下列说法正确的是（）
图a

图b

A、当前状态下，数据表名称为“成绩.accdb” B、当前状态下，不能在设计视图中删除“ID”字段 C、要将“ID”字段数据类型改为“文本”，可以在数据表视图下完成 D、可以在“照片”字段输入“照片找不到”

查看解析
6、下列利用人工智能不能实现的是（）

A、帮助法院判决案件 B、通过计算知晓过去所有发生的事 C、利用软件，语音远程控制家中电器的启动和关闭 D、大数据人脸识别，帮助警察锁定在逃的犯罪嫌疑人

查看解析
7、下列说法错误的是（）

A、家用计算机只能用二进制存储数据 B、信息技术随着计算机的使用而快速发展 C、搜索引擎的两大核心技术是自动网页搜索技术和主题目录检索 D、讲话时，声音录到手机中，声音是从模拟信号转为数字信号

查看解析
8、某医院接受捐赠物资，各项物资数据包含编号、品名和收支数量。编号构成规则是：急需等级(单个大写字母，由高到低划分为A、B、C三个等级)+物资种别(单个大写字母，至多有A～Z共26种)。为提高库存管理效率，现需要整理物资库存，要求：先对同种物资数量进行合并统计；然后按各种物资库存量，更新其急需等级，并依等级由高到低分类显示。等级划分规则为：当库存量低于3天所需，设置为A级；当库存量低于7天所需，设置为B级；否则设置为C级。
按上述要求，编写一个VB程序，功能如下：在列表框List1中显示整理前的所有物资相关数据，单击“库存合并统计”按钮Command1，在列表框List2中显示整理结果，程序运行界面如图所示。

(1)、由图中示例可知，急需等级发生变化的物资有种(填数字)。

(2)、请在划线处填入合适的代码。
Const n= 2000    ‘物资总项数

Const nc = 26    ‘物资种别数，最多不会超过26

Dim items(1 To n) As String, supplies(1 To n) As String, totals(1 To n) As Long

Dim g(1 To2 * nc) As Long    ‘存储各种物资3天、7天的需求数量

Dim b(1 To nc) As Long    ‘存储各种物资的库存量

Dim c(1 To nc) As Long

Dim q(1 To nc) As Integer

Private Sub Form_Load()

‘本过程读取编号、品名、收支、需求的数据分别存储在数组items、supplies、totals、g数组中，并在List1中显示有关数据：g数组中g(1)、g(2)存储物资A的3天、7天的需求数量；g(3)、g(4)存储物资B的3天、7天的需求数……代码略

End Sub

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, k As Integer, top As Integer, bottom As Integer

    Dim r As Long, s As String, t As Integer, m As Integer

    For i=1 To nc.

        b(i)=0:c(i)=0

    Next i

    For i=1 To n    ‘统计每种物资的库存量

    k = Asc(Mid(items(i), 2, 1))- Asc("A")+1

      ①

    c(k)=i

Next i

j=0

For i=1 To nc

    If c(i)<>0 Then j=j+1: q(j)=i

Next i

top = 0: bottom=j+ 1

j=1: k=bottom-1

Do While j<bottom    ‘按各种物资的需求量进行等级分类

    m=q(j)

      ②

    If r<g(2*m-1) Then

        top=top+1

        If top<>j Then t= q(top): q(top)=q(j): q(j)=t

        j=j+1

    ElseIf r>= g(2*m) Then

        bottom=bottom-1

        t= q(j): q(j)=q(bottom): q(bottom)=t

    Else

        j=j+1

    End If

Loop

List2.AddItem "编号品名库存"

    List2. AddItem "------------------------------"

    For i= 1 To k

        s= fp(i, top, bottom)

        List2.AddItem" " & s & " " & supplies(c(q(i))) & " " & b(q(i))

    Next i

End Sub

Function fp(pos As Integer, head As Integer, tail As Integer) As String

    If   ③   Then

        fp= "A"

    ElseIf pos < tail Then

        fp= "B"

    Else

        fp="C"

    End If

    fp = fp & Mid(items(c(q(pos))), 2, 1)

End Function

① ② ③

查看解析
9、编号分别为1～n(n为偶数)的学生分成两组进行投篮比赛，奇数编号的为第一组，偶数编号的为第二组。对每个分组的成绩按从高到低排序，先比较处于分组第1位的两个队员成绩，成绩高的得1分，低的扣1分，相等均不得分，再依次比较处于分组相同位置的队员成绩，最后得到每组得分。
    如10名运动员1号到10号的成绩分别是“13，6，9，8，10，11，10，14，16，13”，从高到低排序后，第一组的成绩依次是“16，13，10，10，9”，第二组的成绩依次是“14，13，11，8，6”。第1位的成绩分别是16和14，则第一组获胜得1分，第二组扣1分，再比较两个分组第2位的成绩13和13，则两组均不得分。依次处理，比较完剩余队员的成绩，可得第一组得分为2，第二组得分为－2。

    编写一个VB程序，实现如下功能：在文本框Text1中依次输入成绩(偶数个整数，用逗号分隔并以逗号结尾)，单击“确定”按钮Command1后，在列表框List1中显示对阵编号、对阵成绩及两个分组的最后得分。程序运行界面如图所示。

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

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

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

Dim s As String, ch As String, sum1 As Integer, sum2 As Integer

Dim bh (1 To 50) As Integer, cj(1 To 50) As Integer

s= Text1.Text

j= 1: k=0

For i= 1 To   ①

    ch = Mid(s, i, 1)

    If Not (ch>= "0" And ch <= "9") Then

        k=k+1

        bh(k)=k

        cj(k) = Val(Mid(s, j, i-j))

            ②

    End If

Next i

For i= 1 To k-2 Step 2

    For j= k To   ③ Step -1

        If cj(j)> cj(j-2) Then

            t= cj(j): cj(j)=cj(j-2): cj(j-2)=t

            t= bh(j): bh(j)= bh(j-2): bh(j-2)=t

        End If

    Next j

Next i

sum1 = 0: sum2= 0

List1 .AddItem "对阵编号对阵成绩"

For i=1 To k- 1 Step 2

    If cj(i)> cj(i+1) Then

        sum1 = sum1 + 1: sum2 = sum2- 1



        sum1=sum1-1: sum2=sum2+1

    End If

    List1.AddItem adj(bh(i)) + "<-->" + adj(bh(i+1)) + adj(cj(i)) + "<-->" + adj(cj(i+1)

Next i

List1.AddItem"第一组得分: "+ adj(sum1)

List1.AddItem"第二组得分: " + adj(sum2)

End Sub

Function adj(x As Integer) As String

‘函数功能:将数值x转换成字符串，并在字符串的左侧添加若干空格。代码略

End Function

① ② ③

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

查看解析
10、用Flash软件打开“鱼戏莲叶间.fla”文件，编辑界面如图所示。

请回答下列问题：

(1)、以下步骤属于脚本编写阶段的是：(多选，填字母：A .分析作品的社会效益和经济效益/B .根据主题思想和内容，制定该作品的脚本大纲/C .考虑作品创作及运行需要的硬件设施/D .确定原始素材的获取方式/E.确定作品的主要界面)。

(2)、图中“鱼”图层创建了鱼戏荷花间的动画，各关键帧中的“鱼”实例均由库中“鱼”影片剪辑元件(仅含摆尾动作)创建，则“鱼”图层的动画类型是。

(3)、“鱼”图层从左至右，各关键帧中“鱼”实例的坐标(X，Y)依次为(80，350)、(200，250)、(30，200)。若仅对第36帧执行“插入关键帧”操作，测试场景，下列说法正确的是(多选，填字母：A .鱼游行路径不变/B .鱼游行停顿时间约为1秒/C .鱼摆尾频率不变/D .鱼游行时间不变/E .第2到3秒鱼从左向右游行)。

(4)、如图所示，为使“荷叶”图层的动画从第1帧开始，正确的操作是。

(5)、将作品发布为exe格式文件，要使打开该文件时单击“关闭”按钮关闭动画，按钮上的动作脚本是on(release){}。

查看解析
11、某慈善总会接收抗击新型冠状病毒感染肺炎的捐赠物资，使用Excel软件进行数据处理，如图所示。

请回答下列问题：

(1)、F4单元格中的数据是使用SUMIF函数计算得到的，对G4：H4进行自动填充，G4单元格中的显示结果是(单选，填字母：A .VALUE!/B ./C .DIV/0!/D .0)。(提示：SUMIF函数用于对区域中满足条件的单元格求和。
例如：=SUMIF(B3：B3126，F3，C3：C3126)表示求B3：B3126区域中所有“N95口罩”的总量)

(2)、若要正确计算“分类捐助总量”的数据，可对F4单元格中的公式进行修改，再对G4：H4进行自动填充，则F4单元格中的公式是。

(3)、图中数据区域A2：C3126已进行了排序。排序时，选择的关键字为。

(4)、要筛选出所有口罩的数据，对“物资类别”列进行筛选，下列方法可行的是(单选，填字母)。

查看解析
12、有多组“123”连接的字符串，如“123123123”，若删除其中一个任意位置的字符，如第8位字符“2”，则得到新字符串“12312313”。编写一个如图所示的VB程序，实现以下功能：输入非空新字符串s，找出被删除字符在原字符串中的位置。如输入“12312313”，则输出“原字符串的第8个字符被删除”。

s= Text1.Text

For i= 1 To Len(s)

    a(i) = Val(Mid(s, i, 1))

Next

L=1: R= Len(s) + 1

Do While L<R

    m= (L+R) \2

    If Then

        R= m

    Else

        L=m+ 1

    End If

Loop

Label1 .Caption = "原字符串的第"+ + "个字符被删除"

上述程序段2个方框处的代码分别为（）

A、⑴ (m- 1) Mod 3 +1<>a(m) ⑵ Str(L) B、⑴ (m- 1) Mod 3+<>a(m)   ⑵ Str(m) C、⑴ m Mod 3= a(m)          ⑵ Str(L) D、⑴ m Mod 3 = a(m)          ⑵ Str(m)

查看解析
13、有如下VB程序段：
i= 1

Do While i<= 6

    a(i) = Int(Rnd()*10)+ 1

    If a(i) Mod 2=i Mod 2 Then

        i=i- 1

    ElseIf i Mod 2= 0 Then

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

    End If

    i=i+ 1

Loop

执行该程序段后，a(1)～a(6)各元素可能的值是（）

A、4，9，2，13，8，11 B、3，11，6，11，8，15 C、6，13，8，11，6，15 D、2，6，8，13，2，7

查看解析
14、有如下VB程序段：
c=0

k=1

For i= 2 To 8

    If I Mod 2=1 And a(k)<a(i) Then

      k=i

      c=c+1

    End If

Next i

数组元素a(1)到a(8)的值依次为“3，6，2，4，13，7，13，20”，执行该程序段后，变量k和c的值分别为（）

A、5 1 B、5 2 C、6 2 D、8 3

查看解析
15、给定任意的查找键，在序列3，5，8，12，15，23中进行查找，下列说法不正确的是（）

A、若用顺序查找实现，则最少查找1次 B、若用对分查找实现，则最少查找1次 C、若用顺序查找实现，则最多查找6次 D、若用对分查找实现，则最多查找4次

查看解析
16、变量ch存储小写字母，下列VB表达式能表示其对应大写字母的是（）

A、Str(ch-32) B、Asc(Chr(ch)-32) C、Chr(Abs(ch)-32) D、Chr(Asc(ch)-32)

查看解析
17、某算法的部分流程图如图所示。执行这部分流程，变量c和s的值分别为（）

A、5 13 B、5 12 C、8 12 D、8 20

查看解析
18、将一个时长2分钟，采样频率44.1KHz，量化位数16、单声道未经压缩Wave音频文件压缩为MP3格式，压缩后MP3格式文件的大小为470KB，则音频的压缩比约为（）

A、11：1 B、11：2 C、22：1 D、176：1

查看解析
19、使用Photoshop软件制作“抗击新型肺炎”作品，部分界面如图所示。下列说法正确的是（）

A、“战胜新型肺炎”图层没有设置滤镜效果 B、“心形”图层对象不可视的原因是不透明度为100% C、可以使用文字工具修改“众志成城”图层的文字大小 D、左下角数值“15%”修改为“30%”，则图像大小变为原来的2倍

查看解析
20、下列关于数制的说法，正确的是（）

A、二进制数1010001转换为十六进制数是A1 B、二进制数1110中的末位数码0对应权值是2¹ C、若二进制数末位为0，则该数对应的十进制数一定是偶数 D、若二进制数1110去掉首位码1，则新数110是原数1110的1/2

查看解析

上一页 1317 1318 1319 1320 1321 下一页跳转