相关试卷

1、有如下VB程序：
Dim s1 As String, s2 As String, n As Integer, t As Integer

Dim a(128) As Integer

s1 = Text1. Text : n = Len(s1)

s2 =""

For i=1 To n

    t = Asc(Mid(s1, i, 1))

    a(t)=a(t)+1

Next i

For i=1 To 128

    Do While a(i)> 0

      s2 = s2 + Chr(i)

      a(i)=a(i)-1

    Loop

Next i

Text2.Text = Mid(s2,5,1)

若Text1中输入的字符串为“He1lo535Study" (不包括引号) ，运行上述程序后，Text2中显示的结果为(    )

A、o B、e C、S D、5

查看解析
2、有如下VB程序：
Dim a(5) As Integer

Dim i As Integer， j As Integer， k As Integer

For i=0 To 5

    a(i) = (Int(Rnd()*5)+1)*2+(iMod 2)

Next i

For i=2 To 5

    j=i

    k = a(j)

    Do While a(j-1)<k And j>1

        a(j)=a(j-1)

        j=j-1

    Loop

    a(j) = k

Next i

执行以上程序后，数组a可能的值是(    )

A、10，9，8，7，7，5 B、9，10，9，9，7，4 C、9，9，8，7，4，2 D、8，11，8，5，4， 3

查看解析
3、有如下VB程序段：
s =Text1.Text

For i =1 To Len(s)

    For j=1 To Len(s)-i+1

      List1. AddItem Mid(s, i, j -i+ 1)

    Next j

Next i

在Text1中输入“abc”(不包括引号)，执行上述程序段后，List1中前三行的内容为(    )

A

B

C

D

a

ab

abc

c

bc

abc

abc

ab

a

abc

bc

c

A、A B、B C、C D、D

查看解析
4、某算法的部分流程图如图所示。执行这部分流程，分别输入45、50、55，则输出值依次为（）

A、6，5 B、5，7，7 C、6，7 D、6，7，7

查看解析
5、下列VB表达式中，能随机产生10至100之间的奇数的是( )

A、Int(Rnd * 90) + 10 B、Int(Rnd * 90) + 11 C、Int(Rnd *45) * 2 + 10 D、Int(Rnd *45) *2+11

查看解析
6、某音频文件的部分参数信息如图所示，在当前状态下，执行删除操作后，文件的容量约为（）

A、3.36MB B、6.73MB C、10.09MB D、20.18MB

查看解析
7、用Photoshop软件制作“防疫宣传”作品，部分编辑界面如图所示。下列说法正确的是（）

A、可以修改“标题”图层名为“宣传语” B、隐藏“树叶”图层，“半圆” 图层也会隐藏 C、“众志成城”图层设置了“波纹”滤镜效果 D、可以把“众志成城”图层的图层样式复制到“背景”图层

查看解析
8、下列关于编码的说法中不正确的是( )

A、编码是按照某种规则或格式，从一种形式转换为另一种形式的过程 B、数据有很多表现形式，但最终存储在计算机中的都是经过一定规则编码后的二进制数据 C、wav、mp3、wma等是常见的音频编码方式，avi、mp4、wmv等是常见的视频编码方式 D、对信息编码，相同位数的八进制数比十六进制数能编更多的码

查看解析
9、用Access打开某数据库文件，部分界面如图所示：

下列说法正确的是( )

A、“info”是所打开数据库的名称 B、“Birthday”字段中不能输入“1982年2月16日” C、若删除数据表中第1条记录，则后面所有记录的ID值自动发生调整 D、“eMail”字段的数据类型既可以设置为“文本”，也可以设置为“备注”

查看解析
10、下列关于网络和协议的说法正确的是( )

A、IE浏览器不仅可以用来解释HTML代码，也可以用来编辑和保存网页 B、www协议负贵web网站和浏览器之间的信息交互 C、网页中三种基本的元素为：文字、图形图像和超链接 D、可利用浏览器中的收藏夹保存网页内容

查看解析
11、下列关于信息的说法不正确的是( )

A、信息是不能独立存在的，必须依附于一定的载体 B、信息是可以加工处理的，加工后的信息必然具备更高的价值 C、信息可以脱离它所反映的事物被保存和传播 D、随着对文物研究的深入，揭示出了更多古代生活细节，这是对信息进行处理的过程

查看解析
12、疫情期间学校实行错时吃饭，中午吃饭时间（文本框Text1）按照高三、高一、高二的顺序依次下课去食堂，年级之间间隔5分钟（文本框Text2），已知每个年级同学数按500人整计算，每分钟进入食堂的人数按100人次计算，5批次可以全部进入食堂。食堂共设置了15个打菜窗口，每个打菜窗口的绝对等待时间依次为“0秒，10秒，20秒，……，（n-1）*10秒”n表示该窗口第n位排队打菜同学。每个窗口最多容纳排队人数=1500/15=100人。
现在设计一个VB程序，计算三个年级每一个批次进入食堂排队打菜完需要的相对等待时间平均值（输出到标签Label1，单位：分钟），以及抽样调查：在文本框Text3中输入某年级第n位进入食堂的同学，排队打到饭菜需要的时间（单位分钟，取整）并输出到标签Label2中。程序运行界面如第16题图所示。

