相关试卷

1、某对分查找算法的VB程序段如下：
Key = Val(Text1．Text)

i= l：j= Key

Do While i<= j

     m=(i+j)\2          '①

     If Key=m*m Then Exit Do 'Exit Do表示退出循环

     If Key>m* m Then i=m+ 1 Else j=m- 1

Loop

If i> j Then

     Label1．Caption= Key & "不是完全平方数"

Else

     Label1．Caption= Key & "是完全平方数"

End If

运行该程序段，在文本框Text1中输入15，运行后①处语句的执行次数是（    ）

A、3 B、4 C、5 D、6

查看解析
2、一个序列经过一趟冒泡排序后的结果是：10，21，13，24，28，则原始序列不可能是( )

A、21，13，24，28，10 B、21，10，24，28，13 C、21，10，24，13，28 D、21，24，13，28，10

查看解析
3、某算法的部分流程图如图所示。执行这部分流程，则输出s的值是( )

A、52 B、74 C、80 D、82

查看解析
4、下列VB表达式的值为True的是( )

A、"9"< "10" B、2021 Mod 100\ 10= 2 C、Len("12" + "3")= 3 D、Int(-4．1)=-4

查看解析
5、将一段时长为50秒，采样频率为44100Hz，量化位数为16bit的双声道声音存储为MP3格式，存储容量约为1.2MB，则压缩比约为( )

A、3.5：1 B、7：1 C、28：1 D、56：1

查看解析
6、使用Photoshop软件制作“丰收节”作品，部分编辑界面如图所示。

下列说法正确的是（）

A、“背景”图层被锁定，不能直接删除“背景”图层 B、当前状态下，可以用自由变换仅调整“文字”图层中部分文字的大小 C、当前状态下，可以对“枫叶”图层执行“拷贝图层样式”操作 D、将该文件直接保存为BMP格式图像，“农民”图层内容不可见

查看解析
7、下列关于计算机信息编码的描述，正确的是（）

A、汉字的输入码不是唯一的，常见的有音码、形码等 B、ASCII 码在计算机中存储时占8位，共有256个ASCII字符 C、用视频处理软件把AVI格式视频转为MPEG格式的过程是无损压缩 D、若两位十六进制数的首位不为“0”，末位为“0”，则其一定大于十进制数16

查看解析

8、小明使用Access软件设计“水果进货”数据表，存储如下图所示的“水果进货单”。

水果编号	水果名称	单位	单价	入库数量	入库日期	审核
A001.	红富士苹果	箱	￥75.00	50	2021/12/21	已审核
A002	阿克苏苹果	箱	￥80.00	100	2021/12/26	未审核
A001	红富士苹果	箱	￥75.00	100	2021/12/23	未审核
……	……	……	……	……	……	……

下列关于“水果进货”数据表的描述，正确的是（）

A、“水果进货”数据表中的字段数量一定为7个 B、“审核”列对应数据表中的字段类型只能设置为“文本”型 C、“水果编号”列对应数据表中的字段可以设置为主键 D、修改“水果进货”数据表中字段的名称，不会影响字段的值

查看解析

9、下列关于信息安全的说法，不正确的是（）

A、使用自己的生日作为密码既方便又安全 B、随意连接公共场所的Wi-Fi网络存在安全风险 C、随意扫描二维码安装手机APP存在安全风险 D、网上银行支付时通过U盾进行验证，可以提高安全性

查看解析
10、2022 年北京冬季奥运会的吉祥物“冰墩墩”，将熊猫形象与冰晶外壳相结合，整体形象酷似航天员。下列描述不正确的是（）

A、“冰墩墩”形象被人们熟知，体现了信息的共享性 B、“冰墩墩” 图像经过互联网社交媒体传播，没有经过数字化处理 C、“冰墩墩”整体形象的设计与创作，说明信息具有可加工处理性． D、未经授权将“冰墩墩”做成表情包并在网上传播，属于网络侵权行为

查看解析
11、某城市有一条横贯东西的大河，河有笔直的南北两岸，岸上有位置各不相同的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

查看解析
12、某省级医院为了掌握医院内所有患者的体温异常情况，以便做出分类医治处理。现编写了一个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)、请在划线处填入合适的代码

查看解析
13、使用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，并关闭动画，则“看冬奥”按钮的动作脚本为：。

查看解析
14、下面是某校高三年级第一学期期末和期初考试成绩各班各科的平均分汇总表，其中“总平均”一行的值是利用平均值函数计算，现通过期初和期末考试成绩，对各班各学科计算离差值(如图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所示) ，则筛选出条记录。

查看解析
15、有如下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

查看解析
16、某程序代码如下所示：
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

查看解析
17、有如下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

查看解析
18、在一篇英语短文中统计某字母开头的单词个数的程序，短文以“．”结束，单词之间用空格分隔，单词首写没有大写字母，没有缩写或其他特殊形式。部分程序代码如下所示：
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

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

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

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

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

查看解析

上一页 376 377 378 379 380 下一页跳转