相关试卷

1、学校需要从A班(共50人)选拔一批学生集训准备比赛。小明为了减轻老师的工作量，编写了一个程序帮助老师解决这个问题，将所有学生的成绩排序后按照预设人数划取分数线。由于相同分数可能有多个学生，找出最接近预设人数的分数作为分数线。如果按照前分和按后分录取增加或减少的人数相同时则按高于录取人数进行录取，最后输出录取的学生名单。例如现要求选拔15个学生，排序后第14-20名的学生成绩相同，由于13比20更接近预录取人数，因此实际只录取13人。小明编写的VB程序如下，在文本框Text1中输入拟录取人数，单击“确定”按钮后，在标签Labe15和Labe16中输出录取人数和分数线，在List1中输出录取学生名单。
实现上述功能的代码如下。请回答下列问题：

(1)、观察代码，“确定”按钮的对象名是。

(2)、请在划线处填入合适的代码
Dim xh(0 To 100) As String ．

Dim cj(0 To 100) As Integer

Const num = 50

Private Sub Form_ Load ()

‘本过程从数据库读取每位学生的学号和成绩存放在数组xh和cj中，代码略

End Sub

Private Sub Com1_Click ()

   Dim i As Integer， m As Integer， n As Integer， k As Integer， a As Integ

   a = Val(Text1.Text)

   For i=1 To num-1

        k=

        If k<>i Then

            t=cj(k)：cj(k)=cj(i)：cj(i)=t

            s=xh(k)：xh(k)=xh(i)：xh(i)=s

      End If

   Next i

   m=a-1：n=a+1

   Do While cj(m) = cj(a)

      m=m-1

   Loop

   Do While cj(n) = cj(a)

      n=n+1

   Loop

   If m<>0 And Then lq = m Else lq=n-1

   Label5.Caption = Str(lq)

   Label6.Caption = Str(cj(lq))

   List1.AddItem “字号”+“学号”+“成绩”

   For i=1 To lq

       List1.AddItem Str(i) +“ ”+xh(i)+Str(cj(i))

  Next i

End Sub

Function imax(x As Integer， y As Integer) As Integer

  Dim i As Integer，j As Integer

   i=x

   For j=x+1 To y

        If Then i=j

   Next j

   imax = i

End Function

查看解析
2、小明利用GoldWave和Flash制作了“倒计时”的动画。作品的Flash制作界面如图a所示。请回答下列问题：