(1)、如图所示，将食堂打菜窗口增加到20个，则平均排队打菜时间将（单选：A .增大/B .减小）。

(2)、实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
Const n= 1500:Const nj = "

Dim d(1 To 3 * 5) As Integer, cw(1 To 100) As Integer, w(1 To n) As Integer

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, t(1 To 3) As Integer

    Dim k As Integer, sum As Long, aver As Integer

    t(1) = TtoM(Text1.Text):k = Val(Text2.Text)

    For i = 1 To 3

        If i > 1 Then t(i) =      '三个年级的午餐时间

        For j = 1 To 5

            d((i -1) * 5 + j) = t(i) + j -1   '记录三个年级每个批次进入食堂的时间点

        Next j

    Next i

    List1.Clear

    For i = 1 To 15

    '输出三个年级每个批次进入食堂的时间点，代码略

    Next i

    For j = 1 To n

        If j Mod 15 = 1 Then

            i = (j -1) \15 + 1

            cw(i) = (i -1) * 10     '每个打菜窗口的等待时间(单位：秒)

        End If

        w(j) = cw(i) -() * 60    '每位同学打菜等待时间

        sum = sum + w(j)

    Next j

    aver = sum \n \60

    Label1.Caption = "平均排队打菜时间：" + Str(aver) + "分钟"

End Sub

Private Sub Command2_Click()

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

    s = Text3.Text

    i = 1

    Do While i <= 3

        If Then j = (i -1) * 500 + Val(Mid(s, 4)): Exit Do

        i = i + 1

    Loop

    Label2.Caption = s+"进入食堂的同学大约" +Str(w(j)\60)+ "分钟左右打到饭菜。"

End Sub

Function TtoM(t As String) As Integer

    '将时间转换为绝对数值，例如t="12:01"→TtoM=721，代码略

End Function

Function MtoT(m As Integer) As String

    '将时间绝对数值转换为时间格式，代码略

End Function

查看解析
13、某商场有升降货梯需要在各个楼层（商场总楼层m=7）之间实现货物运送，已知需要运送的货物量为n件，分别需要从各个起点楼层送去目标楼层，例如“1-7”表示货物需要从楼层1送到楼层7，上下楼层间运作和停顿时间为3分钟，其他时间（包括空闲时上升或下降）不计。设计一个VB程序模拟运送过程，并计算输出上升过程和下降过程分别需要的时间。若起始位置楼层大于目标位置楼层，表示货物需要往下运送，为了提高运送的效率，先将货梯从下往上运送，再实现从上往下运送。
设计一个VB程序，模拟生成10件货物的上升或者下降需求，在数组en和ex中分别记录每件货物起始楼层和目标楼层，将初始需求输出到列表框List1中，然后点击按钮Command1完成货物起始楼层先升后降的排序，当起始楼层相同时，上升中则目标楼层升序，下降中则目标楼层降序。将排序结果输出到列表框List2，最后计算出上升和下降分别需要的总时长输出到文本框Text1。程序界面如下：

(1)、程序界面中有（填数字）类控件没有Caption属性。

(2)、实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
Const n = 10：Const m = 7

Dim en(1 To n) As Integer, ex(1 To n) As Integer

Dimf(1 To n) As Integer      '值为1表示货物往上运送，值为-1表示货物往下运送

'n件货物起始楼层、目标楼层以及升降值分别存入数组en，ex，f，输出到List1，代码略

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, up1 As Integer, up2 As Integer

    Dim t(1 To 2) As Integer, first As Integer, last As Integer, p As Integer

    For i = 1 To n -1

        For j = n To i + 1 Step -1

            up1 = f(j)*(en(j)*10+ex(j)): up2 = f(j-1)*(en(j-1)*10+ex(j-1))

            If f(j) > f(j -1) Or f(j) = f(j -1) AndThen

                p = f(j): f(j) = f(j -1): f(j -1) = p

                p = en(j): en(j) = en(j -1): en(j -1) = p

                p = ex(j): ex(j) = ex(j -1): ex(j -1) = p

            End If

        Next j

    Next i

    i = 1: first = en(1): last = ex(1): p = 1

    Do While i < n       '计算货梯上升时间和下降时间

        i = i + 1

        If Then    '改错

            t(p) = t(p) + (last -first) * 3

            last = ex(i): first = en(i)



        ElseIf f(i) * (en(i) -last) > 0 Then

            t(p) = t(p) + f(i) * (last -first) * 3

            last = ex(i): first = en(i)

        ElseIf f(i) * (en(i) -last) <= 0 And f(i) * (ex(i) -last) > 0 Then



        End If

    Loop

    t(p) = t(p) + f(i) * (last -first) * 3

    Text1.Text = "升降货梯分别需要" & t(1) & "和" & t(2)& "分钟完成。"

    '将排序后的升降信息输出到List2，代码略

End Sub

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

查看解析
14、小红使用Flash软件创作主题为的多媒体作品，如图a所示。
图a

请回答下面几个问题：

(1)、下列说法正确的是________（多选，填字母）。

