相关试卷

1、某城市有一条横贯东西的大河，河有笔直的南北两岸，岸上有位置各不相同的N个城市。城市按照地理位置先后进行从小到大编号，两岸的部分城市结成--对一的友好城市，即南岸的每个城市有且仅有一个友好城市在北岸，且不同城市的友好城市不能相同。每对友好城市都向政府申请在河上开辟一条直线航道连接两个城市，政府决定避免任意两条航道交叉，以避免事故(如图16-1所示)，请帮助政府做出一些批准和拒绝申请的决定，使得在保证任意两条航道不相交的情况下，被批准的申请尽量多。

小王设计VB程序如下，在标签．上显示南岸城市的位置序号，例如“1，2，3，4，5，"(两岸城市序号之间用逗号分隔)，然后按照南岸城市的顺序在Text1中输入相应的北岸友好城市序号“3，2，4，1，5，”，其中南岸1号城市与北岸3号城市为友好城市，南岸2号城市与北岸2号城市为友好城市，以此类推，单击“分析”按钮，显示最多可批准的申请数量为3个(如图16-2所示)，最终政府批准的3条航道为南岸城市2-北岸城市 2，南岸城市3-北岸城市 4，南岸城市5-北岸城市5。

(1)、南岸城市标签显示“1，2，3，4，5，6，7，”，文本框Text1中输人“3，1，2，5，6，4，7，"，最多批准申请数是个。

(2)、请在划线处填入合适的代码。
Private Sub Command1_ Click()

Dim b(1 To 100) As Integer     'b(i)表示编号i南岸城市对应的北岸友好城市

Dim c(1 To 100) As Integer

Dim n1, lenc As Integer

Dim i, j As Integer

Dim s1 As String

Dim st, ch As String

Dim flag As Boolean

n1=0

s1 = Text1. Text

st =""

For i = 1 To Len(s1)

    ch = Mid(s1, i, 1)

    If ch = "," Then

      n1 = n1+1



      st =""

   Else

    st=st+ch

  End If

Next i

c(1) = b(1)

lenc = 1

For i=2 To n1

  If b(i) > c(lenc) Then

      lenc=lenc+1

      c(lenc) = b(i)

  Else

      j=lenc-1: flag=True

      Do While j>= 1 And flag

        If Then

          c(j+1)=b(i)

          flag = Flase

        End If

        j=j-1

    Loop

     If j = 0 And flag Then



      End If

  End If

Next i

Label1. Caption = "最多批准申请数：" + Str(lenc) + "个"

End Sub

查看解析
2、某省级医院为了掌握医院内所有患者的体温异常情况，以便做出分类医治处理。现编写了一个VB程序，功能如下：程序运行时，在列表框List1中显示从数据库中读取的所有患者的地区、姓名、体温信息，单击“统计人数”按钮Command1 ，统计出各地区体温异常(大于等于37.4 ℃)的人数，并按照体温异常人数进行降序排序，在列表框List2中显示这些体温有异常的地区和对应的人数；单击“显示名单”按钮Command2，列表框List3中显示有异常体温的地区的人员相关信息。

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

(2)、加框处代码有误，请改正
Dim n As Integer      '总人数

Dim dq(1 To 2000) As String

Dim xm(1 To 2000) As String

Dim tw(1 To 2000) As Single

Dim city(1 To 100) As String

Dim citynum(1 To 100) As Integer

Dim citys As Integer

Private Sub Form_ Load()

    '该过程的作用从数据库读取n个患者的信息，并在列表框List1输出所有患者的地区、姓名、体温信息。

    'dq数组存储患者的地区信息

    'xm数组存储患者的姓名信息

    'tw数组存储患者的体温信息

    '代码略

End Sub

Private Sub Command1_Click()

Dim i, j As Integer

Dim s As String, t As Integer

citys=0

