相关试卷

1、有如下VB程序段：
flag = False: txt = "Fighting"

For i = 1 To Len(txt)

   ch = Mid(txt, i, 1)

   If (ch>="a" And ch<="z" Or ch>="A" And ch<="Z") And Not flag Then

      s = ch + s: flag = True

   Else

        flag = False

  End If

Next i

Text1.Text = s

程序运行结束后，Text1中显示的内容是（   ）

A、Fighting B、ntgF C、gnithgiF D、Fgtn

查看解析
2、以下程序要实现十进制转换为十六进制的功能，则划线处的代码为（   ）
Private Sub Command1_Click()

    Const jz = "0123456789ABCDEF"

    Dim d As Integer, r As Integer, s As String

    d = Val(Text1.Text)

    s = ""

    Do While d > 0







    Loop

    Label1.Caption = "十六进制结果是" + s

End Sub

①d=d\16     ② s=Mid(jz,r+1,1)+s    ③ s=s + Mid(jz,r,1)      ④ r=d Mod 16

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

查看解析
3、某算法的流程图如图所示：

执行这部分流程后，输出的s,a值分别是（）

A、12,11 B、24,15 C、12,12 D、24,12

查看解析
4、下列有关VB表达式的描述，正确的是（）

A、505 Mod 10+Int(Sqr(6))和Len("python")+1相等 B、Abs(Int(-30.19))+Len(Mid("30.19",2))的值是34 C、Int(Rnd*45)*2+9一定产生两位数的奇数 D、Int(Rnd*100)+54\9/3的值可能是12

查看解析
5、使用PhotoShop软件处理图片，颜色模式为RGB/8，参数界面如图所示：

当前状态下将图中宽度参数调成512，保存为BMP格式，关于结果文件大小、画面大小、图片内容变化情况下列说法正确的是（）

①容量约0.73MB ②容量约375KB ③高度500像素 ④高度250像素 ⑤图像、内容比例缩小 ⑥画面内容被裁剪

A、②④⑤ B、①④⑤ C、②③⑥ D、①④⑥

查看解析
6、对某音频素材使用GoldWave进行处理，界面如下图所示：

以下操作将导致音频容量发生改变的是（）

A、选择左声道全部，点“删除”，然后按原格式保存 B、执行复制和粘贴，选择部分修改成“双声道”，然后删除 C、左下角“左声道”改成“双声道”，点静音 D、插入静音，持续时间5秒，然后点击“删除”

查看解析
7、使用UltraEdit观察机内码，如图所示：

下列说法不正确的是（）

A、由图可知，相应字符ASCII码值关系"+"<"C"<"y" B、英文字母"P"的机内码为50H，所以英文字母"O"的机内码为4FH C、图中汉字编码字符共有2个Byte D、根据ASCII码值大小关系可以推断出关系表达式"9">"10"的值为True

查看解析
8、使用Access软件编辑数据表，部分界面如图所示。

当前状态下下列说法不正确的是（）

A、当前视图中，可以在“一段线”前面插入“特殊线”字段 B、修改某一个数值后，可以通过撤销恢复，删除某个字段或某条记录，则无法撤回 C、通过导入Excel表数据来添加记录，但无法导入文本文档来添加记录 D、“ID”字段可以转为“文本”或“数字”格式，“一段线”字段不能转成“自动编号”类型

查看解析
9、下列有关网页的说法，正确的是（）

A、联网状态下可以通过点击收藏夹网址直接浏览网页，不需要网页浏览器支持 B、网页三要素：文字，图片，超文本传输协议(HTTP) C、统计评价能反应出资源可信度较高，从本质上一定具有较强的专业性 D、用账号和密码认证登录网站，是为了提高信息数据安全和加强信息保密

查看解析
10、北京时间2021年11月7日，航天员翟志刚、王亚平身着我国新一代“飞天”舱外航天服，先后从天和核心舱节点舱成功出舱，经过约6.5小时的出舱活动，神舟十三号航天员乘组密切协同，圆满完成出舱活动期间全部既定任务。以下说法正确的是（）

A、现代信息技术以计算机和通信技术为支撑，体现信息的载体依附性 B、神舟十三号飞船要验证的6个月长期在轨飞行技术，体现计算机系统运行的准确性高 C、航天服能实现隔热，应对真空温差、辐射等，保障生命安全，体现信息安全性 D、随着技术不断发展，信息必将脱离它所反映的事物，无需载体就可以传播保存

查看解析
11、某校举行拔河比赛，参赛选手队列要求如下：
1)每班参赛男、女选手各5人

2)男女穿插站队，即：男女男女……队列

3)男生身高从低到高排列，女生身高从高到低排列

