如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框list1中显示100以内的所有孪生质数对(运行效果如图所示)。

实现上述功能的VB代码如下, 但加框处代码有错，请改正。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k =" 0:" i = 3
Do While i <= 100
If   prime(i)   Then      ‘⑴
k =" k" + 1
a(k) = i
End If
i =" i" + 2
Loop
For i =" 2" To k
If   a(i) =" a(i" +1)+2   Then   ‘⑵
List1.AddItem Str(a(i - 1)) + "和" + Str(a(i))[来源:学#科#网Z#X#X#K]
End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i =" 2" To Int(Sqr(x))
If  x Mod i =" 0"  Then
prime = True
Exit For
End If
Next i
End Function

编写VB程序,实现如下功能: 单击“排序数组a”按钮Command1时，对已有数组a的数据进行升序排列，并显示在文本框Label1中；单击“显示数组b”按钮Command2时，将升序数组b的数据显示在文本框Label2中；再单击“合并a和b”按钮Command3时，对数组a和数组b升序合并到字符串中，将合并后的数据在文本框Label3中显示。(运行效果如图所示)。实现上述功能的VB代码如下, 请在划线处填入合适代码。

Dim a(1 To 6) As Integer
Dim b(1 To 6) As Integer
Private Sub Command1_Click()     '对数组a中的数据进行排序
Dim i As Integer, j As Integer ，k as integer
a(1) =" 53" :a(2) =" 18:a(3)" =" 62:a(4)" =" 22:a(5)" =" 6:a(6)" = 25
s = ""
For i =" 1" To 5
k = i
For j =" i" + 1 To 6
If a(k) > a(j) Then      ①
Next j
If i <> k Then
t =" a(k):" a(k) =" a(i):" a(i) = t
End If
Next i
For i =" 1" To 6
s =" s" + Str(a(i))
Next i
Label1.Caption = s
End Sub
Private Sub Command2_Click()
b(1) =" 3:" b(2) =" 8:" b(3) =" 15:" b(4) =" 27:" b(5) =" 38:" b(6) = 49
'此处部分代码省略
End Sub
Private Sub Command3_Click()
'将数组a和b中的数据逐个比较后添加到新的字符串s中，并将s在label3中显示
i =" 1:" j =" 1:" s = ""
Do While i <=" 6"     ②   j <= 6           '如果两数组都还有数据未合并
If        ③    Then
s =" s" + Str(a(i)) : i =" i" + 1
Else
s =" s" + Str(b(j)) : j =" j" + 1
End If
Loop
Do While i <= 6                            '只有数组a还有数据未合并
s =" s" + Str(a(i)) : i =" i" + 1
Loop
Do While j <= 6                            '只有数组b还有数据未合并
s =" s" + Str(b(j)) : j =" j" + 1
Loop
Label3.Caption = s
End Sub

小李创作题为“交通安全宣传”的多媒体作品。使用Flash软件制作动画。
制作交通安全宣传Flash动画如图所示，其“main”场景的制作脚本如下：

场景名：main	类别序号：2		进入方式：由“load”场景单击“播放”按钮进入
呈现方式： 1． 背景一直出现在舞台上，红灯在动画开始2.5秒后出现 2． “骑车人”从舞台外，从右向左在人行道上进入，直至消失。 3． “小轿车”、“公交车”由远及进驶至人行道，经过红绿灯后驶离舞台。		呈现顺序说明： 1． 一开始出现背景；依次出现“小轿车”从舞台中央驶离舞台，“公交车”驶至人行道。此时，交通信号灯为红灯。 2．  “骑车人”在红灯亮起后才开始从舞台外右侧经过人行道至舞台左侧，随后，交通信号灯红灯消失。 3． 最后“公交车”驶离舞台。

（1）如上图所示，根据制作脚本要求，“骑车人”放置在“行人”图层，测试影片发现“骑车人”没有在红灯亮起后才开始进入舞台，可执行的操作是        _________________
（2）库中的音频素材来自“片头音乐.wav”，应用于“音乐”图层中，其相关信息为“Wave PCM signed 16 bit，44.1KHZ，立体声”。该场景动画播放到第60帧结束时，声音刚好完整播放一遍。由此可知该声音文件的大小约为        KB（保留整数位）。
（3）如上图所示，“行人”图层中的实现“骑车人”从右向左移动的动画效果，在创建补间动画时，补间类型应设置为     （单选，填字母：A.动画 / B.形状 ）。
（4）测试影片时，“骑车人”中的有“骑自行车”和“车轮转动”的动画效果，元件“骑车人”的元件类型是         
（5）测试影片时，发现单击“load”场景中的“播放”按钮没有实现相应效果，根据提示内容和脚本要求，添加动作脚本为                              。

奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。

（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的      属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a =" n" Mod 2
n =" n" \ 2
t =      ①    
s =" Str(a)" + s
Loop
v =" t" Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" +      ②    
End Sub
（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是    。

小王利用VB及ACCESS数据库制作了一个解密程序，具体使用过程如下：
在VB项目文件夹目录中有一个ACCESS数据库文件data.accdb，其中有一张数据表如图1所示ask字段中存放的是密文字符，对应ans字段中存放的是明文字符。

图1
VB程序界面如图2所示，其中一个按钮Command1的Caption属性值设置为“读取密码本”，另一个按钮Command2的Caption属性值设置为“解密”。程序运行后先点击Command1，程序将从ACCESS数据库中读取明文密文对照表并显示在列表框List1中。然后在密文文本框Texe1中输入加密文字，点击Command2解密后的明文将显示在Text2中。

图2
程序代码部分如下，请回答后面的问题：
Dim a() As String
Dim b() As String
Dim length As Integer
Private Sub Command1_Click()
List1.Clear
Dim i As Integer
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString ＝“provider＝microsoft.ace.oledb.12.0；data source＝”& App.Path &
“\____①____”
conn.Open
rs.ActiveConnection ＝ conn
rs.CursorLocation ＝ adUseClient
rs. Open (“select * from code”)
length ＝ rs.RecordCount
ReDim a(1 To length)
ReDim b(1 To length)
rs.MoveFirst
For i ＝ 1 To length
a(i) ＝ rs.Fields(“ask”)
b(i) ＝ rs.Fields(“ans”)
List1.AddItem (a(i)&“____”&b(i))
rs.____②____
Next i
End Sub
Private Sub Command2_Click()
Text2.Text＝“”
Dim s As String
Dim i As Integer
s＝Text1.Text
For i＝1 To Len(s)
Text2.Text＝Text2.Text&translate(Mid(s，____③____))
Next i
End Sub
Function translate(ask As String) As String
Dim i as Integer
Dim flag as Boolean
i＝1
flag＝True
Do While i＜＝length And flag
If a(i)＝ask Then
____④____
End If
i＝i＋1
Loop
If flag＝True Then
translate＝“”
Else
translate＝b(i－1)
End If
End Function
(1)程序代码①处应该填入___________________________________。
(2)程序代码②处应该填入____________________________________。
(3)在程序代码③处补全Mid函数： __________________________。
(4)程序代码④处应该填入____________________________________。
(5)translate函数使用的查找算法是________(填对分查找/顺序查找)。

任意一个大于2位的正整数(各个位上数全相同的除外，如111)，如297，三个位上的数从大到小和从小到大各排一次，为972和279，相减，得693按上面做法再做一次，得到594，再做一次，得到495之后反复都得到495，495就为黑洞数。小丽编写了一个查找4位正整数黑洞数的程序，功能如下：
在文本框(text1)中输入，一个任意的四位正整数(全相同的除外，如1111)，点击计算按钮，在列表框(List1)中显示计算结果，在标签Label1中显示找到的黑洞数，具体代码如下所示，请完成下列问题：
Dim su(1 To 10) As Integer ‘su(i)数组用来存放原始4位数和每次计算结果
Dim a(1 To 4) As Integer ‘用来存放4位数每一位上的值
Private Sub Command1_Click()
su(1)＝Val(Text1.Text)
su(2)＝zp(su(1))
p＝2
Do While su(p)＜＞su(p－1)
p＝p＋1
____①____
Loop
For i＝1 To p
List1.AddItem su(i)
Next i
Label1.Caption＝Str(su(p))
End Sub
Function zp(m As Integer) As Integer
a(1)＝m Mod 10
a(2)＝(m\10)Mod 10
a(3)＝(m\100) Mod 10
a(4)＝m\1000
For i＝1 To 3
For j＝____②____ Step－1
If a(j)＞a(j－1) Then
t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
End If
Next j
Next i
____③____
End Function
①处程序代码为____________________________________。
②处程序代码为____________________________________。
③处程序代码为_____________________________________。

小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0。程序运行界面如下图所示：

实现上述功能的VB程序如下：
Private Sub Command1_Click()
Dim a(1 To 1000) As String   '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text
c = Text2.Text
n =" 0:" Max = 0
For i =" 1" To Len(s) - Len(c) + 1
ch =     ①
If ch =" c" Then
n =" n" + 1
a(n) = i
If n >=" 2" Then
If a(n) - a(n - 1) - Len(c) > Max Then Max =" a(n)" - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text =     ②
End Sub
以上程序段运行时，为了实现上述功能，划线处①和②应填入的代码分别为：
（1）_______________________________; （2）_______________________________

某移数字游戏的规则如下：有一个如图a所示的包含9个圆圈的数阵。将1~8这8个数字随机地填写到该数阵的外层圆圈中，只剩下中间的一个空圆圈。规定每个数字只能按照数阵中的直线从一个圆圈移动到另一个空的圆圈中。通过若干步的移动，要求将该数阵中的数字移动成为如图b所示的状态。
小张编写了一个VB程序来解这个游戏，功能如下：点击“初始化”按钮Command1初始化游戏，程序随机地将1~8这8个整数填入到数阵的外层圆圈中，同时将该状态下的数阵显示在列表框List1中。点击“开始”按钮Command2，程序开始移数字，并将移动过程中的每一步输出在列表框List2中，最后统计总移动步数到标签Label1中。为了清楚地描述输出数字在数阵中的每一步移动步骤，小张给数阵中的每一个圆圈都进行了编号，具体编号方法如图c所示，因此1号圈中的数字移动到2号圈可以表示为“1#-->2#”。程序运行界面如图d所示。


图d
实现上述功能的VB代码如下。
（1）请在划线处填入合适代码
Dim a(1 To 8) As String
Private Sub Command1_Click()
Dim temp As Integer, i As Integer, j As Integer
Dim flag(1 To 8) As Boolean
For i =" 1" To 8
           ①    
Next i
Randomize
For i =" 1" To 8
temp =" Int(Rnd()" * 8 + 1)   '生成1~8之间的随机整数
Do While flag(temp)
temp =" Int(Rnd()" * 8 + 1) '生成1~8之间的随机整数
Loop
a(i) = temp
flag(temp) = True       
Next i
List1.Clear   
List1.AddItem "初始状态："
PrintCircle
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, temp As String, n As Integer, moveStep As String
moveStep = ""
List2.Clear
n = 0
For i =" 1" To 7   '使用冒泡排序对圆圈中的数字进行移动
For j =" 1" To        ②     
If a(j) >=" a(j" + 1) Then
temp =" a(j):" a(j) =" a(j" + 1): a(j + 1) = temp
moveStep =" Str(j)" & "#--> 0#"
moveStep =" moveStep" & "  " & Str(j + 1) & "#-->" & Str(j) & "#"
moveStep =" moveStep" & "  " & "0#-->" & Str(j + 1) & "#"
List2.AddItem moveStep
n =" n" + 1
End If
Next j
Next i
List1.AddItem "移动数字后："
PrintCircle
Label1.Caption = "总移动步数：" &       ③        
End Sub
'在列表框List1中输出当前的数阵状态
Function PrintCircle()
List1.AddItem "-------------------------"
List1.AddItem "[" & a(1) & "]-[" & a(2) & "]-[" & a(3) & "]"
List1.AddItem " | \ | / |"
List1.AddItem "[" & a(8) & "]-[" & " " & "]-[" & a(4) & "]"
List1.AddItem " | / | \ |"
List1.AddItem "[" & a(7) & "]-[" & a(6) & "]-[" & a(5) & "]"
List1.AddItem "-------------------------"
End Function
（2）分析代码和游戏规则，事件处理过程“Command2_Click”中的冒泡排序______________（填 ：能 / 不能）改为使用选择排序。

