学进去

数学帝忘记了自己的E-Mail邮箱密码，但她需要接收一封很重要的来信，于是她求助科技达人帮她尽可能找出密码。她零星记得自己密码的相关信息：密码是六位数字，前面两位为31；最后两位数字相同；能被16和46整除。
科技达人轻松地用VB写了个小程序，帮数学帝找到了所有可能的密码。
科技达人的程序运行界面如下图所示。

科技达人的程序段如下：
Private Sub Command1_Click()
Dim a As Integer, s As  long, b As Integer, i As Integer
For i =" 0" To 9999    ④
s =" 310000" + i
If s Mod 46 =" 0" Then
⑤
b =" (s" Mod 100) \ 10
If a =" b" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
请分析任务，完成下列题目。
（1）在程序运行界面中出现了三种控件，它们分别属于列表框、命令按钮、标签，请你在序号后写出其对应的控件类型：
①             ②             ③
（2）在程序运行界面中控件 ①上显示了“帮助找回密码”字样，这是通过改变           属性的值实现的。
（3）解决问题常用的算法有枚举算法、解析算法、排序算法、查找算法等，那么从上述程序段看，解决此问题的算法是         。
（4）程序段中出现了“Command1_Click”字样，表示这是一个面向对象的事件，这里的对象是___________________，事件是_______________。
（5）从程序段看，这段程序结构属于三种基本程序结构中的     。
（6）在程序段的变量定义语句中，先后出现了integer和long两种数据类型，他们分别是             型和             型。
（7）请在程序段中④和⑤处填充合适的内容，使程序完整。
程序中④处应填入______________
程序中⑤处应填入______________
（8）程序段中的语句 b =" (s" Mod 100) \ 10，目的在于计算s的十位数字，这里“\”实现了____________计算。

曲哲同学设计了一个英文字符串的加密算法,其加密的方法如下:
1.从被加密字符串中获取单个字符，然后得到其ascii码的8位二进制编码。
2.将字符的二进制编码反向，得到其逆序二进制码。
3.将逆序二进制码的每4位转换为相应的十六进制编码，即得到单个字符加密后的字符串。
4.以此类推，直到所有字符加密完成，得到加密字符串。
具体程序界面如下图，在text1中输入字符串，点击“加密”按钮command1后，在text2中显示加密后的字符串。
（1）已知字符a的ascii码为97，则字符串idear加密后的字符串为____________________。
（2）阅读整段程序，程序中①画线处应填入
程序中②画线处应填入                     。

Private Sub Command1_Click()
Dim s As String, ch As String
Dim result As String, chA As String, chB As String
Dim i As Integer, j As Integer
Dim n As Integer, m As Integer
s = Text1.Text
n = Len(s)
result = "": c = "0123456789ABCDEF"
For i =" 1" To n
ch =          ①
ch = niXu(ch)
m = 0
For j =" 1" To 4  ' 获取二进制码前4位的值
②
Next
chA =" Mid(c," m + 1, 1)
m = 0
For j =" 5" To Len(ch)
m =" m" * 2 + Val(Mid(ch, j, 1))
Next
chB =" Mid(c," m + 1, 1)
result =" result" + chA + chB
Next
Text2.Text = result
End Sub
' 得到单个字符ch的8位二进制编码
Function D2B(ByVal ch As String) As String
Dim s As String
Dim data As Integer, i As Integer
data = Asc(ch)：s = ""
Do While data > 0
s ="Str(data" Mod 2) + s
data =" data" \ 2
Loop
If Len(s) < 8 Then
For i =" 1" To 8 - Len(s)
s = "0" + s
Next
D2B = s
Else
D2B = s
End If
End Function
' 返回字符串s的逆序
Function niXu(ByVal s As String) As String
Dim i As Integer：Dim r As String
r = ""
For i =" Len(s)" To 1 Step -1
r =" r" + Mid(s, i, 1)
Next
niXu = r
End Function

条形码是按照一定编码规则排列的图形标识符。如右图所示，条形码下方数字左边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

已知方程“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
②   
Else
Exit For
End If
Next i
'结果截取3位小数
'CStr(Format(0.63756, "0.000"))返回“0.638”
Text1.Text = CStr(Format(     ③    , "0.000"))
End Sub

某移数字游戏的规则如下：有一个如图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        ②    使用冒泡排序对圆圈中的数字进行移动
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”中的冒泡排序______________（填：能 / 不能）改为使用选择排序。

以下程序实现倒计时功能，编辑界面如下。在Text1中输入数字后，点击“开始”按钮后，在Label1中显示从输入的值到0，每隔1秒中，数字减1。
根据题目要求，完成下题。

程序的代码代码，如下：
Dim t As Integer
Private Sub Command1_Click()
t = Val(①)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Text = Str(t)      ②
If  t =" 0" Then
Timer1.Enabled = False
MsgBox "时间到！"
Else
③                         '数字t减1
End If
End Sub
（1）根据题目意思，应该把Timer1的Interval设置为             。
（2）在①处，应填上代码                       。
（3）②所在行，运行时提示错误“未找到方法或者数据成员”，应改正为                  。
（4）在③处，应填上代码                。

小王利用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函数使用的查找算法是________(填对分查找/顺序查找)。

奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“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，单击“计算”按钮，则显示的校验位值是    。

小李创作题为“交通安全宣传”的多媒体作品。使用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”场景中的“播放”按钮没有实现相应效果，根据提示内容和脚本要求，添加动作脚本为                             。

如果两个质数的差为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))
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