1.选择题- (共12题)
A.X一定是奇数 |
B.X的最大值为(16)10 |
C.若将X和X+1分别转换为二进制数,两者数字位数不同,则X的值为(F)16 |
D.在该二进制数的末尾再添加一个“0”,则得到的新值一定是X的2倍 |
A.光电子技术 | B.人工智能技术 | C.多媒体通讯技术 | D.遥感技术 |

Private Sub Command2_Click()
Dim a(1 To 7) As String
Dim i, j, t2, m,cd As Integer
Dim s, t, p As String
s = Text1.text
cd=Len(s)
For m = 1 To cd
a(m) = Mid(s, m, 1)
Next m
For i = 1 To 2
For j = cd To i + 1 Step -1
If a(j) < a(j - 1) Then t = a(j): a(j) = a(j - 1): a(j - 1) = t
Next j
Next i
For t2 = 1 To cd
p = p + a(t2)
Next t2
Text2.Text = p
End Sub
A.welcome | B.ceelmow | C.cewelmo | D.womleec |
i = 1: j = 7: n = 0
Key = Val(Text1.Text)
Do While i <= j
n = n + 1
m = Int((i + j) / 2)
If Key = a(m) Then Exit Do
If Key < a(m) Then j = m - 1 Else i = m + 1
Loop
数组元素 a(1)到 a(7)存放的数值依次为 8,21,27,36,79,28,98,若该程序段运行结束后,n 的值为 2,则 Text1 中输入的要查找的数是()
A.27 或 79 | B.28 | C.21 或 28 | D.21 |
A.新增记录,不会对已有记录的字段值产生影响 |
B.在数据表视图中,不可以对字段名进行重命名 |
C.数据库文件名称不能和它的数据表名相同 |
D.Access数据库文件可以设置密码,这样数据库就无法共享 |

A.“图1”图层可以实现”自由变换”操作 |
B.背景图层可以添加图层样式 |
C.“图1”图层有部分锁定,因此无法隐藏 |
D.当前状态下,两个图层可以交换位置 |

A.清除关键帧 | B.删除帧 | C.清除帧 | D.插入帧 |

下列说法正确的是
A.若在当前状态下执行插入5秒静音,按原参数保存,其文件大小不变 |
B.该音频每秒采样44100个点,每个采样点需要16位存储 |
C.该音频开始时加入了淡入效果 |
D.若在当前状态下执行删除操作,按原参数保存,文件大小约为1.72MB |
2.填空题- (共5题)
数字频率统计:小王编写 VB 程序,实现如下功能:在文本框中输入一串任意字符串(含数字),单击“统计”按钮 Command1,在列表框 List1 中统计并输出数字 0~9 出现的次数。运行界面如图所示,VB 程序代码如下。

(1)根据代码可知,文本框对象的名称为________________________。
(2)为实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a(0 To 9) As Integer, s As String Dim k As String, i As Integer
s = Tabc.Text
List1.Clear
For i = 1 To Len(s)
_____①
If k >= "0" And k <= "9" Then
_____②
S=k+s
End If
Next i
For i = 0 To 9
List1.AddItem Str(i) & "出现了:" & a(i) & "次"
Next i
End Sub
(3)如果输入的是“hello 8102!” ,执行完以上程序后,变量S的值为________
(加试题)某校秋季运动会共n名运动员参赛,高老师编写了一个运动会号码牌查询软件,输入号码牌就能查询该号码牌所属的班级和运动员姓名。数组hm、bj、xm分别保存了本次运动会所有运动员的号码牌、所在班级和姓名的信息。第i个选手的号码牌保存在a(i)中,对应的班级和姓名保存在bj(i)和xm (i)中。
运动会号码牌查询程序界面如第16题图所示,在文本框Text1中输入号码牌,单击“查询”按钮(Command1),电脑就开始查找该号码牌的信息,如果找到对应的信息,就显示该运动员所属班级和姓名,如果没有找到,则显示“没有该号码牌的信息”。

相应程序如下,在程序①和②划线处填入适当的语句和代码,把程序补充完整。
(1)学生运动会数据存入的数据库文件是_________________;
(2)在程序画线①处应填入________________________;
(3)在程序画线②处应填入________________________。
Dim n As Integer ‘运动员人数
Dim hm(1000) As Integer, bj(1000) As String, xm(1000) As String
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;DATA Source=" & App.Path & "\games.accdb"
conn.Open
strSQL = "SELECT * FROM Student"
Set rs.ActiveConnection = conn
rs.Open strSQL
n = 0
Do While Not rs.EOF '到记录集最后一条记录后退出循环
n = n + 1 '计数
hm(n) = rs.Fields("号码")
bj(n) = rs.Fields("班级")
xm(n) = rs.Fields("姓名")
rs.MoveNext '移动到下一条记录
Loop
‘用冒泡排序法按a数组(号码牌)升序排列,显示在列表框List1中,代码略。
End Sub
Private Sub Command1_Click()
Dim w As Integer
w = Val(Text1.Text)
pos = ①
If pos > 0 Then
Text2.Text = bj(pos)
Text3.Text = xm(pos)
Else
Text2.Text = "找不到"
End If
End Sub
Function Search(Key As Integer) As Integer
Dim i As Integer, j As Integer,
i = 1
j = n
Do While i <= j
found = Fix((i + j) / 2)
If Key = a(found) Then
Search = found
Exit Function
ElseIf ② Then
j = found - 1
Else
i = found + 1
End If
Loop
Search = 0
End Function
(加试题)某同学设计了一个VB程序用于分析“纸牌游戏”中发到手的牌的信息,各牌面值在程序中的输入值和输出值如图所示。程序运行界面如图所示,在文本框Text1中输入数字代表玩家手中的牌的信息,点击“分析”按钮后,在列表框list1按牌面值顺序输出各中牌的相关信息。

