相关试卷
-
1、向文本框Text1中输入一串包含大小写的字母，统计出现次数最多的字母(不区分大小写)并将该字母以大写方式输出到文本框Text2，如有多个字母次数相同的，则只记录最后出现的字母，部分程序如下
Dim c(1 To 26) As Integer
s = Text1.Text
For i = 1 To Len(s)
x = Mid(s, i, 1)
If x >= "a" Then
t = Asc(x) - Asc("a") + 1
Else
t = Asc(x) - Asc("A") + 1
End If
_______①_________
If c(t) >= Max Then Max = c(t): _____②______
Next i
Text2.Text = Chr(f + Asc("A"))
划线处应该填入的正确语句是（ ）
A、① c(t-1)=c(t-1)+1 ② f=t B、① c(t)=c(t)+1 ② f=t C、① c(t-1)=c(t-1)+1 ② f=t-1 D、① c(t)=c(t)+1 ② f=t-1 -
2、有如下VB程序段
Const n = 8
Dim a(1 To n) As Integer
For i = 1 To n
a(i) = Int(Rnd * 20)
Next i
x = n \ 2
For i = x To 2 Step -1
For j = 1 To i - 1
If a(j) < a(i) Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next j
Next i
i = n
Do While i > x + 1
k = i
For j = i - 1 To x + 1 Step -1
If a(j) > a(k) Then k = j
Next j
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t
End If
i = i - 1
Loop
执行完这段代码后，数组 a 中各个元素的值可能的是（ ）
A、2,8,9,11,16,16,7,3 B、19,19,18,12,9,8,6,6 C、20,17,10,10,5,11,13,16 D、14,11,10,5,0,6,15,15 -
3、编写一个统计数组元素a(1)到a(n)中的“升序段”个数s(如图所示的数据序列，其升序段个数为3)的VB程序，部分程序如下:
k=0:s=0
for i=2 to n
If a(i)>a(i-1) then
_______①_________
Else
k=0
End If
if _____②______ then s=s+1
next i
text1.text=str(s)
划线处的正确语句是（ ）
A、① k=k+1 ② k=1 B、① k=1 ② k>0 C、① k=k+1 ② k>0 D、① k=1 ② k<>0 -
4、有如下 VB 程序段
Private Sub Command1_Click()
Const s1 = "efg"
s2 = "&auif,+eg$Ymfhe"：s3 = ""
For i = 1 To Len(s2)
If being(Mid(s2, i, 1), s1) Then
s3 = s3 + Str(i) + ","
End If
Next i
Text1.Text = s3
End Sub
Function being(x As String, y As String) As Boolean
being = False
For i = 1 To Len(y)
If x = Mid(y, i, 1) Then
being = True：Exit Function
End If
Next i
End Function
执行后文本 Text1 中显示的内容是（ ）
A、4, 5, 6, 9, 10, B、5, 8, 9, 13, 15, C、2, 1, 3, 3, 1, D、4, 5, 6, 13, 15, -
5、某算法部分流程图如图所示，输入n的值为10，则程序运行后s的值为（ ）
A、18 B、19 C、30 D、15 -
6、已知 a=30，b=10，c=3，则表达式 int(sqr(a))mod b\c的值为（ ）A、1 B、2 C、0 D、1.67
-
7、用PhotoShop软件编辑图像，部分界面如图所示，下列操作或说法正确的是（ ）
A、对“文字”图层执行“栅格化”，然后解除锁定，添加“风”滤镜效果 B、将“右图 1”图层移动到“花”图层上方，则“左图 1”图层也会在“花”图层上方 C、使用文字工具将“秋韵”图层中的“秋韵”二字更换字体 D、使用“画笔”工具将“背景”层涂成蓝色 -
8、用GoldWave软件打开某音频文件，该音频的量化位数是16bit，其操作界面如下图所示。下列说法不正确的是（ ）
A、将该音频文件按原始参数保存后，其存储容量为10.09MB B、执行“删除”后，直接保存，该文件的存储容量保持不变 C、执行“插入静音”，并设置静音时长为10秒，则左声道的第60至70秒会出现静音 D、利用“设标”设置开始时间为20秒，结束时间为50秒，单击“剪裁”，则右声道前后均会出现静音 -
9、用 WinHex 软件观察字符内码如图所示，下列描述正确的是（ ）
A、可以推断小写字母“n”的处理码为“110 1110” B、从图中得知共包含4个GB2312码字符，13个ASCII 码字符 C、将“多”字二进制内码的第1个字节和第2个字节相加得到的二进制数为“110010110” D、已知汉字字符占2个字节，英文字符占1个字节，从图中可知全角状态下的空格“ ”十六进制内码为“A1A1”，则半角状态下的空格“ ”十六进制内码为“A1” -
10、用 Access 创建的数据表，表中的记录和字段类型如下图所示，下列操作或说法可行的是（ ）
A、可以在图 1 状态下插入一个类型为“自动编号”的字段 B、从图 1 中可以得知第 4 条记录没有“姓名”字段 C、可以向表中添加记录“T0302，研究部，陈丽，女，1977.6.17，高工，900” D、在图 2 状态下选择第 2 行，执行"删除行"时，图 1 中“部门”列将一定被彻底删除 -
11、使用 Word 软件编辑某文档，部分界面如图所示。下列说法正确的是（ ）
A、文档中的图片环绕方式一定是四周型 B、应该使用自动更正功能将文中的所有“wenzhou” 更改为“温州” C、接受文档中所有修订后，第二行的“荡漾”二字会改为“回荡” D、上文中一共存在 4 处修订 -
12、下列关于信息的说法正确的是（ ）A、语言、文字、图像、声音是信息的载体，但不是信息的表达方式 B、足球赛场上某队主教练通过观察分析两队队员表现及赛场状况，认为己方攻击线力量不足，决定撤下一名后卫增加一名前锋，这体现了信息的可加工性 C、“抖音”中的网红主播对热播电视剧《破冰行动》赞赏有加，这属于信息资源评价中的专家核心刊物评价 D、http 协议是用来传输和处理网页信息的
-
13、礼品分配问题：某班得到一件精美礼品，由于只有一件礼品，大家决定用下面方法来分配该礼品：n个同学围成一圈，按顺序从1到n进行编号。从第1个人开始报数，报到 m 的人退出，下一个人继续从1开始报数，报到m的人出圈┈┈，如此依次进行，直到留下的最后一个人得到该礼品。程序运行界面如图所示，单击“开始”按钮，将输出退出圈子的同学编号以及最后获得奖品的编号。
实现上述功能的VB程序如下，请回答下列问题。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, m As Integer
Dim num As Integer, t As Integer
Dim a(1 To 100) As Boolean
n = Val(Text1.Text)
m = Val(Text2.Text)
For i = 1 To n
a(i) = True
Next i
①
Do While t > 1
For i = 1 To n
If a(i) = True Then ②
If num = m The
③
t = t - 1
num = 0
Text3.Text = Text3.Text + Str(i)
End If
Next i
Loop
For i = 1 To n
If a(i) = True Then Label2.Caption ="获得礼品同学编号:" + Str(i)
Next i
End Sub
(1)、当班级总人数n=15，m=5的时候，获得礼品的同学编号是（填写数字）。(2)、在划线处填入合适的代码。① ② ③
-
14、“杨辉三角”问题，如图所示，其规律如下：其显著特征是除斜边上的1以外，其余数值均等于其肩部两数之和。编写VB程序，其功能如下：在文本框Text1中输入20以内的整数，点击“打印”按钮，在列表框list1中输出杨辉三角，程序界面如图所示，VB 程序代码如下。
实现上述功能的VB程序如下，请回答下列问题：
Private Sub Command1_Click()
Dim a(20) As Long
Dim i As Integer, j As Integer, s As String List1.Clear
n = Val(Text1.Text)
a(1) = 1
List1.AddItem Str(a(1)) For i = 2 To n
s = ""
For j =
Step -1 a(j) = ①
s = s + Str(a(j))
Next j
② Next i
(1)、代码“Private Sub Command1_Click()”中的 Command1_Click()属于 （单选，填字母： A .对象名/B .属性名/C .事件名/D .事件过程）。(2)、请在划线处填入合适的代码。① ②
(3)、若将加框处代码改为“1 To i”，则 （选填：会/不会）影响程序结果。 -
15、小王使用Photoshop和Flash软件制作某多媒体文件。请回答下列问题：(1)、如图 a 所示，小王先用 Photoshop 处理图片，当前状态下下列说法，正确的有 。(多选，填字母：A .不能用“文字工具”修改“亡羊补牢”字样的字体/B .先用“套索工具”选中背景图 层的白色背景，然后用Delete键删除，最后将背景变为透明/C .先用“矩形选框工具”选中“亡羊补牢”图层，单击delete 键可以进行“内容识别”操作/D .“亡羊补牢”图层可见的图层样式 是“投影”/ E.将当前状态下的图像保存为 BMP 格式，则其大小约为 302KB
图a
(2)、制作的Flash动画部分界面如图b所示，“文字”图层第1帧到第20帧实现的是“文字”实例“亡羊补牢”的淡入效果，该动画属于（选填字母：A .逐帧动画/ B .动画补间/ C .形状补 间）动画。
图b
(3)、“文字”图层的30帧到50帧实现的是“亡羊补牢”逐渐过渡到“为时不晚”的动画效果，已知30帧关键帧内容是由20帧复制过来的，则在30帧需要进行的操作是。(4)、“声音”图层添加的声音属性如图c所示。当同步方式变为“事件”后，声音播放长度将（选填字母：A .变长/B .变短/C .不变）。
图c
(5)、测试影片时，单击“退出”按钮后将关闭动画窗口，则该按钮上的动作脚本是。 -
16、小王从图书馆收集了学校学生借阅情况的数据（其中班生均数为各班人均所借图书数），并用EXCEL 进行处理，如图 a 所示。请回答下列问题。
图a
(1)、区域 C18：G18的数据由H18单元格利用自动填充功能得到，则C18单元格中的计算公式为。(2)、若要对高三年级按“班生均数”降序排序，则排序时选择的数据区域是。(3)、根据图a中部分数据直接创建了图b所示的图表，其数据区域是 。
图b
(4)、若将C3:I18中单元格的数字格式保留0位小数，则图b中图表 （会/不会）受影响。 -
17、某升序排序算法的VB程序段如下:
Dim a(8) As Integer For i = 2 To 8
a(0) = a(i)
Do While a(0) < a(j)
j = j - 1
Loop
Next i
数组元素 a(1)~a(8)的值为随机生成的整数，为实现升序排序，则上述程序段3个方框处的表达式分别为（ ）
A、① j = i – 1 ② a(j+1)=a(j) ③ a(j+1)=a(0) B、① j = i + 1 ② a(j+1)=a(j) ③ a(0)=a(j+1) C、① j = i – 1 ② a(j)=a(j+1) ③ a(j+1)=a(0) D、① j = i + 1 ② a(j)=a(j+1) ③ a(0)=a(j+1) -
18、有如下VB程序段： For i= 1 To 5
a(i)= Int(Rnd * 20) + 1 Next i
For i= 2 To 5
If i Mod 2 = 1 And a(i-1) < a(i)Then t=a(i):a(i)=a(i-1):a(i-1)=t
Else
a(i)=a(i)-1 End If
Next i
执行该程序段后，a（1）~ a（5）各元素不可能的值是（ ）
A、7 3 0 19 0 B、18 16 1 9 2 C、20 17 8 19 15 D、19 0 7 8 4 -
19、某对分查找算法的VB程序段如下：
i=1:j=6:flag=False key=Val(Text1.Text)
Do While i<=j And flag = False
m=(i+j)\2
If key=a(m) Then flag=True
If key<a(m) Then j=m-1 Else i=m+1 Loop
数组元素a(1)到a(6)的值依次为“7，9，15，27，34，51”。文本框Text1中输入“27”后运行该程序，运行结束后，下列说法不正确的是（ ）
A、变量flag的值为True B、变量i的值为5 C、变量 j 的值为4 D、变量 m 的值为4 -
20、有 VB 程序段如下：
s = "2019.06 Visual Basic 6.0": n = 0 For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
m = Asc(ch) - Asc("0") + 1
a(m) = a(m) + 1
End If
Next i
For i = 1 To 10
If a(i) > 1 Then n = n + i
Next i
数组 a 各元素的初始值都为0，执行该程序段后，则变量n的值为（ ）
A、2 B、4 C、8 D、10