学进去

某次测验后，一位同学利用VB编写了一个查分系统。他首先把班级所有同学的学号、姓名、总分及名次数据存放在名为“student. accdb”的info表中。查分系统的功能如下：在文本框Text1中输入学号，单击“开始查询”按钮，若找到该学号，则在标签Label4中显示该学生的学号、姓名、总分及名次；若找不到该学号，则显示“查无此人”。按此要求编写程序如下，但加框处代码有错，请改正。
程序中①加框处改为____________________。
程序中②加框处改为____________________。

Dim a(1 To 50)As String ＇用来存放学号数据
Dim b(1 To 50)As String ＇用来存放姓名数据
Dim c(1 To 50)As Single ＇用来存放总分数据
Dim d(1 To 50)As Integer ＇用来存放名次数据
Private Sub Form Load()
Dim. conn As New ADODB. Connection
Dim rs As New ADODB. Recordset
conn. Connection String="Provider= Microsoft
AC

A．OLEDB12. 0;DATA Soure="+App Path+ "/Student. aeedb"

conn. Open
Set rs. ActiveConnection=conn
rs. Open "Select*From info"
n=0
Do While Not rs.EOF
n=n+1
a(n)=rs. Fields("学号")
b(n)=rs. Fields("姓名")
c(n)=rs. Fields("总分")
d(n)=rs. Fields("名次")
rs MoveNext
Loop
rs Close
conn. Close
Set rs= Nothing
Set conn=Nothing
End Sub
Private Sub Commandl_Click()
Dim key As String, i As Integer
Dim find As Boolean
key=Text1. Text
i=1
find= True
Do While And find             ①
If key=a(i) Then
find=False
Else
           ②
End If
Loop
If find= False Then
Label4. Caption="学号为"+key+"的名字为"+b(i)+"总分为"+c(i)+"名次为"+d(i)
Else
Label4. Caption="查无此人"
End if
End Sub

下图是制作某Flash作品时“背景”图层的截图，从图中可知，“背景”图层中的背景图片仅在第1帧到第15帧出现，若要使背景图片一直延续到第25帧，可在该图层的第16帧上进行操作的是（   ）。

A．删除帧

B．清除帧

C．清除关键帧

D．剪切帧

小李在制作某Flash作品时，从外部导入位图“篮球.jpg”素材至舞台中，他想删除篮球的背景色，应现对该文件执行（   ）。

A．“分离”命令

B．“剪切”命令

C．“转换为元件”命令

D．“转换位图为矢量图”命令

小李设计“移数游戏”程序，实现如下功能：在列表框中有24个数字（8个“1”，8个“2”，8个“3”）随机排成“井”字形方阵，通过单击游戏界面中的八个按钮实现往箭头方向循环移动所在行（或列）的数据，例如“→③”按钮所在行的数据依次为2，2，3，3，3，2，1 ，若单击一次“→③”按钮后，该行的数据向右循环移动一次，依次变为1，2，2，3，3，3，2 。玩家通过按钮移动数据，最终若使游戏界面中虚线框内的八个数字为相同数字则完成游戏。程序运行界面如图所示。

（1）在如图所示的游戏界面中，单击某按钮一次后，即可完成游戏，则该按钮的Caption属性值是_______________。
（2）程序部分代码如下，请在划线处填入合适的代码。
Dim a(1 To 49) As String
Private Sub Form_Load()
Dim k(1 To 3) As Integer
Randomize t = 0
For i = 1 To 49 x=_______________y = (i - 1) Mod 7 +1
If x = 3 Or x = 5 Or y = 3 Or y = 5
Then t = Int(Rnd * 3) + 1
Do While_______________
t = t Mod 3 + 1
Loop
k(t) = k(t) + 1 a(i) = Str(t)
Else
a(i) = "    " End If
Next i
’在列表框中输出数据，得到“井”字形方阵。代码略 End Sub
’下面为单击“↑①”按钮，实现数据的移动
Private Sub Command1_Click()
j = 3
temp = a(6 * 7 + j) For i = 1 To 6
p = i - 1
If p < 1 Then p = 7
a((p - 1) * 7 + j) = a((i - 1) * 7 + j) Next i