请回答下列问题:
(1)在打牌中5张以上的连续牌称为顺子,若输入的牌是“8991012141511610113”,则这些牌中的顺子是(使用上图中“输出值”表示各种牌):____________________
(2)请在划线处填上合适的代码。
Private Sub Command1_Click()
Dim zpAs String, pai As String, t As String
Dim a(1 To 50) As Integer, b(3 To 15) As Integer
‘a数组存储按序输入的各个牌,b数组存储每个牌型(3~10,JQKA2)的数量
Dim i As Integer, c As Integer, k As Integer, flag As Boolean
Const s = "34567890JQKA2" '输出牌型,牌10用0代替
zp= Text1.Text
i = 1: c = 1: flag = True
Do While i <= Len(zp) And flag = True
pai = Mid(zp, i, 1)
If pai >= "3" And pai <= "9" Then
a(c) = Val(pai): i = i + 1
ElseIf pai = "1" Then ‘要用2位数字代表某个牌
k =①_________________
If k >= 10 And k <= 15 Then
a(c) = k
i = i + 2
Else
flag = False
End If
Else
flag = False
End If
c=c+1
Loop
If flag = False Then
List1.AddItem "输入数据有误"
Else
For i = 1 To c -1 '洗牌,统计每个牌型的张数
(____________________________________________________________)
Next i
List1.AddItem "共有" + Str(c -1) + "张牌"
For i = 1 To ③_________________
t = ""
For k = 1 Tob(i+2)输出每个牌型及其数量
t = t + Mid(s, i, 1)
Next k
If Len(t) > 0 Then List1.AddItem t
Next i
End If
End Sub
小明用Excel统计某中小学教育资源平台应用情况,数据表如图所示。请回答下列问题:
(1)J3单元格中的公式是通过复制H3单元格得到的,则J3中的公式为_____________________。
(2)现要将高中的所有学校按“活跃空间比率”进行降序排列,排序对话框如图所示,则应选择排序的数据区域为___________________。

(3)小明利用excel表中数据制作了下面的的图表。该图表的数据区域为______________________。

(4)小王对表格数据进行了筛选操作,筛选操作截图如下图所示。筛选以后显示的记录有____条。


愚人节马上到了,小新打算制作一个“愚人节攻略”的动画,他先用Photoshop CS5制作了三个场景所需的图片素材,然后根据自己制定的脚本来制作flash动画,脚本如下:
场景名:main | 类别序号:2 | 进入方式:直接进入 | |
呈现方式: 1. 背景、卡通小妹、文字,一直出现在舞台上。2. “卡通小妹”从舞台左侧进入到舞台,并停留在门附近。 3. “文字1”在舞台右上方淡入并持续一闪一闪的动画 4. 其它动画略。 5. 单击重播按钮,跳转到main场景开始播放。 | 呈现顺序说明: 1.一开始出现背景、卡通小妹动画。2.0.5秒以后出现文字1动画。 3.依次播放 main、load、end三个场景,end场景最后一帧出现重播按钮。 | ||

图a

图b

图c
请回答下列问题:(1)小新在使用Photoshop CS5的过程中,将卡通小妹复制到“卡通小妹”图层后,发现该图层图像过大,不符合图片的比例,如图a所示,她利用编辑菜单里的_________(选填:图像大小/画布大小/自由变换)功能将其等比例缩小了70%,得到了自己满意的比例。
(2)小新将“相框”图像复制到“相框”图层,发现相框并没有显示出来,结合图a分析原因:________________________。
(3)“文字1”出现一闪一闪的效果,说明对该文字“颜色”属性的___________值设置了0%—100%的变化。
(4)在执行“测试影片”命令时,发现播“卡通小妹”出现后便消失了,不符合脚本要求,观察图b分析如何改正:______________________________。
(5)在执行“测试影片”命令时,出现了如图c这样的错误,说明被设置动作命gotoAndPlay("main", 1);的对象是___________(选填:场景/图层/帧/按钮),根据脚本要求,正确的动作命令应设置为_________________________________________。
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17