相关试卷
-
1、编写一个VB程序，实现如下功能：在文本框Text1中输入一串小写的英文字母，单击“统计”按钮Command1,在文本框Text2中输入字母升序段个数，要求每个升序段中字母数量必须超过3个（如输入abctsefefghk，则满足条件的升序段序列abct，efghk，个数为2），程序运行界面如图所示。
(1)、该程序界面上共有个类。（填数字）(2)、为实现上述功能，请在画线填入合适的代码。Private Sub Command1_Click()
Dim s As String
Dim m As Integer，n As Integer，k As Integer，t As Integer，i As Integer
s=Text1.Text
n=Len(s)
k=1：m=0：t=0
For i=2 To n
If Mid(s，i，1)> ① Then
k=k+1
t=0
Else
t=1
End If
If k>3 And( ② )Then
m=m+1
k=1
End If
Next i
Text2.Text=Str(m)
End Sub
① ②
(3)、若文本框Text1中输入内容abgcdefkuvghl，单击“统计”授钮后，本文框Text2中显示的内容是。 -
2、小李收集了2017年第四季度浙江省各地区工业用电情况数据，并使用Excel软件进行数据处理，如图a所示。
请回答下列问题：
(1)、计算12月份环比数据，可以先复制G5单元格，以公式粘贴方式粘贴到15单元格，然后通过15单元格对区域16：115自动填充，则l15单元格中的公式是。(2)、选中图a中的A5：Jl5区域，按“季度总计”降序排列，则排序的主要关键字应为。(3)、根据图a中的数据制作的图表b所示，创建该图表的数据区域是。
(4)、对图a中的11月用电量和12月用电量数据进行筛选操作，筛选设置都如图c所示，则按此设置筛选出的地区有个。 -
3、【加试题】有如下VB程序段：
Key=Val(Text1．Text)
i=1：j=10
flag=False
s=””
Do While i<一i And NOt flag
mid1=Int(i+(j-i)／3)
mid2=Int(j-(i-i)／3)
If Key=a(mid1)Then
flag=True
ElseIf Key<a(mid1) Then
j=mid1-1
ElseIf Key=a(mid2) Then
flag=True
ElseIf Key>a(mid2) Then
j=mid2+1
Else
i=mid1+1
i=mid2-1
End If
s=s&” ”＆ mid1 ＆ “：”& mid2
Loop
Text2．Text=s
已知数组a(1 To 10)中的数据分别是12，21，34．45，59，63，72，86，94，100，在文本框Text1中输入34，程序运行后文本框Text2中显示的内容是（ ）
A、4：7 1：2 B、4：7 1：2 3：3 C、4：7 1：3 3：3 D、4：7 3：3 -
4、【加试题】某同学用VB编写如下程序：
Private Sub Command1_Click()
Dim k As Integer，a As Integer，b As Integer
a=Val(Text1．Text)
b=Val(Text2．Text)
Label1．Caption=trans(a，b)
End Sub
Function trans(m As Integer，n As Integer)As String
If m<>0 Then
r=m Mod n
trans=trans(m＼n，n)+Str(r)
Else
trans=0
End If
End Function
程序运行时，在文本框Text1和Text2中分别输入11和2，则Label1中的输出结果是（ ）
A、01011 B、1011 C、01101 D、11010 -
5、【加试题】使用Photoshop软件新建一个图像文件，相关参数设置如图所示。
制作完成后分别以a. bmp和b. jpg保存，已知b. jpg文件容量为236 KB，则图像文件a. bmp与b. jpg的压缩比约为（ ）
A、2：1 B、4：1 C、6：1 D、16：1 -
6、利用Flash软件制作“播放”按钮，部分界面如图所示。
下列说法正确的是（ ）
A、将该按钮添加到舞台，测试影片时，按下鼠标时播放声音 B、“音效”图层指针经过帧中声音同步方式设置为“数据流”较为合适 C、当前状态下，可以复制“文字”图层弹起帧的内容 D、在“音效”图层的点击帧处执行“插入帧”操作之后，该按钮将不可用 -
7、使用Photoshop软件处理“端午节．psd”文件，部分界面如图所示。
下列说法正确的是（ ）
A、交换“圆月”和“粽子”图层顺序，不会影响图像画面效果 B、利用文字工具修改“棕”图层文字大小时，“诗”图层中文字的大小一起改变 C、“背景2”图层的图层蒙板效果不可见 D、当前状态下，可以直接对“圆月”图层设置图层样式 -
8、使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确是（ ）
A、该音频是双声道的MP3格式文件 B、该音频左声道的前1秒设置了静音效果，后1秒设置了淡出效果 C、该音频每秒采样44 100次，每个采样点数据以2个字节进行存储 D、当前状态下执行“剪裁”命令，保持其他参数不变，存储容量变为原来的3／5 -
9、已知字母“i”的ASCIl码值为69H，则字母“m”的ASCII码值是（ ）A、73H B、1001011B C、73D D、1101101B
-
10、某算法流程图如图所示，执行这部分流程后，变量s的值是（ ）
A、
B、
C、
D、
-
11、使用Access软件打开数据库，部分界面如图所示。
下列说法正确的是（ ）
A、当前视图下不能对“课程名称”字段名进行修改 B、“课程编号”字段数据类型为自动编号 C、当前打开的数据表共有8条记录，删除记录后无法撤销 D、删除“课程类别”字段会使记录数减少 -
12、使用word软件编辑某文档，部分界面如图所示。
下列说法正确的是（ ）
A、修订前，第一行文字为“自古以来，人类地生存与信息有着不解之缘。” B、接受所有修订后，第一行文字为“自古以来，人类地生存和发展与信息有着不解之缘。” C、文中2个加点的“地”可通过自动更正功能改为“的” D、删除文中的“每时每刻”，批注内容不会被删除 -
13、关于网页与网络应用术语缩写，下列说法不正确的是（ ）A、WWW是互联网的英文缩写，是提供WEB页访问、浏览的一项服务 B、HTML是一种超文本标记语言，其源代码由网页浏览器解释执行 C、SMTP协议用于把电子邮件送到收件人的电子邮件服务器中 D、HTTP协议用于浏览器与WEB服务器之间的信息传输
-
14、关于信息及安全，下列说法中正确的是 （ ）A、拍摄一张照片，这张照片即为信息 B、信息的表示、存储必须依附于载体，信息的传播则不需要载体 C、网络支付密码应尽量简单 D、信息可重复使用而不会产生损耗
-
15、【加试题】某数据存储算法如下：使用长度为n的一维数组h来存储m个不同整数型数据(m<n)，数据的存储位置t根据存储数据的值除n取余计算得到。例如使用长度为11的数组来存储67，45，1 275，119，145，269，64共7个数据，先存储第1个数据67，67 Mod 11=1，在第1位置上没有数据，则存放在第1位置。第2个数据45，45 Mod 11=1，而在第1位置上已存有数据，那么查找下一位置有没有数据，现第2位置上没有数据，则存放在第2位置。在查找空位时如果到了数组最后一个位置还没有空位，则从头继续查找，以此类推……，举例数据存储结果如表所示。
位置
0
1
2
3
4
5
6
7
8
9
10
数据
64
67
45
145
269
119
1275
(1)、若按上述规则，再存储一个数据79，则存储在第 位置。(2)、当n=97时，实现上述数据存储及相应数据查找的VB程序如下，运行结果如图所示，请在画线处填入合适的代码。Const n=97
Dim d(0 To 96)As Integer，h(0 To 96)As Integer
Dim m As Integer ‘变量m为数据个数
Private Sub Command1_Click() ‘数据存储
Dim i As Integer，t As Integer
‘从数据库读取数据先存储在数组d中，代码略
List1.Clear
For i=0 To n-1
h(i)=-1 ‘数组元素初始化
Next i
For i=0 To m
①
Do While h(t)<>-1
t=(t+1)Mod l2
Loop
h(t)=d(i)
Next i
For i=0 To n-1
List1．AddItem Str(i)＆“：”&Str(h(i))
Next i
End Sub
Private Sub Command2_Click() ‘数据查找
Dim x As Integer，Y As Integer，z As Integer
x=Val(Text1．Text)
y=x Mod n
z=1
Do While ②
z=z+1
y=(y+1)Mod n
Loop
If h(y)=x Then
Label2．Caption=“共查找了”&Str(z)&“次，在第”&，Str(y)&“位置找到”
Else
Label2．Caption=“共查找了”&Str(z)＆“次，没有找到”
End If
End Sub
① ②
(3)、数组h中的元素值初始化为-1表示含义是。 -
16、【加试题】小华在探究将两段已按从小到大排序的数据连接后用冒泡排序思想再进行从小到大排序的情况，编写VB程序功能如下：在列表框List1中显示排序前的数据(存储在数组c中)，单击“排序”按钮Command1后，在列表框List2中显示排序后的数据。程序运行界面如图所示。
实现上述功能的VB程序如下，但加框处语句有错，请改正。
Const n1=9 ‘第1段已排序数据长度为n1
Const n2=6 ‘第2段已排序数据长度为n2
‘数组c长度为n1+n2，依次存储第1，2段数据
Dim c(1 To n1+n2)As Integer
Private Sub Command1_Click()
‘数组c依次存储两段已按从小到大排序的数据
‘并在列表框List1中显示，代码略
List2．Clear
A位置
For i=n1+1 To n1+n2
j=i
B位置
Do While j>1 And Flag
t=c(j)
c(j)=c(j-1)
c(j-1)=t
C位置
Else
Flag=False
End If
j=j-1
‘②Loop
Next i
For i=1 To n1+n2
List2．Addltem c(i)
Next i
End Sub
(1)、①处加框代码有错，应修改为。(2)、②处“Flag=True”语句的位置有错，应放在(单选，填字母：A／B／C)位置。 -
17、小文创作“白雪世界”的多媒体作品。砸凭使用Photoshop软件制作背景图片，然后使用Flash软件制作动画，回答下列问题：(1)、Photoshop画布如图a所示，下列仅能缩小“雪的世界”四个字的工具和命令有(多选，填字母：A，缩放工具
／B，文字工具 
／C，文字蒙版工具 
／D，“自由变换”命令／E，“图像大小”命令)。 
(2)、Flash制作界面如图b所示，库中有个元件。(3)、“太阳”图层成功实现从完全透明到完全不透明的变化效果，该补间类型是。(4)、单击“静音”按钮停止音乐播放，“静音”按钮的动作脚本是。(5)、测试影片，发现播放到第25帧时背景图层中内容突然消失，产生此现象的原因是。 -
18、“字符串合并”程序实现功能：在文本框Text1中输入字符串1，在文本框Text2中输入字符串2，单击“合并”按钮Command1，按如下规则依次从中取出各字符进行合并，合并后的结果显示在标签对象Label3中。
合并规则如下：
⑴当字符串1的长度大于字符串2的长度时，将字符串2中的各个字符从左侧依次插入到字符串1中的各字符后方。例如字符串1为“abcdef”，字符串2为“123”时，合并后的字符串为“a1b2c3def”。
⑵当字符串2的长度大于等于字符串1的长度时，将字符串1中的各个字符从右侧依次插入到字符串2中的各个字符后方。例如字符串1为“abcd”，字符串2为“12345”时，合并后的字符串为“12d3c4b5a”。
程序运行界面如图所示。
(1)、要使程序运行时，窗体Form1标题显示“字符串合并”，可在Form_Load事件过程中添加语句(单选，填字母：A，Form1.Caption=“字符串合并”／B，Label3．Caption=“字符串合并”／C，Text1．Text=”字符串合并”)。(2)、实现上述功能的VB程序如下，请在画线处填入合适的代码。Private Sub Command1_Click()
Dim s1 As String，s2 As String，arts As String
Dim n As Integer，m As Integer，i As Integer
s1=Text1．Text
s2=Text2．Text
m=Len(s1)
n=Len(s2)
If m>n Then
For i=1 To n
ans=ans+Mid(s1，i，1)+Mid(s2，i，1)
Next i
ans=ans+Mid(s1，i，m-n)
Else
For i=1 To m
ans= ① +Mid(s1，i，1)+ans
Next i
ans=Mid(s2，1，n-m)+aFIS
②
Label3.Caption=”合并为”+ans
End Sub
① ②
(3)、若在文本框Text1中输入“Word”，在文本框2中输入“Mini”，单击“合并”按钮后，标签Label3中显示的内容是。 -
19、小戴收集了部分流通领域重要生产资料市场价格变动的相关数据，并使用Excel软件进行数据处理，部分界面如图a所示。
请回答下列问题：
(1)、数据区域F4：F9，F11：F17，F19：F21的数据是通过公式计算得到的，在F4单元格中输入公式，用复制粘贴功能完成F11：F17单元格的计算，则F11单元格的公式是。(2)、若将第10行删除，单元格F11：F17的数据会发生变化吗?(填：会或不会)。(3)、根据数据表中的数据制作的图表如图b所示，创建该图表的数据区域是。
(4)、对数据表中的数据进行筛选操作，筛选设置如图c所示，则按此设置筛选出的产品有种。
-
20、【加试题】某对分查找自定义函数search()的VB程序段如下：
Function search(key As Integer)As String
Dim pos As Integer，i As Integer，j As Integer
Dim nc As String
i=1：j=6：nc=“”
Do While i<=j
m=Int((i+j)／2)
nc=nc+Str(m)
If d(m)=key Then
Exit Do ‘Exit Do表示退出Do While循环
ElseIf key<d(m)Then
j=m-1
Else
i=m+1
End If
Loop
search=nc
End Function
数组元素d(1)到d(6)的值依次为“23，34，45，65，78，98”，则下列说法正确的是 （ ）
A、调用函数search(25)的返回值为字符串“3 2” B、调用函数search(34)的返回值为字符串“45 32” C、调用函数search(56)的返回值为字符串“3 5 4” D、调用函数search(98)的返回值为字符串“45 78 98”