相关试卷
-
1、下列VB程序运行时，单击命令按钮Command1后，标签框Label2中显示的内容是
Private Sub Command1_click()
Dim s as integer,I as integer
S=0
For i=1 to 20 step 3
s=s+(-1)^i*i
Next i
Label1.caption=str(i)
Label2.caption=str(s)
End Sub
-
2、采用冒泡排序将六个数“22，14，18，17，21，16”从小到大进行排序，则第二轮交换数据后的顺序是（ ）A、14，22，16，18，17，21 B、14，16，18，17，21，22 C、14，16，22，17，18，21 D、14，22，16，17，18，21
-
3、有序数列3.6,8,11.6,22,24,27,31,36.5,35，46，通过对分查找查找数31，需找（ ）次A、4 B、3 C、2 D、1
-
4、有Visual Basic程序如下：
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c = a + b
Label1.capton = c
End Sub
程序运行时，单击命令按钮command1，弹出如图所示的出错信息提示，此时程序正执行的语句是（ ）
A、a = Text1.Text B、b = Text2.Text C、c = a + b D、Label1.capton = c -
5、字符“A”比“a”的ASCII码值小32（十进制），已知字符“n”的二进制ACSII码值为（1101110）2 ， 则字符“P”的十进制ACSII码值是（ ）A、80 B、90 C、77 D、74
-
6、宁宁同学制作了一个“江源风景”的Flash动画文件，其中main场景的制作界面如图-1所示。
(1)、若想使该场景完整播放一次的时间增加到原来的1.5倍，应将帧频修改为(2)、“main”场景中某实例的属性面板如图-2所示，该实例由库名为的元件应用的舞台中实现，其元件类型是。
(3)、在动画播放时，“鸟”图层上的小鸟（实例“bird”）一开始并不可见，在动画播放至第帧才出现；“船”图层中，第1帧到第40帧的动画是 (填：形状补间或动画补间)(4)、最后出现“重播”按钮，单击重播按钮后使影片跳转到该场景的第1帧重新播放，则应在该按钮上设置的动作命令是 -
7、学校艺术节举行“飞扬青春”海报设计大赛，小强想结合浙江卫视热门综艺节目“奔跑吧，兄弟”来制作一张“奔跑吧，青春”的海报，如图1所示。他使用的素材如图2所示，部分编辑窗口如图4所示。
图 1
图 2
图 3
图 4
请回答以下问题：
(1)、图2中的素材跑男要合成到跑道中去，需要用到图4中的 。(2)、图3中的跑男执行 操作，可以得到效果图中的跑男大小。 -
8、小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图1所示。阅读程序并完成后面的问题。
图1
(1)、设计应用程序界面时，为添加a所指向的对象，应使用图2所示的“控件工具箱”中的（填写相应编号）;在图3所示的“属性窗口”中，将属性值设置为“开始”，可使图2中b所指向的对象显示“开始”。
(2)、请根据题意将下列程序补充完整。Private Sub Command1_Click()
Dim i, j, c As Integer
Dim n As Long
c = 0
For i = 0 To 99
n = 110800 + i
If Then
List1.AddItem Str(n) + " " + "5"
c = c + 1
End If
Next i
Label2.Caption = "满足条件的数有：" + Str(c) + "组"
End Sub
-
9、小李对金融很感兴趣，他关注“中国石油”的股票并下载了近期的交易数据，如图-1所示。
(1)、“涨跌额”为本交易日的“收盘价”与前一交易日的“收盘价”之差，要计算各交易的“涨跌额”，可在F3单元格输入公式 后，利用自动填充功能完成其他交易日的“涨跌额”计算。(2)、以区域的数据制作2015年2月2日至2015年3月13日“中国石油”收盘价的行情图，如图-2所示，该图表的类型是。
(3)、分析图-2可知，下列4个时间段：“收盘价”涨幅最大的时间段是 （填序号）。A、2015年2月2日至2015年2月3日 B、2015年2月16日至2015年2月17日 C、2015年2月25日至2015年2月26日 D、2015年3月11日至2015年3月12日 -
10、使用Goldwave软件编辑某音频时的部分界面截图如图所示：
A、执行“删除”操作后，该音频的存储容量将减少 B、执行“删除”操作后，被选中的部分的音频将变成“静音” C、执行“裁剪”操作后，该音频的存储容量不变 D、执行“裁剪”操作后，被选中的部分的音频将变成“静音” -
11、下图是制作某flash作品“风筝”时的截图，从图中可知，“背景”图层中的背景图片仅在第1帧到第20帧出现，若要使背景图片一直延续到第45帧，可在该图层的第21帧上进行的操作是（ ）
A、清除关键帧 B、删除帧 C、清除帧 D、剪切帧 -
12、材库中4个未经压缩的图像文件相关信息如图所示。
其中存储容量最大的是（ ）
A、flower1.bmp B、flower2.bmp C、flower3.bmp D、flower4.bmp -
13、在创作多媒体作品时，需要确定作品的结构类型，这一环节属于（ ）A、应用需求分析 B、创作需求分析 C、作品内容分析 D、结构类型分析
-
14、某Access数据表打开后下图所示，下列描述中正确的是（ ）
A、“商品代码”字段的类型是数值型 B、该数据表记录数少于10条 C、该数据表字段数是6个 D、删除“销售日期”字段后，记录数不会少 -
15、有算法流程图如下图所示：
执行该算法，当x的值为5时（ ）
A、y的值为11 B、y的值为13 C、y的值为12 D、程序出错 -
16、小李使用Word修订功能对某文档做了几处修订，部分截图如图所示：如全部接受图中所示的修订内容，则第一句话的文字将变为（ ）
A、支付宝封杀微信的消息得到确认，在微信上开店的商户将无法使用支付宝接口，只能另投其他支付工具。 B、支付宝封杀微信的消息得到确定，在微信上开店的商户将无法使用支付宝转账，只能另投其他支付工具。 C、支付宝封杀微信的消息正式得到确认，在微信上开店的商户将无法使用支付宝接口，只能另投其他支付工具。 D、支付宝封杀微信的消息正式得到确定，在微信上开店的商户将无法使用支付宝转账，只能另投其他支付工具。 -
17、“滴滴一下，马上出发”，滴滴打车软件为打车一族出行带来了方便，该软件下载界面部分截图如图所示：
根据图中信息，下列关于该软件的说法不正确的是（ ）
A、采用了统计评价 B、需在IOS系统环境下运行 C、存储容量约为9216KB D、通过微信扫描图中的二维码可以下载该打车软件 -
18、小红用UltraEdit软件观察“Hold住2015高考”这几个字，显示的十六进制内码如下图所示。则“2016高考”这几个字对应得内码用十六进制表示是（ ）
A、32 30 31 36 B8 DF BF BC B、31 35 B8 DF BF BC C、32 30 31 36 B8 E0 BF BC D、31 35 B8 E0 BF BC -
19、人们在网购消费后往往会通过网络对商家进行评价。评价既能够提供给其他买家一些购买建议，也能够促进商家改进商品或改良服务。人们在网络上对商品进行评价的这一过程属于（ ）A、信息的存储 B、信息的采集 C、信息的处理 D、信息的发布
-
20、有一Access数据库“school.accdb” 存放在f:\2015mt\vb文件夹中，其中的“student”数据表用来存储学生的基本情况信息，包括学号(num)、姓名(name)、性别(sex)、分数(score)，括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生信息，运行界面如下图所示。在文本框Text1中输入学生的学号，单击“查询”，在文本框Text2、Text3 、Text4中分别显示学生姓名、性别、分数。
Private Sub Command1 Click()
Dim adocn As New adodb.Connection
Dim adors As New adodb.Recordset
Dim str2 As String, str1 As String
str1 = "Provider=Microsoft.ACE.OLEDB.12.0;data source=f:\2015mt\vb\ "
adocn.Open str1
str2 = "select * from students where num=" + Text1.Text
adors.Open str2, adocn, adOpenDynamic, adLockOptimistic
If adors.EOF = True Then
MsgBox "你输入的学号不存在"
Else
Text2.Text = adors.Fields("name").Value
Text3.Text = adors.Fields("sex").Value
End If
adors.Close
adocn.Close
End Sub