For i=1 To n

    If tw(i)>>=37.4 Then

      For j = 1 To citys

        If Then citynum(j) = citynum(j) +1: Exit For

      Next j

      If j> citys Then citys = citys +1: city(citys) = dq(i) : citynum(citys) = 1

    End If

Next i

For i=1 To citys-1

    For j = citys Toi + 1 Step -1

        If Then

            s = city(j): city(j) = city(i): city(i) = s

            t = citynum(j): citynum(j) = citynum(i): citynum(i) = t

        End If

    Next j

Next i

For i=1 To citys

    List2． AddItem city(i)+" "+Str( citynum(i))

Next i

End Sub

Private Sub Command2_ Click( )

Dimi， j As Integer

For

    For j=1 To n

      If dq(j) = city(i) And tw(j) >= 37.4 Then

        List3． AddItem dq(j) + ""+ xm(j) + ""+ Str(tw(j))

      End If

    Next j

Next i

End Sub

(3)、请在划线处填入合适的代码

查看解析
3、使用Flash软件制作“冬奥会．fla”多媒体作品，部分编辑界面(如图14-1所示)：

(1)、有关多媒体作品设计，下列说法正确的是 (多选)

A、确定作品的主题思想、结构类型、作品内容、作品效益、作品发布方式等均属于创作需求分析； B、Flash是以时间序列为基础的多媒体创作工具； C、文字脚本能作为多媒体作品制作的直接依据； D、在结构设计时需要考虑屏幕布局合理规范和交互设计友好快速； E、媒体元素分解将进一步细化“媒体素材”中所列出的媒体元素；

(2)、“音乐”图层的音乐是从第18 帧开始出现的，要使音乐一开始就出现，不重复播放，则下列说法正确的是 (多选)

A、选择“音乐”图层的第18帧执行“复制帧”，并在该图层的第1帧执行“粘贴帧”命令； B、选择“音乐”图层的第1帧执行“删除关键帧”命令； C、选择“音乐”图层的第1帧执行“清除关键帧”命令； D、选择“音乐”图层的第18帧移至该图层的第1帧； E、选择“音乐”图层的第1帧执行“清除帧”命令；

(3)、“吉祥物”图层中文字“冰墩墩”渐变成冬奥吉祥物图像冰墩墩，但是未创建成功，其第1帧和第15帧的内容分别(如图14-2所示)，要成功创建，该如何修改？

(4)、在播放生成的“冬奥会．swf”影片文件时，发现动画播放到最后一帧时出现“看冬奥”按钮，单击按钮链接到网址： https：//www． beijing2022． cn，并关闭动画，则“看冬奥”按钮的动作脚本为：。

查看解析
4、下面是某校高三年级第一学期期末和期初考试成绩各班各科的平均分汇总表，其中“总平均”一行的值是利用平均值函数计算，现通过期初和期末考试成绩，对各班各学科计算离差值(如图13-1所示)，请回答下列问题：

(1)、该校高三年级1班化学学科离差值计算公式(如图13-1所示)，2班的地理学科离差值通过复制F15单元格公式得到的，则J16单元格的公式为。

(2)、下列说法正确的是 (多选)

A、在《期末考各科平均分汇总表》中筛选出选考地理的班级后，上述图表会发生变化； B、对《期末考各科平均分汇总表》以语文为关键字进降序排序后，上述图表会发生变化； C、该图表的数据区域为A15：A22，C15：C22； D、不小心把单元格B3的数据清除，则B15单元格的值会变成负数，而B16：B22区域的值几乎不变；

(3)、复制A13：K22区域到新工作表中，对数学学科执行筛选操作(如图13-2所示) ，则筛选出条记录。

查看解析
5、有如下VB程序段：
n = 8: flag = True: c=0: x=1: y=n

Do While flag

p = False: flag = False

For j=y To x+1 Step-1

c=c+1

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

      t=a(j): a(j)=a(j-1): a(j-1)=t

      x =j: flag =True

      If p=False Then y=j: p=True

    End If