(1)、为了获取1秒钟的钟声作为倒计时声音，老师下载了3秒时长的声音，然后用GoldWawe软件截取声音，步骤如下：①单击按钮选择1秒时长的音频；②单击按钮截取1秒时长的音频：③保存声音，并导入到Flash中。其中第①步中应使用的按钮是，第②步中应使用的按钮是(选填字母：A . \B . \C . \D . ）

(2)、图层“5”、“4"、“3”、“2”、“1”、“0”中分别是数字5、4、3、2、1、0的由大变小的动画，每出现一个数字动画，钟声响一次。现将钟声添加到背景图层第1帧，其属性面板如图b所示。为使“钟声”与数字动画同步，应作的调整是。

(3)、测试影片时，发现播放数字0的动画时，数字1仍停留在画面上，观察图a，应对图层1作的调整是。

(4)、测试影片时，当最后一个数字0的动画播放完毕后，动画停止播放，可以实现这一要求的操作是。

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

请回答下列问题：

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

(2)、为了分析数据的需要，创建了如图b所示的图表，则创建该图表的数据区域是。

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

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

查看解析
4、有如下VB程序段
Dim a(1 To 8) As Integer， b(1 To 8) As Integer

a(1)=1： a(2)=2： a(3)=3： a(4)=2： a(5)=1：a(6)=4：a(7)=3： a(8)=5

b(1)=5：b(2)=3：b(3)=5：b(4)=9：b(5)=7：b(6)=7：b(7)=7：b(8)=6

n=8

For i=1 To n-1

   For j=n-1 To i Step-1

      If a(j)*b(j+1)<a(j+1)*b(j)Then

            t=a(j)：a(j)=a(j+1)：a(j+1)=t

            t=b(j)：b(j) =b(j+1)：b(j+1)=t

        End If

  Next j

Next i

For i=1 To 8

  List1.AddItem str(a(i))+" "+str(b(i))

Next i

运行该程序段后，列表框List1第5行显示的内容为（    ）

A、1 5 B、3 7 C、2 5 D、4 7

查看解析
5、有如下VB程序段
Dim k As Integer， num As Integer， m As Integer

Dim s As String， ans As String

s =" abcdefghi jk lmnopqrs tuvwxyz "

k=26：ans=””

m = Val(Text1.Text)

Do While m> 0

   x=Int(Rnd()*k)+1

  ans=ans+Mid(s， x，1)

   s =Mid(s，1，x-1)+Mid(s，k，1)+Mid(s，x+1，26-x)

  k=k-1：m=m-1

Loop

Text2.Text = ans

文本框Text1中输入4，执行上述程序后，文本框Tex2中有显示的内容不可能为（    ）

A、snyg B、tuna C、vmlc D、Amzm

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

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=1To 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 Text2.Text=Text2.Text+Str(a(i))

Next i

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

A、4 4 4 B、4 4 C、3 D、3 3

查看解析
7、有如下程序段
Private Sub Command1_Click ()

   Dim a(1 To 10) As Integer，i As Integer

   For i=1 To 10

        a(i)=i^i

  Next i

   List1.AddItem Str(a(i))

End Sub

运行程序，单击命令按钮Command1后，出现的错误提示为（    ）

A、下标越界 B、类型不匹配 C、溢出 D、子程序或函数未定义

查看解析
8、某算法的部分流程图如图所示。若要计算 $s = 1 - \frac{1}{3} + \frac{1}{5} - \frac{1}{7} + \frac{1}{9}$ ，则流程图中①处填入的语句（）

A、s←1/k*i B、s←s+1/(k*i) C、s←1/(-k)*i D、s←s+1/k*i

查看解析
9、下列表达式的值一定为False的是（）

A、Mid("Visual"，1，1) < Mid("Visual"，2，1) B、Len("654321")>Int (Rnd*3) ~2 C、1=6/2\2 D、Val("1"+"1")=2

查看解析
10、一幅未经压缩的1024*768像素、RGB/8 模式的BMP图像，使用photoshop将图像的宽度和高度各缩小到原来的50%，再存储为16位色的BMP图像。则处理前后的文件存储容量之比约为（）

A、6：1 B、8：1 C、2：1 D、12：1

查看解析
11、下列关于多媒体技术的说法不正确的是（）

A、多媒体技术的交互性是指媒体与媒体之间的信息交互 B、多媒体技术中的媒体是指承载信息的载体，如文字、声音、图形和图像等 C、多媒体作品的设计可分为需求分析、规划设计、脚本编写三大步骤 D、多媒体数据压缩后出现了少量失真，这种压缩必为有损压缩

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

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

查看解析
13、关于Access数据库，下列说法不正确的是（）

A、新增记录，不会对已有记录的字段值产生影响 B、Access、FoxPro是小型数据库管理系统 C、在Access数据表输入数据后，则不能再将任何字段设置为主键 D、数据库中可以存储图片或视频

查看解析
14、下列关于浏览器与网页描述正确的是（）

A、使用搜索引擎搜索信息时，可通过减少关键字来减少搜索到的信息数量 B、若使浏览器启动时自动打开某个网站，可使用浏览器主页的功能 C、在IE浏览器中，选择“网页，仅HTML(*．htm；*．html)”类型保存网页，不可以保存网页中的超链接 D、只有纯文字的网页才可以用记事本编辑

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

A、古代也有信息技术，人类主要通过手势、声音和各种形体动作来表达信息 B、信息具有时效性，因此获取的信息应当立即发布 C、信息具有共享性，可以在网盘中共享任何视频 D、档案卷宗上记录有不同时期的重要事件，所以档案卷宗是信息

查看解析
16、从2022年1月起，浙江省的选考成绩将采用新的一分一赋的赋分制，赋分等级与比例如图1所示。

赋分具体步骤为：

第一步，将卷面得分按人数比例划分为20个赋分区间，得出每个区间卷面得分的上限、下限。(说明：每个赋分等级人数=总人数×每个赋分等级比例(结果四舍五入取整) ；当卷面得分相同但人数超出该等级人数时，则减少下一档的人数。)

第二步，对每个区间的卷面得分进行等比例转换成赋分，公式为： $\frac{s 2 - s}{s - s 1} = \frac{t 2 - t}{t - t 1}$

其中，s2、s1为卷面得分区间的上限和下限，s为待转换卷面得分；t2、t1为赋分区间的上限和下限，t为卷面得分等比例转换后的赋分。

第三步，将转换后的赋分t取整(小数部分四舍五入)。

编写VB程序，实现成绩赋分功能：在列表框List1中显示某市所有学生的考号，原始成绩(无0分，降序排列)和名次(同分同名)，单击“成绩赋分”按钮Command1后，赋分成绩按从高到低的顺序显示在列表框List2中。程序界面如图2所示。

(1)、若赋分区间为87-85，其对应的卷面得分区间在84-81，某考生的卷面得分为83，则通过比例公式转换，该考生的等级赋分为分。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 18000     '总人数

Dim kh(1 To n) As String    '学生考号

Dim cj(1 To n) As Single     '原始成绩

Dim cj2(1 To n) As Integer    '赋分成绩

Dim mc(1 To n) As Integer '原始成绩的排名

Dim pro(1 To 20)As Single    '每个等级的人数比例

Dim t(1 To 40) As Integer    '每个等级赋分区间的上限和下限

Dim s(1 To 40) As Single     '每个等级卷面得分的上限和下限

Dim num(1 To 20) As Integer

Private Sub Form_ Load()

  '从数据库中读取数据，将考号、原始成绩分别存储在数组kh和数组cj中

   '将每个等级的比例存入数组pro中

  '将每个赋分区间的上限、下限存入数组t中(如t(1)、t(2) 分别存储等级1的赋分上限100，下限97)

'将数组cj降序排列，计算出名次存入数组mc中，并显示在List1中，代码略

End Sub

Private Sub Command1_Click()

    Dim flag As Boolean， k As Integer， i As Integer

    num(1) = Int(pro(1) * n + 0.5)

    For i=2 To 20

        num(i) =

    Next i

    num(20) = n

    k=1：flag=True：i=1

    Do While i<=n       '划定每个等级相应的卷面得分的上限和下限

        If me(i) <num(k) Then

            If flag Then s(2 * k- 1) = cj(i)

            flag = False

            i=i+1

        ElseIf Then

          s(2 * k) = cj(i)

            flag = True

            i=i+1

        Else



            flag = True

            k=k+1

        End If

  Loop

  If s(2*k)=0 Then s(2*k)=cj(n)

   '根据比例转换公式计算每个考生的赋分结果，存入数组cj2中，代码略。

   For i= 1To n

      List2.AddItem kh(i) +”” + Str(cj(i)) +”” + Str(cj2(i))

  Next i

End Sub

查看解析
17、字母排队游戏。有一组不重复的字母串，现根据大小写分别进行排队。排队规则如下：①根据字母大小写按原顺序提取字母，大写字母排一队，小写字母排一队；
②固定两队字母中最小字母在各队中的位置；

③将两队其余字母按从小到大的顺序排在各自最小字母的两边。大写字母队列先从最小字母右边排队，排到最后位置再从最小字母左边开始排，直到第一个位置为止。同理，小写字母队列先从左边开始排队，再排右边。过程如图1所示：

编写VB程序，实现字母排队功能：在文本框Text1中输入待排字母串后，单击“排队”按钮Comand1，在列表框List1中显示排队结果。程序运行界面如图2所示。

请回答下列问题：

(1)、根据程序运行界面，“字母排队”是窗体Form1的(单选，填字母：A .对象名/B .属性名/C .属性值/D .过程名)。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim flag(1 To 52) As Boolean     'flag数组初值为False

Private Sub Command1_Click()

    Dim su As String， sd As String， ch As String      'su，sd分别存储大小写字母队

    Dim i As Integer， n As Integer

    Dim ku As Integer， kd As Integer

    s = Text1.Text：n =Len(s)

    For i=1 To n

        ch =

        If ch >="A" And ch <="Z" Then su= su+ ch

        If ch>="a"Andch<="z"Thensd=sd+ch

    Next i

    ku = search(su， 0)

    kd = search(sd， 6

    su=“”：sd=“”

    For i=1 To 52

        If flag(i) And i<=26 Then su=su+Chr(i+64)

        If flag(i) And i>26 Then

    Next i

    List1.AddItem sort(su，ku， 1)

    List1.AddItem sort(sd，kd， -1)

End Sub

Function search(s As String， k As Integer) As Integer     '确定字母队列并查找最小元素位置

    Min = Mid(s，1， 1)

    flag(Asc(Min) - 64 - k) = True

    mini = 1

    For i=2 To Len(s)

        ch = Mid(s， i，1)

        If ch<Min Then mini=i：Min=ch



    Next i

    search = mini

End Function

Function sort(s As String， wz As Integer， k As Integer) As String      '排队

    nx = Len(s)

    sort = Mid(s， 1，1)

    i=2

    nc=1

    Do While nc <= 2

        For j=wz+k To nx^((1 +k) \ 2) Step k

            If k= 1 Then

                sort = sort + Mid(s，i，1)

            Else

                sort = Mid(s， i， 1) + sort

            End If

            i=i+1

        Next j



        nc=nc+1

  Loop

End Function

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

查看解析

18、小雅同学使用Flash软件创建“五色花”多媒体作品，其中“片头”场景的制作脚本如下表所示，部分界面如下图所示。

场景名：片头

类别序号： 1

进入方式：启动动画自动播放

呈现方式：

①种子图层的“种子”在从完全透明到完全显示的过程中逐渐变成一朵“五色花。

②文字图层依次出现“五”、“五色”“五色花’文字效果，并保留到本场景动画结束。

③“播放”按钮位于舞台左侧靠下位置，单击该按钮，停止本场景音乐并跳转到“故事”场景第1帧暂停。

呈现顺序：

①一开始呈现背景、种子、云朵和音乐。

②1秒后“文字”图层出现“五”2秒后出现“五色”、3秒后出现“五色花”

③最后出现“播放”按钮，背景音乐不停止。

请回答下列问题：

(1)、关于Flash作品制作，下列说法正确的是 (多选，填字母)。

A、测试影片时，场景播放顺序与场景名无关 B、删除库中元件，舞台上的实例会随之消失 C、舞台，上所有的对象均由元件生成 D、将声音同步方式设置为“数据流”或“事件”，其对应的播放效果一定不同

(2)、根据制作脚本和动画编辑界面，“种子”图层的动画类型为(单选，填字母：A．逐帧动画/B．形状补间/C．动画补间)。若在“片头”场景中将帧频调整为10fps，则“种子”变成“五色花”动画效果的速度将 (单选，填字母：A .变快/B .变慢/C .不变)

(3)、测试影片时，发现“文字”图层一开始就出现“五色花"的三个字，不符合制作脚本的要求。为了符合制作脚本的要求，对“文字”图层的操作方法可行的有 (多选，填字母)。

A、将第1帧移动到第13帧 B、将第1帧移动到第37帧 C、选中第1帧清除舞台上的内容 D、选中第1帧，执行“转换为空白关键帧”操作 E、选中第1帧，执行“清除关键帧”操作，再把第1帧移动到13帧

(4)、根据制作脚本，“ 播放"按钮的动作脚本为。

查看解析

19、某校一次考试的成绩数据用Excel软件进行处理，如图所示。

请回答下列问题：

(1)、区域M3：M172的数据是通过公式计算得到的，在M3单元格中输入公式，再使用自动填充功能对区域M4：M172进行填充。

(2)、为了实现1班的总分从高到低排序，下列对区域A2：M172的操作可行的是 (多选，填字母)。

A、先按“班级”为关键字升序排序，再按“总分”为关键字降序排序 B、以“班级”为主要关键字升序、“总分”为次要关键字降序进行排序 C、以“总分”为主要关键字降序、“班级”为次要关键字升序进行排序 D、先按“班级”筛选，选择值为“1班”，再按“总分”进行降序排序

(3)、若表格数据已按班级升序排序，要找出2班总分最高分，可在指定单元格用公式“=max ()”实现。

查看解析
20、某VB程序段如下
数组元素f(1)到f (8)赋初值为0，代码略

Key = Int(Rnd*7)*2+3

i =1：j=8：c=0

Key = Val(Text1.Text)

Do While i<=j

  m=(i+j)\ 2

  f(m) = 1

   If Key <= a(m) Then j =m-1 Else i=m+1

    For n=1 To 8

       c=c+f(n)

  Next n

数组元素a(1)到a(8)的值依次为“3，7，9，10，15，15，15，20”，执行该程序段后，则（    ）

A、变量j的值可能为8 B、变量c的值一定为3 C、变量i的值可能为9 D、a(j)的值可能等于key

查看解析

上一页 806 807 808 809 810 下一页跳转