相关试卷
-
1、有如下VB程序段：
Dim a(1 To 9) As String， k As Integer
Dim s1 As String， s2 As String
s1= Text1.Text：s2 = Text2.Text
For i = 1 To Len(s1)
k = Val(Mid(s1， i，1))
a(k) = Mid(s2， i， 1)
Next i
For i=1 To 9
s=a(i)+s
Next i
Label1.Caption = s
在文本框Text1中输入“52463”，文本框Text2中输入“happy”， 执行该程序段后，标签Label1中显示的内容是（ ）
A、happy B、yppah C、phpya D、Pyhpa -
2、若一个正整数从左向右读与从右向左读都一样， 我们就将其称之为“回文数”。设计一个在列表框List中显示100 500之间的所有回文数的程序，实现该功能的VB程序段如下：
For k=100 To 500
x=k
z =0
Do While x> 0
Loop
If z=k Then
List1.AddItem Str(k)
End If
Next k
上述程序段中方框处可选语句为：
①x=x\10 ②y=xMod10
③z=z+10*y ④z=10*z+y
则(1)(2)(3)处语句依次为（ ）
A、①②③ B、②①③ C、①②④ D、②①④ -
3、采用冒泡排序算法对某数据序列进行排序，第-轮排序后的结果是“2，8，6，3，5，7，9”，则第二轮排序需要交换的次数为( )A、4次或2次 B、4次或3次 C、3次或1次 D、2次或1次
-
4、某算法的部分流程图如图所示。执行这部分流程后，输出f1，f2的值分别是( )
A、5，8 B、8，13 C、13，21 D、21，34 -
5、VB表达式Int(Rnd*2) *30+ 10+ Int(Rnd * 100) Mod 10的值可能是( )A、6 B、16 C、26 D、36
-
6、将帧频为12fps、总帧数为120帧的Flash动画作品导出为不压缩的无声AVI视频文件，其参数为1024×768像素、24位色，则该视频文件的存储容量约为（ ）A、22.5MB B、27MB C、270MB D、3.16GB
-
7、用Photoshop软件制作“云对雨”作品，如图所示。
下列说法正确的是（ ）
A、可以将“燕子”图层重命名为“双燕” B、因为“背景”图层被锁定，所以不能删除“背景”图层 C、不能将“云对雨”图层的图层样式拷贝到“山”图层 D、当前状态下，可以直接对“山”图层添加“镜头光晕”滤镜 -
8、某数转换为十进制数为n，若n\4=4，则该数可能是（ ）A、10011B B、11001B C、1AH D、2AH
-
9、用Access软件设计某停车场管理系统的数据库，其中已建好的“停车位使用实时数据表”用于存储如图所示的数据。
序号
采集时间
层
区域
编号
车位占用情况
属性
1
2021-5-1 08: 30: 00
B1
A
1
空
内部
2
2021-5-1 08: 30: 00
B2
A
2
占用
开放
3
2021-5-1 08:30: 00
B1
B
10
占用
关闭
4
2021-5-1 08: 35:00
B1
B
1
空
开放
……
……
……
……
……
……
……
下列说法正确的是（ ）
A、存放图中“编号”列数据的字段可以设置为“自动编号”类型 B、若车驶离车位，则该数据表中相应的记录会被删除 C、存放图中“属性”列数据的字段可以设置为“是/否”类型 D、存放图中“采集时间”列数据字段的类型应设置为“日期/时间” -
10、下列有关网页与浏览器的说法，正确的是（ ）A、网页中的所有对象均存储在网页文件中 B、记事本软件可以对网页文件(.html)进行编辑、解释并执行 C、用IE浏览器保存网页内容只保存了该网页的URL D、浏览器与Web服务器之间进行信息传输采用的协议是HTTP
-
11、下列关于信息的说法，正确的是( )A、计算机可以处理任意形式的信息 B、规范的信息表达是信息交流的基础 C、多媒体信息的传播必须依附于多种载体 D、经过计算机处理的信息一定可以恢复到处理前的状态
-
12、 小明和小红喜欢传纸条，为防同学偷看，约定使用Diffie-Hellman算法来加密，该算法的简化模型如下：二人先约定两个正整数g和n，然后小明私下随机生成一个数x，并计算U=gx Mod n；小红也私下生成一个数y，并计算V=gy Mod n。随后二人交换计算出的U，V。接着小明独自计算出自己的密码mkey=Vx Mod n，小红也独自计算出自己的密码hkey=Uy Mod n，且mkey=hkey。
事实上，依上述算法，即便同学们知道g，n，U，V的值，也无法计算出二人的密码，必须再取得x或y才可以，而x，y仅他俩各自保留，外人无从知晓。
已知消息加密的步骤(该步骤可逆)为：①将消息字符串倒序→②将各个字符转换为ASCII码数值→③对各个数值用密码进行异或操作(已知异或运算可逆，即a Xor k=b， b Xor k=a)→④用逗号间隔各异或运算后的结果。
小红依加密的步骤可逆，编制了一个如下的VB程序，该程序用于解密小明的密文，程序运行界面如图所示。回答下列问题：
Private Sub decrypt_ Click()
Dim g，n，U，y，hkey As Integer
Dim mw， xx As string
Dim a(1 To 100) As Integer
Dim i， L As Integer， c As String
'经与小明的协商，小红已获得g，n，U，y的值
g=2：n=7 '约定两个数g和n的值分别为2和7
U=2：y=5 '小红随机生成的数y的值为5
mw = Text1.Text '小明的密文，由数字和逗号组成
hkey = ①
L=1
For i = 1 To Len(mw)
c = Mid(mw， i， 1)
If
Thena(L)=a(L)*10+Val(c)
Else
L= ②
End If
Next i
For i=1 To L
a(i) = a(i) Xor hkey
③
Next i
Text2.Text = xx
End Sub
(1)、加框处代码有错，请改正。(2)、在程序划线处填入合适代码，使程序完整。① ② ③
-
13、对一组正整数进行升序排序，要求排序后奇数在前，偶数在后。程序界面如图所示。回答下列问题：
(1)、实现上述排序功能的某VB程序如下，观察程序代码，将排序前原始数据在列表框中显示的事件处理过程名为 (单选，填字母)。A、Load() B、Form_Load() C、Command1 D、Command1_ Click()(2)、请在程序划线处填入适当的代码。Const n = 10
Dim a(1 To 10) As Integer
Private Sub Form _Load()
'读取一组正整数，存储在数组a中，并在列表框list1中显示。代码略
End Sub
Private Sub Command1_Click()
Dimi As Integer，m As Integer，low As Integer，high As Integer，temp As Integer
low=1：high=n
Do While
If a(low) Mod 2 = 1 Then
m =low
For i=low+1 To high
If a(i)Mod2=1 And a(i)<a(m) Then m=i
Next i
temp = a(m)： a(m) = a(low)： a(low) = temp
low= low + 1
Else
m =low
For i=low To high
If Then m=i
Next i
temp = a(m)： a(m) = a(high)： a(high) = temp
End If
Loop
For i=1 To n
List2.AddItem Str(a(i))
Next i
End Sub
-
14、小李同学制作主题为“文明城市”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，再用Flash软件制作多媒体作品。请回答下列问题：(1)、如图a所示，下列操作可实现的是 (多选，填字母)。
A、在“背景”图层上，用矩形选框工具选定部分内容后，进行“自由变换”操作 B、直接移动“房子1”图层上的图像位置 C、选中“安全出行”图层后，用“自由变换”操作调整字体大小 D、选中“房子2”图层后，调整其不透明度(2)、当前场景中，“白云”图层实现的是云朵图像逐渐变成“文明出行”字样的动画效果，则该图层上的动画属于(单选，填字母：A .逐帧动画/B .动画补间/C .形状补间)。(3)、在图b所示状态下，若想让汽车动画在1秒后开始出现，在不改变汽车动画时长的情况下，可行的操作是
(4)、“load”场景“按钮”图层第60帧上的“PLAY”按钮的部分编辑界面如图c所示，测试时鼠标放到按钮上未呈现小手形状，以下操作可使按钮有效的是 (单选，填字母)。
A、在“背景”图层“点击”帧处插入关键帧 B、对“背景”图层“按下”帧进行“清除关键帧"操作 C、在“声音”图层“点击”帧中插入关键帧 D、将“文字”图层“按下”帧转换为关键帧(5)、在正确完成第(4)题后，测试影片，单击“PLAY”按钮，动画将跳转至“main”场景的第1帧并播放，则“PLAY”按钮上的动作脚本为。 -
15、使用Excel软件对某学校“校园文化节”节目评分进行数据处理，如图a所示，回答下列问题：
(1)、各大节目的得分是将“主题内容”、“舞台效果”、“表现演绎”、“总体印象”的成绩分别乘以对应的权重后相加所得。通过G3单元格中的公式，对G4：G20进行自动填充，则G3单元格中的公式是。(2)、为了更直观地对比某类别各节目的得分情况，创建了如图b所示的图表，则生成该图表的数据区域为。
(3)、若在图a所示工作表中对数据进行进一步的操作，下列说法正确的是 (多选，填字母)A、若要对舞蹈类的节目按“主题内容”列数据从大到小排序，应选择的排序区域为A17：G20 B、在工作表的C列和D列之间插入一列，H列(原G列)中显示的值不会发生变化 C、选中数据区域B2：G8进行数据筛选，并设置筛选条件为“得分”的“最大3项”，图b将不会发生变化 D、要将节目的各项得分值在图b中的柱形上显示，可通过添加图表的“数据标签”来实现 -
16、某算法的VB程序段如下：
Private Sub Command1_Click( )
Dim a(1 To 10) As Integer, i As Integer, j As Integer, m As Integer
Dim Key As Integer, s As String
Randomize
Key = Int(Rnd * 100)
s=""：i=1：j=10
Do While i<j
m=(i+j)\2
If Key = a(m) Then Exit Do ' Exit Do退出循环
If Key < a(m) Then
j=m：s=s+"L"
Else
i=m+1：s=s+"R"
End If
Loop
Label1.Caption = s
End Sub
若数组元素a(1)到a(10)的值依次为“3，7，9，13，16，18，19，30，45，57”，执行该程序段后，标签Label1上显示结果，该结果中出现字母“L”和“R”且个数相同的情况有（ ）
A、1种 B、2种 C、3种 D、4种 -
17、可用于求10个整数中最大值的某VB程序段如下：
Dim a(1 To 10) As Integer
Dim max As Integer
max=0
For i=1 To 10
If a(i)>max Then max=a(i)
Next i
Label1.Caption =“最大值是：”+ Str (max)
运行该程序时发现，当输入10个正整数时可以得到正确结果，但当输入10个负整数时结果错误。将上述程序段中相应语句仅进行一次更改，就可实现输入10任意整数都能得到最大值的结果，则下列修改正确的是（ ）
A、把If a(i)>max Then max=a(i)改成If a(i)<max Then max=a(i) B、把max= a(i)改成a(i) = max C、把For i = 1 To 10改成For i=2 To 10 D、把max=0改成max=a(1) -
18、有如下VB程序段：
Dim i As Integer， t As Integer
Dim enc As String， dec As String
enc = " 6Z9FBQ3VX4"： dec =" "
i =1：t=0
Do While t <4
c = Mid(enc， i，1)
If c>="0" And c<="9" Then
i = Val(c)
Else
dec=dec+c
t=t+1
End If
i =i+1
Loop
Text1.Text=dec
运行该程序段，文本框Text1中的内容是（ ）
A、QXFB B、6Q9X C、QBQV D、FBQF -
19、已知n个无序的正整数存储在数组元素a(1)到a(n)中。下列VB表达式的值为True时，可检测该数组偶数位置的元素值为奇数的是（ ）A、a(i) Mod 2= i Mod 2 B、a(i) Mod 2<i Mod 2 C、a(i) Mod 2> i Mod 2 D、a(i) Mod 2= 1 Or i Mod 2= 0
-
20、某算法的部分流程图如图所示。执行这部分流程，变量t的值为（ ）
A、3 B、4 C、5 D、6