Next j

If y <> n Then y= y+ 1

Loop

数组a(1)到a(8)值依次为“4，10，15，18，16，17，20，25”，程序运行后，变量c的值为(    )

A、2 B、9 C、14 D、21

查看解析
6、某程序代码如下所示：
i=1：j=100：Key=20

Do While i<=j

    a = i+(j- i)\4： b= i+(j- i)\ 2：c=j-(j-i)\4

    If a=Key Or b=Key Or c=Key Then ExitD o

    If i<= Key And Key< a Then j= a- 1： w= w+ 1

    If a< Key And Key < b Theni = a+ 1： j= b-1：x=x+1

    If b < Key And Key < c Then i= b+1：j=c-l：y=y+1

    If c<Key And Key<=j Then i=c+1：z=z+1

Loop

n=w+x+y+z

程序运行结束后，变量n的值是(    )

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

查看解析
7、有如下VB程序段：
a(0)= Int(Rnd() * 6+95)

For i=1 to 5

a(i)=a(i-1)-Int(Rnd() * 6)

If i Mod 2=0 then

a(i)=a(i)+a(i) Mod 2

End if

Next i

执行该程序段后，在下列选项中，a(0)~a(5)各元素值可能是( )

A、96，95，90，89，86，82 B、95，92，89，87，86，84 C、95，92，88，86，84，85 D、100，92，88，86，86，84

查看解析
8、在一篇英语短文中统计某字母开头的单词个数的程序，短文以“．”结束，单词之间用空格分隔，单词首写没有大写字母，没有缩写或其他特殊形式。部分程序代码如下所示：
s= Text1. Text    '输人的英语短文

t= Text2. Text    '要统计的开头字母

b=Len(s): f = True

For i=1 To b

c = Mid(s, i, 1)

If   ①   Then

    n= n+1

    ②

ElseIf c = "" Or c= "." Then

    ③

Else

   f = False

  End If

Next i

Label1.Caption= "以" + t + "为开头的单词个数：" + Str(n)

为实现上述程序，划线处应填入的代码是(    )

A、①f and c=t②f= False ③f= True B、①f=False and c=t②f= False ③f= True C、①c=t②f= True③f= False D、①f= True and c=t②f= True③f= False

查看解析
9、VB表达式Abs(Int(-6.1)) Mod 42的值是( )

A、2 B、4 C、6 D、7

查看解析
10、某算法的部分流程图如图所示，若输人k的值为9，最终i，s的值分别为( )

A、11 0 B、11 -11 C、9 0 D、9 -9

查看解析
11、有一副分辨率为1024*512的BMP图像，其存储容量约为0.5MB，则该幅图像每个像素点能表达的颜色数量是( )

A、2种 B、8种 C、256种 D、65536种

查看解析
12、用Photoshop软件制作“虎啸山林”作品，如下图所示：

下列说法正确的是( )

A、可以直接对“背景”图层使用自由变换操作 B、“虎啸山林，气吞天下”图层进行栅格化后，才能添加图层样式 C、“鱼”图层的图层样式效果中，只有“投影”可见 D、“松树”图层可以移动到“鱼”图层的上方

查看解析
13、小使用Access软件为班级采购设计了如下数据表。

下列说法正确的是( )

A、图中的6个字段中，有5个可以作为主键 B、在数据表视图下添加新的字段，可以撤销 C、“价格”字段的数据类型可能是货币 D、将数据表导出到Excel，则该工作表共有5行数据

查看解析
14、使用UltraEdit软件查看字符内码部分界面如图所示。

下列说法正确的是( )

A、该字符串共有7个ASCI字符 B、字符“C”与字符“b”内码的差值为1111B C、字符“J”的十六进制内码是“54” D、“虎虎”两字在存储时占16bit

查看解析
15、下列关于网络与浏览器的说法正确的是( )

