相关试卷

1、知识是的产物。

查看解析
2、信息的特征：、、、。

查看解析
3、信息是的方式。

查看解析
4、计算机科学中，数据的定义是的通称。在计算机系统中，数据以的形式表示。

查看解析
5、数据是的表示，即的表示。

查看解析
6、有“成年人清晨安静状态下的口腔正常温度是36.3--37.2℃”“38”和“叶达的口腔温度是38℃”三种描述，这三种描述分别是、、（写数据、信息或知识）。

查看解析
7、小奕同学基于排序算法设计了一个数字矩阵排序的程序。程序界面如下图所示，在文本框中输入矩阵大小，点击“生成”按钮Command1，在左侧列表框List1中输出一个长宽均为指定大小的随机整数矩阵，随机整数范围为[1，99]。点击“排序”按钮Command2，结果输出在右侧列表框List2中，奇数行从左到右依次递增，偶数行从右至左依次递增，且保持输出矩阵的长宽不变。

(1)、实现上述功能的VB程序如下，显示数据用的additem是一种(单选，填字母：A .属性名/B .事件名/C .方法名/D .过程名)。

(2)、请在划线处填入合适的代码。
Dim a (1 To 100) As Integer

Dim n As Integer

Function dq (s As String，L As Integer) As String     ‘自定义对齐函数

Rem在输入的字符串s前加若干空格，输出长度为L的字符串，代码略

End Function

Private Sub Command1_Click()     ‘生成数字矩阵

‘随机生成n^2个数字，存储在数组a中，代码略

‘以一行n个，共n行的格式显示在List1中，代码略

End Sub

Private Sub Command2_Click     ‘数字矩阵排序

Dim i As Integer，k As Integer，j As Integer，s As String

Dim f As Boolean

List2.Clear

f = True

For i = 1 To n^2 Step n

    s=“”

    For j = i To n

    k=n^2

    Do While

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

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

      End If

      k = k-1

    Loop

    If f = True Then

      s=s+“”+dq(Str(a(j))，2)

    Else

      s=s+“”+dq(Str(a(j))，2)+s

    End If

    Next j

    List2.AddItems



Next i

End Sub

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

查看解析
8、现要编写一个程序，对每个班级的同学生成考试座位号，规则如下：先按成绩从高到低排序，如果成绩相同，学号在前的学生座位号在前，最后输出每个同学的座位号。小王和小李采用不同的方法实现了上述算法。请仔细比较两位同学的代码的不同之处，并完成相关代码的填空。

Dim xm (1 To n) As String，xh(1 To n) As String

Dim cj(1 to n)As Integer

Private Sub form_load()

“读取相关数据表，把姓名、学号、成绩分别存储到数组xm、xh、cj中，并在List1中显示，代码略

End Sub

Private Sub Com1__Click()    ‘小王编写的代码部分

Dim wz (1 To n) As Integer

For i = 1 To n-1

    wz(i) = i

    For j = n To i+1 Step-1

      IfThen

        t = cj(j)：cj(j) = cj(j-1)：cj(j-1) = t

        t = xh(j)：xh(j) = xh(j-1)：xh(j-1) = t

      End If

    Next j

Next i

    For i = 1 To n-1

      For j = n To i+1 Step-1

        IfThen

          t = cj(j)：cj(j) = cj(j-1)：cj(j-1) = t

          t = xh(j)：xh(j) = xh(j-1)：xh(j-1) = t

          t = wz(j)：wz(j) = wz(j-1)：wz(j-1) = t

        End If

      Next j

    Next i

List2.Clear

    List2.AddItem“学号姓名成绩座位号”

    For i = 1 To n

      List2.AddItemxh(i)+“”+xm(i)+“”+Str(cj(i))+“”+Str(wz(i))

    Next i

End Sub

Private Sub Com2_Click()      ‘小李编写的代码部分

Dim wz(1 To n) As Integer，t(1 To n) As Integer

For i = 1 To n

    t(i)=i

Next i

For i = 1 To n

    For j = n To i+1 Step-1

      IfThen

        temp=t(j)：t(j)=t(j-1)：t(j-1)=temp

      End If

    Next j



Next i

List2.Clear

List2.AddItem“学号姓名成绩座位号”

For i = 1 To n

    List2.AddItemxh(i)+“”+xm(i)+“”+Str(cj(i))+“”+Str(wz(i))

Next i

End Sub

查看解析
9、小龙创作“防疫宣传”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、如图a所示，当前状态下，下列说法正确的是(多选，填字母：A .将作品存储为“口罩分类bmp”，存储容量为1.26Mb/B .“医用口罩”图层不可见的原因是不透明度为0%/C .可以对背景图层使用“镜头光晕”滤镜/D .可以调整背景图层的填充为50%/E .该位图文件存储每个像素占8b)

图a

(2)、如图b所示，已知声音文件长度为10秒，为了使声音播放到50帧自动停止，则可以将声音同步方式设置为(单选，填字母：A .事件/B .数据流)

图b

(3)、如图b所示，库中一共有个元件。

(4)、如图b所示，“口罩”图层第1帧到第15帧的补间动画实现了“口罩”实例从完全透明到完全显示，则该动画的类型是(单选，填字母：A .动画补间动画/B .形状补间动画/C .逐帧动画)。

(5)、为使按钮推迟1秒出现，并持续到第50帧。下列操作不可行的是 (多选，填字母)