_____________= temp

’在列表框中输出数据，更新“井”字形方阵。代码略
End Sub

’其他按钮所实现功能的代码略

数组a中存储的是两个数列交替排序的n个正整数，下标为奇数的数组元素都是奇数且为升序排列，下标为偶数的数组元素都是偶数且为降序排列。排序示例如下。

a(1)	a(2)	a(3)	a(4)	a(5)	a(6)	a(7)	a(8)	a(9)	a(10)
1	10	3	8	5	6	7	4	9	2

 
依据对分查找思想，设计一个在数组a中查找数据key的程序，实现该功能的VB程序如下，请回答下列问题：
（1）观察程序代码，该事件处理过程名为______________。
（2）程序加框处代码有错，请改正。
应改为：________________________
（3）请在划线处填入合适的代码。
①处代码为：______________________________，②处代码为：_____________________________。
Private Sub Search_Click()

Const n = 10

Dim a(1 To n) As Integer

Dim i As Integer, j As Integer, m As Integer, f As Boolean, key As Integer

’读取一组正整数，按上述规则存入数组 a 中。代码略

key = Val(Text1.Text)

If key Mod 2 = 1 Then i = 1 Else i = 2

j = n :f = False

Do While i <= j And Not f

If key Mod 2 = 0 Then
m = (i + j) \ 2 - (i + j) \ 2 Mod 2
Else
m = _①_______ 
End If

    If key = a(m) Then

f = True
ElIf Then
j = m - 2
Else

i = _②____ 

End If

Loop

If f Then Label1.Caption = Str(m) Else Label1.Caption = "不存在"

End Sub

小明撰写电子邮件时，部分界面如图所示。下列说法中正确的是（   ）。
           

A．该邮件的收件对象有两个

B．该邮件的发件人邮箱是wang2011@163.com

C．该邮件的正文内容是“春游照片”

D．该邮件有2个附件

小明访问某网站时，使用IP地址可以正常访向，但使用域名却无法访问，这可能是（  ）出现问题。

A．DNS服务器

B．FTP服务器

C．E-mail服务器

D．www服务器

在Flash中制作月牙变月圆的动画效果，动画起始关键帧的属性面板如下图所示。下列说法正确的是（     ）
          

A．当前帧使用的对象是实例

B．声音“主题曲.mp3”会播放 42.8 秒

C．当前状态下已成功创建形状补间动画

D．声音效果“自定义”可以实现对声音的剪裁

在 Flash 中用补间动画实现文字“福”变为“到”的效果，该动画起始关键帧的属性面板如图所示，下列说法正确的是（    ）
          

A．测试场景时，该补间动画变化过程中有减速效果

B．关键帧中的对象为“福”元件生成的实例

C．通过“编辑”按钮可对 bg.mp3 进行剪裁等操作

D．使用工具可更改“福”字的颜色和大小

对一段字符（仅包含大小写字母和数字）加密，加密规则为：①字母和数字都往后循环顺移3位：如“a”变为“d”，“y”变为“b”；“0”变为“3”，“7”变为“0”，②加密后字母在前，数字在后，③字母按逆序排列，数字按顺序排列，如输入明文“a1b7Z8x3”，密文为“aC3d4016”。
                      
（1）根据程序代码分析，“加密”按钮的名称是___________。
（2）根据加密规则明文“9G78fbY5”，则密文为__________。
（3）请在划线处填入合适的代码：
Private Sub Com_jm_Click()
Dim x As String, ch As String, cl As String
Dim sl As String, s2 As String, s As String
Dim i As Integer, n As Integer, y As Integer
x=Text1.Text
n=Len(x)
For i=1 To n
ch=Vid(x, i, 1)
If ch>= "0" And ch<= "9" Then
①____

s2=s2 & Str(y)

Elself ch>= "a" And ch<=" z" Then
y=(Asc(ch)-Asc("a")+3) Mod 26
②____
s1=c1+s1
Else
y=(Asc(ch)-Asc("A")+3) Mod 26
c2=Chr(Asc("A")+y)
s1=c2+sl
End If
Next i
③____
Text2.Text=s
End Sub