A、网站的地址用URL(统一资源地址)标识，即该网站所有网页都有相同的URL B、实现将邮件从发件服务器发送到收件人客户端的协议是SMTP协议 C、在搜索引擎中可以利用增加关键字的方式来扩大搜索范围 D、选择“网页，全部”保存方式保存的网页被打开后，不能在地址栏看到该网页的URL

查看解析
16、下列有关信息和信息技术说法正确的是( )

A、信息的形态在传递过程中不能转换 B、信息可以传递和共享，加工处理后的信息是真实可靠的 C、同一种信息内容可以采用不同的表达方式 D、信息可以脱离载体但不能脱离它所反映的事物

查看解析
17、张老师在筹备一次班级活动，活动的场地可以看成由m*n个小方格组成的矩阵(m，n<=100)，由于活动需要，计划给这个场地铺上红地毯。当前的地毯都是矩形的，但是大小不一每块地毯铺设位置由左上角(x1，y1)和右下角(x2，y2)两个坐标确定，且刚好铺满该矩形区域。
张老师想了解每个小方格被多少块地毯覆盖，以便更好地调整地毯铺设位置，他编写了VB程序，实现以下功能：在文本框Text1中输人行数m，在文本框Text2中输入列数n，在Text3中输入每块地毯铺设的坐标x1，y1，x2，y2……坐标之间逗号分隔，地毯数量不超过100)，单击计算按钮Commmand1，在列表框List1中显示每个小方格被多少块地毯覆盖。程序运行界面如图所示。

(1)、文本框Text1中输人行数为5，在文本框Text2中输人列数5，在Text3中输人的地毯铺设的坐标为s=1，1，2，2，1，2，3，3则最后输出矩阵a(7)的值为。 (填数字)

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

Dim n As Integer

Dim a, b, C, d As Integer

Dim flag(0 To 10000) As Integer

Dim sum(0 To 10000) As Integer

Dim pos(0 To 100) As Integer

Private Sub Command1_Click()

    List1. Clear

    m = Val(Text1. Text)

    n = Val(Text2. Text)

    s = Text3. Text

    '读取每块地毯坐标,并按顺序存储在pos数组中

    '地毯总数量存储在变量k中

    For i=1 To k

        a= pos(i * 4- 3)：b= pos(i * 4- 2)：c= pos(i * 4- 1)：d= pos(i * 4)



    Next i

    For i=1 To m



        For j=1 To n

            sum((i- 1) *n+ j) = sum((i- 1) * n+ j- 1) + flag((i- 1)*n+ j)

            s=s+Str(sum((i-1)*n+j))

        Next j

        List1. AddItem s

    Next i

End Sub

Sub add (ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer)

   '按行标记地毯铺设情况

    For i=x1 To x2

        flag((i - 1) * n + y1) = flag((i- 1)*n+y1) + 1



    Next i

End Sub

查看解析
18、某校要举行国际象棋比赛，计划组织k场对弈。每个人最多参加2场对弈，最少参加0场对弈。每个人都有一个与其他人不相同的等级(用一个正整数来表示)。在对弈中，等级高的人用黑色的棋子，等级低的人用白色的棋子。每个人最多只能用一次黑色的棋子和一次白色的棋子。为增加比赛的可观度，观众希望k场对弈中双方的等级差的总和最小。
比如有7个选手，他们的等级分别是30，17，26，41，19，38，18，要进行3场比赛。最好的安排是选手2对选手7，选手7对选手5，选手6对选手4。此时等级差的总和等于(18-17)+(19-18)+(41-38)=5达到最小。

窗体form1的运行界面如下图所示，用户在文本框Text1中输入各位选手的等级(以逗号分隔)，在文本框Text2中输人要对弈的场数k，单击计算按钮Commmand1，在文本框Text3中显示最小等级差总和。程序运行界面如图所示。

(1)、若要使得的在程序启动时文本框text1中内容自动清空，可在以下哪个事件处理过程中编写代码实现                 (选填)