已知方程“x^2+sin(x)-1=0”在区间[0,1]之间单调上升且有唯一解，可用对分思想不断缩小正解所在区间，找出其近似解（要求：误差小于0.001，结果截取3位小数）。单击“求解”按钮Command1，方程近似解显示在文本框Text1中。程序运行界面如下所示：

实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Function fun(x As Single) As Single
fun =" x" ^ 2 + Sin(x) - 1
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim x1 As Single, x2 As Single, y As Single, y1 As Single, y2 As Single
Dim mid As Single
x1 = 0
x2 = 1
y1 =" fun(x1)" '小于0
y2 =" fun(x2)" '大于0
For i =" 1" To ①  '确定合适终值，使最终结果恰好小于0.001
mid =" (x1" + x2) / 2
y = fun(mid)
If y < 0 Then
x1 = mid
ElseIf y > 0 The
②    [来源:Z*xx*k.Com]
Else
Exit For
End If
Next i
'结果截取3位小数
'CStr(Format(0.63756, "0.000"))返回“0.638”
Text1.Text = CStr(Format(     ③     , "0.000"))
End Sub

条形码是按照一定编码规则排列的图形标识符。如右图所示，条形码下方数字左边12位代表信息，最右边一位是校验码。校验码产生方法如下：

①把条形码下方数字从右往左依次编序号为“1,2,3,4……”；
②从序号2开始把所有偶数序号位上的数相加求和，并乘以3；
③从序号3开始把所有奇数序号上的数相加求和；
④把第②和第③步结果相加求和；
⑤10减去第④步结果的个位数，得出校验码（如果差值为10，则校验码为0）；
如条形码的数字为：977167121601X（X为校验码），则校验码主要产生步骤如下：
1) (1+6+2+7+1+7)×3=72
2) 0+1+1+6+7+9=24
3) 72+24=96
4) 10-6=4
所以最后校验码X=4，此条形码数字为9771671216014。
小何为此编写了VB程序，用以验证条形码输入正确与否。程序运行时，从文本框Text1获取条形码数字部分，单击按钮Command1后，在列表框List1中输出结果。实现上述功能的VB代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim i As Integer, b As String, Lb As Integer
Dim s1 As Integer, s2 As Integer, tmp As Integer
Dim c As String
Dim d(1 To 13) As Integer '存储数据
Dim res As String '存储结果
b =" Text1.Text" '输入
Lb = Len(b)
s1 =" 0" : s2 = 0
flag = True
res = "输入错误！"
If Lb =" 13" Then
For i =" 1" To 13
c =" Mid(b," Lb - i + 1, 1)
If c >= "0" And c <= "9" Then
d(i) =" Val(c)" '输入转换
Else
flag =" False" : Exit For
End If
Next i
If flag Then
For i =" 2" To Lb Step 2
s1 =  s1 + d(i)        '参数计算1
s2 =s2 + d(i)       '参数计算2    ①
Next i
tmp =" s1" * 3 + s2
If tmp Mod 10    Then res = "输入正确！"  ②
End If
End If
List1.AddItem res
End Sub