A、文字脚本的编写包括作品的屏幕设计、链接关系的描述等内容 B、Flash是以帧为基础的多媒体创作工具 C、确定作品的主题思想、设施需求是创作需求分析 D、系统结构设计是制作多媒体作品的依据 E、从网上、图书馆等收集素材进行加工处理，不属于媒体元素分解

(2)、如图a所示，要使“按钮”在当前场景的最后一帧出现，并且场景动画自动停止播放，正确的操作是。

(3)、如图a所示，测试场景时，“医生”图层的第1 帧至15帧实现了“医生”实例从完全透明到完全显示的动画效果，该动画的类型为,测试当前场景生成的文件名为。

(4)、测试影片时背景会闪烁，需修正让背景贯穿整个动画，以下的方法正确的是 (多选，填字母)。

A、选中“背景”图层第1-12帧执行“删除帧”操作 B、将“背景”图层第13帧移动至第1帧 C、选中“背景”图层第1帧执行“清除关键帧”操作 D、选中“背景”图层第13帧执行“复制帧”操作，再选中“背景”图层第1 帧执行“粘贴帧”操作 E、选中“背景”图层第1-12帧执行“清除帧”操作

查看解析
15、小明上网查询了浙江省新冠疫情各个地级市的相关数据（截止4月28日16时），并制成了Excel表格，界面如图a所示，请回答下列问题。
图a

(1)、J4:J14区域的数据是通过J3的单元格进行自动填充得到的，则J3单元格的公式是 (累计确诊百分比=当前市累计确诊/总计累计确诊*100)
图b

(2)、根据第图a中数据制作的图表如图b所示，创建该图表的区域是。

(3)、下列描述正确的是。

A、若单元格C3被误删，则J3单元格显示为#REF! B、若要对数据按照“累计确诊”进行排序，排序区域为A2:J14 C、将A2:J13复制到新的工作表中，以“累计确诊”最大3项筛选，再按“新增本土”最大3项筛选，结果筛选出2条记录 D、在列A后插入一列，J列“累计确诊占全省的百分比（%）”相应数据不发生变化 E、对区域A2:J13按照“现有确诊”排序后，图b会发生变化

查看解析
16、中国载人航天事业从2003年10月（神舟五号）便已开始，直至今日已有9架神舟飞船参与航天事业的探究，现初始化9架神舟飞船发射升空的年月分别存入数组shenz(1)shenz(9)(即shenz(1)="03.10"，shenz(2)="05.10",……,shenz(9)="21.10"，代码略)，利用对分查找算法编写程序代码如下：
key = Text1.Text

i = 1: j = 9

Do While i <= j

    m = (i + j) \2

    If key < shenz(m) Then j = m -1 Else i = m + 1

Loop

Text2.Text= str(j)+"架"

下列选项中输入Text1的数据与输出j的值不符的是(      )

A、"05.09"，1 B、"21.12"，9 C、"03.11"，1 D、"21.10"，8

查看解析
17、有ABCDE五位同学围成一圈玩出圈游戏，从A同学开始按照ABCDE的顺序依次报数，报到k（k为1至5的随机整数）的同学出圈，余下同学围成新的圈，并从当前出圈位置继续报数，报到k的同学继续出圈，直到圈内无人为止。程序代码如下：
j = 1: p = 5

Do While p > 0

    j = (j + k -2) Mod p + 1

    s1 = s1 &j

    s = Mid(s, 1, j -1) + Mid(s, j + 1)

    p = p -1

Loop

已知s1的初值为""（空），下列选项关于s1的最终结果错误的是（    ）

A、"11121" B、"23121" C、"31311" D、"43321"

查看解析
18、将十进制数79.5转换为8421BCD码的方法是，将每一位数字转换为4位二进制（8421BCD码含义：8421BCD码中的“8421”表示从高到低各位二进制位对应的权值分别为8、4、2、1），结果为01111001.0101。转换代码VB程序段如下：
s1 = Text1.Text: s2 = "":n = Len(s1): i = 1

Do While i <= n

    ch = Mid(s1, i, 1)

    If ch <> "." Then

        p = 8: x = Val(ch)

        Do While p > 0



        Loop

    Else

        s2 = s2 & ch

    End If

    i = i + 1

Loop

方框中的代码由以下三部分组成：

①x = x Mod p    ②p = p \2      ③s2 = s2 & x \p

下列选项中，代码顺序正确的是（    ）

A、①②③ B、③①② C、②①③ D、③②①

查看解析
19、使用冒泡排序和选择排序对同一组数据进行升序排序，冒泡排序的比较次数和交换次数分别是x次和m次，选择排序的比较次数和交换次数分别为y次和n次，下列选项描述肯定错误的是（）

A、x=y，m=n B、x=y，m>n C、x>=m，y>=n D、当y>1时，n>0恒成立

查看解析
20、某算法的部分流程图如图所示，执行这部分流程，下列选项关于判断框"s<=10?"执行次数和最后s的值描述正确的是（）

A、3次，s=12 B、10次，s=12 C、5次，s=11 D、4次，s=16

查看解析

上一页 317 318 319 320 321 下一页跳转