A、form1_load() B、Text1 _Change() C、form_load() D、text1_load()

(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim a(0 To 1000) As Integer

Dim b(0 To 1000) As Integer

Private Sub Command1_ Click()

    Sum=0

    k = Val(Text2. Text)

    s =Text1. Text

    cnt =1

    For i=1 To Len(s)

        c=mid(s, i, 1)

        If c="," Then cnt=cnt+1 Else

    Next i

    For i=1 To cnt-1

        For j=1 To cnt-i

          If Then

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

            End If

        Next j

    Next i

    '计算出各等级选手之间差值

    For i=1To cnt- 1

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

    Next i

    For i=1 To k

        Min=i



            If b(j) < b(Min) Then Min = j

        Next j

        Sum = Sum + b(Min)



    Next i

    Text3. Text = Str(Sum)

End Sub

(3)、加框处的程序代码有错，应改为。

查看解析
19、制作“香浓奶茶"多媒体广告，首先在Photoshop软件中制作效果图，然后在Flash软件中制作动画，相关界面如下所示，请回答以下问题。

(1)、如图a所示，在photoshop软件中制作广告效果图，其中“奶茶“的画面区域已经建立了选区，以下说法正确的是。(多选，填字母)

A、“标题”图层与“文字”图层设置了相同的图层样式 B、当前状态下，选中“背景”图层，可以直接为整个背景画面设置滤镜效果 C、当前状态下，无法使用“自由变换”命令修改“标题”图层的字体大小 D、“标题”图层与“奶茶”选区没有重叠部分，“投影”效果不可见 E、“奶茶”与“文字”图层锁定，无法使用“图像大小”命令调整图像 F、当前状态下，有4个图层可以设置滤镜效果

(2)、根据制作脚本，“标题”图层要实现“标题文字从完全透明到完全显示，停留一段时间后再“淡出”的效果，则标题图层第1帧中的标题文字实例的Alpha属性值应设置为，第1-20帧的补间类型为。

(3)、测试影片，发现“标题”图层第48-80帧未能实现淡出效果，根据图b分析，其原因可能是。

(4)、结合图b，以下说法正确的是 (多选，填字母)

A、“背景”图层第80帧执行“清除关键帧”操作可使背景画面从头到尾一直显示 B、“按钮"图层第1帧移至第80帧，按钮将在场景结束时才出现，不改变其它动画效果 C、“奶茶”图层的动画为“逐帧动画” D、“音乐”图层的声音同步属性设置为“数据流”或“事件”，播放效果无异 E、若将影片的帧频调整为10fps，声音的播放速度不会改变 F、“按钮”图层第80帧的动作脚本可能是on(press){stop()；}

(5)、点击“新品上新”按钮，跳转到“new”场景第1帧播放，并停止音乐的播放，则在该按钮上设置的动作脚本为on(press){}。

查看解析
20、某同学收集了1980-2021 年浙江省学校教师负担学生数相关信息，并用Excel软件进行数据处理，如图a所示。请回答下列问题：

(1)、将D4单元格公式粘贴到G4单元格计算出中等学校学生总数，则G4单元格公式为。

(2)、为了更加直观地比较2014-2021年高等学校“平均每个教师负担学生人数”的变化情况，建立如图b所示的图表。则生成该图表的数据区域是。

(3)、若要整理高等学校“平均每个教师负担学生人数”大于5.0的年份的信息，下列说法正确的是 (多选，填字母)。

A、将表中A4：G45中数据，以列C为关键字降序排序，可自上而下选取C列中大于5.0的记录 B、对表格中C列数据进行筛选，在如图c搜索框中输入“>5.0” C、对表格中C列数据进行筛选，自定义筛选条件为“大于5.0” D、若在C列设置筛选条件“大于5.0”，图b所示的图表将发生变化

查看解析

上一页 401 402 403 404 405 下一页跳转