用十六进制查看字符内码，结果如下图所示

该字符内码可能是（   ）

A．2个GB2312字符	B．4个ASCII字符
C．2个ASCII字符1个GB2312字符	D．4个GB2312字符

一张1600*1200像素16位色的bmp图像,把它另存为分辨率为800*600像素16色的bmp图像,其存储空间是原来的（    ）

A．1/16倍

B．1/8倍

C．1/4倍

D．4倍

某Access数据表如图所示：

以下说法中正确的是（    ）

A．该数据表最多7个字段

B．“中共党员”字段类型为是否型，存储该类型数据需要1字节

C．“年龄”字段类型为数字型，“性别”字段类型为文本型

D．该数据表的名称为“学生基本情况：表”

小明妈妈想了解一下杭州二中最新新闻动态，上网使用浏览器访问杭州二中网站www.he2hs.net.cn，浏览网站所采用的协议是（    ）

A．FTP

B．POP

C．HTTP

D．SMTP

能得到一个大于等于20且小于50随机整数的VB表达式是（   ）

A．Int(rnd*50)-20

B．Int(rnd*30+20)

C．Int(rnd*31+20)

D．Int(rnd*30)+1

在Visual Basic 中，若x、y都是正整数且x能被y整除，则下列关系表达式值一定为真的是（   ）

A．x mod y =0

B．x<>y

C．x mod 2 =0

D．x/y=0

变量a中存储了一个字符，能够正确判断该字符为数字字符“0”-“9”的VB表达式是（   ）

A．Asc(a)>="0" Or Asc(a)<=9

B．“0”<=a<=”9”

C．a<="”0”" Or a>=”9”

D．a>="”0”" and a<=”9”

VB语句List1.addItem d(i) 的作用是把数组d的数据添加到列表框对象List1中。该语句中的“addItem”是（   ）

A．属性名

B．属性值

C．方法

D．事件

小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码，点击登录按钮后，会跳出信息框提示是否验证成功。部分程序与流程图如下所示：

uname = Text1.Text '输入用户名
psd = Text2.Text    '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “” ' Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “    ”
Else
MsgBox “    ”
方框中正确的语句是（ ）。

A．①中“验证成功”	B．②中“输出用户名或密码有误”
C．②中“验证成功	D．③中“输出验证码错误”

A班一组同学的英语听力成绩分别为24、27、16、15、24、18，下列采用排序算法及第二遍的排序结果分别为:

原始数据	24	27	16	15	24	18
第一遍	27	24	16	15	24	18
第二遍
第三遍	27	24	24	15	16	18
第四遍	27	24	24	18	16	15
第五遍	27	24	24	18	16	15

 

A．冒泡排序，27 24 16 15 24 18

B．冒泡排序，27 24 18 16 15 24

C．选择排序，27 24 16 15 24 18

D．选择排序，27 24 18 16 15 24

有如下一段VB程序。
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text =" Text1.Text" + Str(n)
If n <=" 1" Then
f = 1
Else
f =" f(n" - 1) + 2
End If
End Function
程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（   ）

A．1

B．3

C．123

D．321

小王为眸某话剧社的“长生”话剧找了一段Wave格式的过场音效，用GOLDWAVE软件打开后查看信息如图所示：
 
她要把这段音效上传到QQ群空间，上传网速稳定在150K/秒，估计需要多久（    ）

A．1秒

B．6秒

C．48秒

D．6分钟

学校艺术节举行“飞扬青春”海报设计大赛，小李想结合浙江卫视热门综艺节目“奔跑吧，兄弟”来制作一张“奔跑吧，青春”的海报，如图所示。他使用的素材如第图-2所示，部分编辑窗口如图所示。

第12 题图-3

请回答以下问题：

（1）图中的素材跑男要合成到跑道中去，最方便的是图中的____（1）____。
（2）  图中的“跑男”图层执行___（2）__操作，可以得到效果图中的跑男大小。

将一个田字格的一格或几格涂上黑色或不涂色,可以代表0～15这16个数.请你根据下面前4个图形表示数的规律,写出后面2个图形表示的数

后面两个图形分别表示 （1） 、 （2） 。

小刚的支付宝账户密码忘记了，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：
①密码是六位数字，前面两位为59；
②最后两位数字相同；
③能被12和38整除。
程序界面如图所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。