小明设计了一个程序实现如下功能：在文本框Text1中输入学生身高，奇数位置上存放男生的身高，偶数位置上存放女生身高，两个数之间用逗号隔开。单击“排序”按钮，使男生身高升序排序，结果输出在文本框Text2中，女生按身高降序排序结果存放在文本框Text3中。

程序运行界面如图所示

(1)、请在划线处填入合适的代码
Private Sub Command1_Click()

    Dim n As Integer

    Dim a(1 To 10) As Integer

    Dim i As Integer, j As Integer, tmp As Integer

    Dim s1 As String, s2 As String, t As Integer

    Dim s As String, c As String

    s = Text1.Text

    n = 1

    For i = 1 To Len(s)

        c = Mid(s, i, 1)

        If c >= "0" And c <= "9" Then

            a(n) = a(n) * 10 + Val(c)

        Else

            n = n + 1

        End If

    Next i

    t = -1

    For i = 1 To n - 2

        For j =

            If a(i) * t < a(j) * t Then

                tmp = a(i): a(i) = a(j): a(j) = tmp

            End If

        Next j



    Next i

    For i = 1 To n

        If i Mod 2 = 1 Then

            s1 = s1 + Str(a(i))

        Else



        End If

    Next i

    Text2.Text = s1

    Text3.Text = s2

End Sub

(2)、若男生甲和男生乙的身高都是 180，在Text1中的输入顺序是：男生甲，女生甲，男生乙……，则经过排序后，男生甲排在男生乙的 (单选，填字母：A .前面 / B .后面)

查看解析
12、为防止机密通知被盗，某公司制定了网上发通知的加密要求：
1）通知中包含的空格，标点符号等按原格式输出

2）通知中涉及到字母的内容，所发文件的英语单词全部都是倒序的。如：This is a dog!通知显示内容为：sihT si a god!

3）通知中涉及到数字的内容，把本组数字的最后一位移动到第一位,例如原文为1234，通知显示内容为：4123

小王编写了一个VB程序，实现加密功能，在文本框Text1中输入原文，单击“加密”按钮Command1后，在文本框Text2中显示加密后的密文。程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：

(1)、若要修改按钮Command1上显示的文字，应修改的属性名是（单选，填字母：A .Text/B .Caption /C . List ）

(2)、实现上述功能的VB程序代码如下，请在划线处填入合适的代码
Private Sub command1_Click()

    Dim s As String, ch As String, rv As String, rv1 As String

    Dim i As Integer, j As Integer, k As Integer

    s = Text1.Text

    rv = ""

    i = 1

    Do While True

        ch = Mid(s, i, 1)

        Do While And i <= Len(s)

            rv = rv + ch

            i = i + 1

            ch = Mid(s, i, 1)

        Loop

        j = i

        ch =

        Do While sz(ch) And j <= Len(s)

            j = j + 1

            If j > Len(s) Then Exit Do

            ch = Mid(s, j, 1)

        Loop

        rv1 = ""

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

        rv = rv + rv1

        i =

        If i > Len(s) Then Exit Do

        Do While zf(ch) And j <= Len(s)

            j = j + 1

            If j > Len(s) Then Exit Do

            ch = Mid(s, j, 1)

        Loop

        rv1 = ""

        For k = i - 1 To j - 1

            rv1 = Mid(s, k, 1) + rv1

        Next k

        rv = rv + rv1

        If j <= Len(s) Then rv = rv + Mid(s, j, 1)

        i = j + 1

        If i > Len(s) Then Exit Do

    Loop

    Text2.Text = rv

End Sub

Function zf(s As String) As Boolean

    zf = False

    If s >= "A" And s <= "Z" Or s >= "a" And s <= "z" Then

        zf = True

    End If

End Function

Function sz(s As String) As Boolean

    sz = False

    If Then

        sz = True

    End If

End Function

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

查看解析
13、使用Flash软件制作“中国茶文化”多媒体作品，部分编辑界面如图所示。

请回答下列问题：

(1)、在创作之前进行了作品设计，下列说法正确的是（多选，填字母）

A、设计作品的主要界面、工作流程属于系统结构设计 B、确定获取原始素材的方式属于应用需求分析 C、设计多媒体作品的第一步是模块设计 D、包含制作中所需的各种素材文件名、获取方法等信息的是媒体元素分解 E、确定该作品面向茶艺爱好者的学习属于应用需求分析

(2)、如图所示，“音乐”图层声音的同步方式设置为“事件”，为使动画播放到当前场景第24帧时“音乐”图层中的音频停止播放，在不影响其他动画播放的前提下，下列方法可行的是( 单选，填字母：A .把“音乐”图层第48帧移动到第24帧 / B .在“诗句”图层第24帧添加动作命令“StopAllSounds();”)，单击第48帧中的“茶文化”按钮实现在浏览器中显示位于同一目录下“茶文化.txt”文件的内容，则该按钮实例上添加的动作脚本是on(press){}(单选，填字母：A .gotoAndplay(“茶文化.txt”)；/ B .getURL(“茶文化.txt”);).