A、将“按钮”图层第1帧动倒第13帧 B、选中“按钮”图层第1-12帧执行“清除帧” C、选中“按钮”图层第1-12帧执行“剪切帧” D、选中“按钮”图层第1-12帧执行“转换为空白关键帧” E、选中“按钮”图层第13帧执行“插入关键帧”，然后在第1帧执行清除关键帧

(6)、测试“main”场景时，单击“返回”按钮能跳转到“begin”场景第1帧并停止播放，则在“返回”按钮上设置的动作脚本是。

查看解析
10、小张收集了某地部分市菜菜篮子价格数据，并使用Excel款件进行数据处理，如图所示。

(1)、表中“平均值”数据是利用函数Average计算得到的，选择I3单元格输入公式，然后用自动填充功能完成其他单元格的计算。则I3单元格中的公式为。

(2)、为了分析数据的需要，创建了如图2所示的图表，则创建该图表时选择的数据区域为，B2，I2，B4：B5，I4：I5，。

(3)、若要对图1中所示数据按“最大差价”进行降序排列，则捕序时选择的数据区域。

(4)、对图1中的数据进行筛选，要找出“最大差价”最小的三个，可以选择进行筛选(单选，填字母：A .高于平均值/B .10个最大的值/C .自定义筛选)

查看解析
11、有如下VB程序段：
Const n = 10

Dim a (1 To n) As Integer

Dim mid As Integer，L As Integer，R As Integer Randomize

a(1) = 10

For i = 2 To n

a(i) = a(i-1) + Int(Rnd*2) + 1

Next i

    c = 0：L = 1：R=n：flag = False：Key = 11

    Do While L< = R And Not flag

      mid = Int((L+R)/2+0.5)

      c = c+1

      If a(mid) = Key Then

        flag = True

      Else If a(mid) > Key Then

        R = mid-1

      Else

        L = mid+1

      End If

    Loop

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

A、1或2 B、2或3 C、3或4 D、4或2

查看解析
12、有如下VB程序段：
Dim d(1 to 5)as integer，i as integer

Dim flag as Boolean，j as integer

‘给数组元素d(1)至d(5)赋初值为1，代码略

Randomize

For i=1 to 5

    J = 1：flag = True

    d(i) = int(Rnd*9)

    Do while j< =i-1 and flag = True

      d(i) = int(Rnd*5+1)

      If d(i) = d(j) then i=i-2：flag = False

      j = j+1

    Loop

Next i

运行程序后，数组中的数据值可能是（    ）

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

查看解析
13、有如下VB程序段
Const n=10

Dim a (1 To n) As Integer, y (1 To n) As Integer, i As Integer, j As Integer

k=Val(Text1.Text)

For i=1 To n

    y(i)=1

Next i

For i=1 To n

For j=1 To n

    If a(i) < a(j) Then y(i) = y(i)+1

Next j

If y(i) = k Then List1.Addltem Str(a(i))

Next i

数组a的各元素的值为“3，4，3，1，4，4，5，5，6，2，0”，在文本框中输入4，执行该段程序后List1中显示的值为（    ）

A、3 B、 C、 D、

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

For a=1 To 10

b=a+b

a=a+3

Next a

c=a+b

执行该程序段后，变量c的值为（）

A、15 B、22 C、28 D、32

查看解析
15、已知整型变量ab为小于20的正整数，下列VB语句交换变量a，b值方法错误的是（）

A、a=a+b：b=a-b：a=a-b B、a=a-b：b=a+b：a=b-a C、a=a*b：b=a/b：a=a/b D、a=a/b：b=a*b：a=b/a

查看解析
16、关于二进制、十进制与十六进制的整数，下列说法正确的是（）

A、7位二进制数的最大值为128D B、任何4位二进制数都不可能大于FH C、仅凭十六进制最末位上的数，无法确定该数的奇偶性 D、在十六进制数最末位后添上一位十六进制数A，所得新数是原数的16倍

查看解析
17、使用GoldWave软件打开某音频文件，选中一段音频后的部分界面如图所示。下面说法正确的是（）

A、当前状态下执行“删除”命令，在右声道的10秒处会出现10秒的静音 B、“剪裁”即保留，在当前状态下执行“剪裁”操作，结果与“选定部分另存为”相同 C、复制一段时长为5秒的音频粘贴至当前音频文件中，当前音频右声道只剩下20秒的音频信息 D、根据当前音频的参数，该音频1分钟播放的数据量可达约10MB

查看解析
18、一幅大小为1024*768，位深度为24位的BMP图片，把它另存为大小为512*768像素的黑白256级灰度BMP图像，其存储容量约为原来的（）

A、1/24 B、1/18 C、1/12 D、1/6

查看解析
19、有一条数据“20210106，杨逸，False，2001/12/08|”想分别复制到相应的字段中，有出错提示，可能原因是（）

A、“出生年月”格式与数据表中不一致 B、“学号”字段值不能手动输入 C、“性别”字段值，不支持False D、“学号”字段是主键

查看解析
20、下列关于网站与网页描述正确的是（）

A、搜索引擎搜索信息时，可通过减少关键字来减少搜索到的信息数量 B、若使浏览器启动时自动打开某个网站，可使用主页的功能 C、选择“网页，仅HTML”方式保存网页，保存的文件含超链接，不含表格和图像 D、只有纯文字的网页才可以用记事本编辑

查看解析

上一页 1217 1218 1219 1220 1221 下一页跳转