（1）应用程序界面设计时，添加“list1”对象用于显示可能的密码，应使用如图所示的“控件工具箱”中的______________（填写相应编号）
（2）解决此问题的相应程序如下，请根据题意将程序补充完整。
Private Sub  Command1_click ( )   
Dim x As Integer, s As Long, y As Integer, i As Integer
For i =" 0" To 9999
S =" 590000" + i
If ________①________  Then
x=" s" mod 10
y =" (s" Mod 100) \ 10
If x =" y" Then
_________②______     
End If
End If
Next i
End Sub

下列程序的功能是在text1中输入的自然数，分解为3个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中。例如，输入20，那么在列表框中会显示如下图所示结果。其中，上述界面中“分解”按钮的名称是“Command1”，程序中函数f(x)的功能是判断x是否为质数，如果是质数则返回值为true，否则返回false.

请在下列程序代码的基础上按照要求设计该程序, 完善程序中的划线部分。
Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer
Function f(x) As Boolean
f = True
For i =" 2" To Sqr(x)
If x Mod i =" 0" Then _____( 1 )_____
Next i
End Function
Private Sub Command1_Click()
n = _______( 2 )_______
For a1 =" 2" To n
For a2 =" a1" To n
For a3 =" a2" To n
If _______( 3 )_______ And f(a1) And f(a2) And f(a3) Then
List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))
End If
Next a3
Next a2
Next a1
End Sub
(1)
(2)
(3)

小明利用所学的信息技术知识帮助语文老师设计一个语文学考等级查询系统，要求如下：输入某个等级，就能查出该等级的所有学生学号和姓名，并统计出该等级学生的人数，以便语文老师方便了解学生的学考情况。语文学考成绩分A、B、C、D、E五个等级，学生信息存储在数据库文件“stugrade.accdb”的数据表“Chinese”中，数据表“Chinese”的结构如图所示。


VB程序运行界面如题图所示，在文本框Text1中输入查询的等级，单击“查询”按钮Command1，在列表框List1中显示所有该等级的学生学号和姓名，并按照学号从小到大排序，并在标签Label2处显示学生的人数，如果人数为0,则在列表框中显示“没有该等级的学生”。按此要求编写程序如下，在下划线处填上合适的代码。
Private Sub Command1_Click()
Dim stuna(1 To 100) As String '存放学生姓名的数组定义为stuna
Dim stunum(1 To 100) As String '存放学生学号的数组定义为stunum
Dim i As Integer, j As Integer, n As Integer
Dim t As String
Dim cn As New ADODB.Connection '连接数据库
Dim rs As New ADODB.Recordset
Dim strSQL As String
cn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\stugrade.accdb "
cn.Open
strSQL = "select * from     ①  where 语文等级='" + Text1.Text + "'"
Set rs.ActiveConnection = cn
rs.Open strSQL
n = 0
Do While Not rs.EOF
②
stuna(n) = rs.Fields("姓名").Value
stunum(n) = rs.Fields("学号").Value
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
List1.Clear '清除列表框
If n =" 0" Then
List1.AddItem "没有该等级的学生"
Else
For i =" 1" To n - 1 '按姓名排序
For j =" n" To     ③   Step -1
If ④  Then [来源:学。科。网Z。X。X。K]
t =" stunum(j):" stunum(j) =" stunum(j" - 1): stunum(j - 1) = t
t =" stuna(j):" stuna(j) =" stuna(j" - 1): stuna(j - 1) = t
End If
Next j
Next i
For i =" 1" To n
List1.AddItem stunum(i) + "  " + stuna(i)
Next i
Label2.Caption = "该等级的学生共有" + Str(n) + "名"
End If
End Sub
（1）       
（2）       
（3）       
（4）       

小明做个一个关于介绍文房四宝的FLASH动画。如图-1所示。

第13 题图-1

第13 题图-1

（1）根据上图所示，该动画“库”里有 种元件。

（2）在“纸”图层的第10帧和第26帧中实例的部分属性如图所示，该图层的在10-26帧的动画中是往  （单选“左上”、“左下”、“右上”或者“右下”）方向移动
（3）小明在测试影片之前不小心把“背景”图层隐藏了（如图所示），那么他在测试影片的时候   （填“能”或者“不能”）看到背景图片。
（4）小明想在动画最后做一个按钮，按下按钮后能回到该场景动画的第一帧开始播放，那么他需要在该按钮上添加的动作命令是    。