(3)、“诗句”图层中的诗句在动画播放2秒末才出现，要想让动画播放1秒后诗句就出现，并持续到本场景播放结束，该如何操作？

(4)、“金鱼”图层中金鱼都是“鱼”元件的实例，在不改变其他动画播放效果的前提下，使金鱼一直出现在舞台上，下列操作方法可行的是 (多选，填字母)

A、对“金鱼”图层第25帧执行“清除关键帧”操作 B、对“金鱼”图层第一帧执行“复制帧”操作，并在25帧执行“粘贴帧”操作 C、把“金鱼”图层第25帧移动到第48帧 D、在“金鱼”图层第25帧，把“鱼”元件添加到舞台相同位置上 E、对“金鱼”图层第25帧执行“清除帧”操作

查看解析
14、收集2020年全国部分城市1-4月降雨量，并用Excel软件对数据进行处理，如图a所示。

图a

请回答下列问题：

(1)、区域G3:G36的数据要通过公式计算得到，在G3单元格中输入公式，再使用自动填充功能完成区域 G4:G36的计算。(rank函数的作用求某一个数值在某一区域内一组数值中的排名。rank函数的语法格式=rank(number,ref,[order])number ——参与排名的数值,ref ——排名的数值区域,order——有1和0两种。0——从大到小排名（降序），1——从小到大排名（升序）。0默认不用输入，得到的就是从大到小的排名。)

(2)、对区域A2:G36进行相关数据分析，下列说法正确的是 (多选，填字母)

A、为了显示华北地区4月降雨量大于60的城市，可以先对“地区”进行筛选选择的值为“华北地区”，再对“4月”进行筛选，设置的筛选条件是大于60 B、为了找出3月降雨量最高的三个城市，可以对“3月”进行筛选，选择“10个最大的值”并显示最大的3项 C、若不小心删除C列数据，G列2月降雨量排名的值也会随之变化 D、从数据表中可以看出，华北地区1月几乎不降雨

(3)、要对2020年华东地区4月的降雨量为主要关键字降序排序，则所选择的数据区域是。

查看解析
15、有如下VB程序段：
n = 8

m = Int(Rnd *5 + 1)

For i = 1 To n - m +1

    k = i

    For j = m To n - i

        If a(j) > a(j + 1) Then

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

        ElseIf a(j) > a(k) Then

            k = j

        End If

    Next j

    tmp = a(k) : a(k) = a(i) : a(i) = tmp

Next i

数组元素a(1)到 a(8)的值依次为“25,77,82,71,53,42，69，83”。经过该程序段加工后数组元素a(1)到a(8)的值不可能是（     ）

A、71 77 82 25 42 53 69 83 B、82 77 25 42 53 69 71 83 C、82 25 42 53 69 71 77 83 D、83 42 53 69 71 77 82 25

查看解析
16、有如下VB程序段：
s1 = "567898765"

s2 = ""

n = Len(s1) \ 2

For i = 1 To n

    If Mid(s1,i,1) < Mid(s1, n + 1, 1) Then

        s2 = s2 + Mid(s1, i, 1)

    Else

        s2 = Mid(s1, n + i, 1) + s2

    End If

Next i

Text1.Text = s2

A、98765 B、7898 C、5678 D、56789

查看解析
17、某对分查找的VB程序如下：
i = 1: j = 8 : n = 0

key = Val(Text1.Text)

Do While i <= j

    m = (i + j- 1) \ 2

    n=n+1

    If a(m) >=key Then

        i = m + 1

    Else

        j = m - 1

    End If

Loop

Label1.Caption=Str(n)+Str(i)

数组元素a(1)到a(8)的值依次为“ 35,32,29,26,21,19,16,12”。在文本框Text1中输入17，执行该程序段后，标签Label1上显示的内容是（      ）

A、3 7 B、2 7 C、4 8 D、2 8

查看解析
18、在文本框Text1中输入十进制数x，将其转换为十六进制数后在标签Label1上输出。VB程序段如下：
Dim x As Integer Dim s As String

Dim st As String

Dim t As Integer

st=“0123456789ABCDEF”

x = Val(Text1.Text)

Do While x > 0

Loop

Label1.Caption=s

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

① x = x \ 16 ② s = Mid(st,t+1,1)+ s ③ t = x Mod 16

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

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

查看解析
19、某算法的部分流程图如图所示，执行这部分流程后，变量C的值是( )

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

查看解析
20、vb表达式 3^2-13 mod 5*2 的值是( )

A、3 B、6 C、9 D、11

查看解析

上一页 502 503 504 505 506 下一页跳转