学进去

（加试题）猴子选大王的问题:N 只猴子选大王，选举办法如下：从头到尾 1、2、3 报数，凡报 3 的退 出，余下的从尾到头 1、2、3 报数，还是报 3 的退出，依此类推；当剩下只有两只猴子时，不再报数，取 当前报数报 1 的为王。如五只猴子报数，则第一轮顺序为第 12345，第 3 只出列，第二轮顺序为 5421，第 2只出列；第三轮顺序为 145，第 5 只出列，这时第 1 只猴子报数为 1，则第 1 只猴子为猴王。若想当猴王， 请问最初占据什么位置？在 Text1 文本框中输入参选大王的猴子总数量，单击“猴王的位置”，在 Label2 标 签上显猴王最初的位置。VB程序运行界面如下：

实现上述功能的 VB程序如下：
（1）如果只有 10 只猴子参加本次选大王，则猴王最初的位置为：________
（2）实现上述功能的 VB程序如下，请在划线处填入合适代码。
Private Sub Command1Click()
Dim n, x, m, s As Integer   '假设参与的猴子数量不超过 5000
Dim a(1 To 5000) As Integer  '用数组 a 存储每只猴子的报数，值为 3 时视同出列
Dim t, y As Boolean    't 用于循环，y 为 true 时表示报数顺序是从头到尾，y 为 false 时报数顺序 是从尾到头
n = Val(Text1.Text)
x = 1  'x 为每次猴子的位置
m = 1  'm 为报数的 1、2、3
y = True
t = True
Do While t
'该位置的猴子是否已经出列
If a(x) <> 3 Then       '没有出列的,则报数
a(x) = m
①________      '1,2,3 之后重新开始
If m > 3 Then m = 1
Else       '每次有猴子报 3 出列之后，检查是否已经只有两只猴子没有出列
s = 0
For i = 1 To n
If ②________   Then s = s + 1
Next i
If s < 3 Then Exit Do
End If
If y = True Then x = x + 1 Else x = x - 1
'检查报数是在递增,还是递减,y 为 true 时递增
'报到最后一次猴子后
If x > n Then y = False: m = 1: x = n
'报到第一次猴子后
If x = 0 Then y = True: m = 1:
Loop
'输出猴王的位置
For i = 1 To n
③_________
If a(i) = 1 Then Label2.Caption = "猴王的位置为第" + Str(i) + " 只"
Next i
End Sub

李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（1）“A”变为一个1到100内的随机数*27+1，“B”变为一个1到100内的随机数*27+2，……，“Z”变为一个1到100内的随机数*27+26；
（2）每个字母变为数字后会加上一个“—”用来分割数字；
（3）其他空格和标点字符都按原来的表示。
李雷利用VB编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Command1后，程序会将密文解密并将解密后的内容显示在文本框Text2中。程序运行界面如图所示：

（1）根据描述，若密文为“1905-1442-”，则表示的是：_______________
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, yw As String, tAs String
Dim value As Integer    '用于存储某字母在密文中对应数值的临时变量
s = Text1.Text
value = 0
yw = ""
For i = 1 To Len(s)
t =①____________
If  t >= "0" And t <= "9" Then
value = value * 10 + Val(t)
ElseIf  t = "—" Then
yw = yw + Chr(Asc("A") + value Mod 27 -1)
②________________
Else
yw = yw + t
End If
Next  i
Text2.Text = yw
End Sub

某信息加密程序，对输入的明文（由英文字母或数字组成的字符串）进行加密，输出加密后得到的密文。
数据加密方法为对明文中的每个字符进行如下处理：
1）将该字符的ASCII码转换成对应的8位二进制；
2）将对应的8位二进制数进行按位取反（1变0，0变1）；
3）将产生的8位二进制数循环左移3次；

4）最后产生的8位二进制数转换成对应的十六进制数。
例如，明文大写字母“A”通过上述算法加密算法加密后生成的密文是“F5”，信息加密过程如图所示。

小李编写了加密算法的VB程序，在文本框Text1中输入明文，单击“生成密文”按钮Command1，程序对明文数据依次进行加密处理，加密后生成的密文显示在文本框Text2中。程序运行界面如下图所示。

（1）如果输入明文为大写字母“F”，则生成的密文是__________。
（2）实现上述功能的VB程序如下。请在划线处填入合适代码。
Function btoh(m As String) As String     '将4位二进制数转换成对应的十六进制数
Dim s As Integer, i As Integer
Dim str As String
str = "0123456789ABCDEF"
s = 0
For i = 1 To 4
s = s * 2 + Val(Mid(m, i, 1))
Next i
①___________ 
End Function
Private Sub Command1_Click()
Dim ans As String, s As String, ch As String, ret As String
Dim i As Integer, asc1 As Integer, n As Integer
s = Text1.Text
ans = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1)         '取出第i个字符存入变量ch
asc1 = Asc(ch)
ret = ""
For m = 1 To 8            '完成加密步骤1）和步骤2）
n = (asc1+1) mod 2
ret = n + ret
②___________
Next m
ret = Mid(ret, 4, 5) + Mid(ret, 1, 3)  '完成加密步骤3）和步骤4）
s1 = btoh(Mid(ret, 1, 4))
s2 = btoh(Mid(ret, 5, 4))
ans = ans + s1 + s2      '将第i个加密后的字符添加到变量ans的末尾
Next i
Text2.Text = ans
End Sub

如图 1 所示，这是一个城市街道简图，小明从 A 点出发，到达 B 点，如果在每一个路口只能向右或向上走（0 表示向上走，1 表示向右走），问小明有多少条行走路线，并请输出每条路线。程序界面如图 2 所示

算法分析：从 A 点到 B 点共有 7 个路口，即可以有一个 7 位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的 7 位二进制数，再去掉不满足的二进制数即可。
（1）图 1 所示路线对应的十进制数为_____。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim b As String, t As Integer, i As Integer, c As Integer, d As Integer
t = 0 '可走路线计数
For i = 15 To 120  '所有可走路线用十进制枚举
d = i
c = 0
b = ""
Do While d <> 0
If d Mod 2 = 1 Then
b = "1" + b
c = c + 1
If c > 4 Then Exit Do '若"1"的总数超过 4 个表示路线错误，需退出 Do 循环 Else
①_____________ End If
②____________ Loop
If c = 4 And Len(b) = 7 Then
t = t + 1
List1.AddItem b
End If
Next i
Label1.Caption = Str(t) + " 条"
End Sub

将一个十进数转化为任意进制可以采用“除权取余法”。方法是：a 为十进制数，n 为转化的 进制，从 a 开始循环除以 n，记下余数，整数商作为新的 a 继续除以 n ，直到 a=0 为止。然后 倒序取余数即可。余数 k 如果为 10<=k<=15，用字母依次记作“ABCDEF”，比如 k=10，记作 A。该 程序界面如下图所示，在文本框 Text1 中输入一个任意十进制数，在文本框 Text2 中输入要转换 的进制，单击“开始转换”按钮后，对应的进制数在文本框 Text3 中显示。

（1）代码“Private Sub Command1_Click()”中的 Click 是_________。（单选，填字母：

A．对象名/

B．属性名/

C．事件名）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_click()
Dim a As Integer, n As Integer, k As Integer, b As String
Const m = "0123456789ABCDEF"
a = Val(Text1.Text)
①_________
Do While   ②_________
k = a Mod n   '求 a 的余数
a = a \ n
b =③__________ + b
Text3.Text = b
Loop
End Sub
（3）在实现程序功能后，在 Text1 中输入 “16”，在 Text2 中输入 “16”，Text3 显示的内容是____

某种数据加密方法描述如下（加密前后的数值都是0~255的整数）：
•以m个数据为一段，将n个待加密数据依次分割成若干个数据段。剩余数据（个数小于 m）为一个独立数据段。
•数据段加密规则：
数据个数等于m的数据段，先进行值变换，再进行位置变换，得到加密数据段。
数据个数小于m的数据段，只进行值变换，直接得到加密数据段。
•依次合并加密数据段，即为最后的加密数据。
值变换：用值变换密钥数组x（元素个数为m，值为0~255的整数），将待加密数据段中的数据进行值变换，方法如下：
值变换后第i个元素=（待加密数据段第i个元素+ x（i）） Mod 256，其中i = 1，2，…，m 位置变换：用位置变换密钥数组y（元素个数为m，值为1~m的不重复整数），将上述值变换后的m个元素进行段内位置变换，方法如下：
加密后数据段第y（i）个元素=值变换后第i个元素，其中i = 1，2，…，m
例如，n=5，m = 3的数据加密过程如下：
段内序号待加密数据密钥数组x 值变换后数据密钥数组y 加密后数据

（1）已知m = 3，数组x与数组y中的数据如下表所示。则待加密数据段“155，1，250”加密后的数据段为______（填数据，用逗号分隔）。

x（l）	x（2）	x（3）		y（l）	y（2）	y（3）
10	20	30		3	1	2

 
（2）小张根据上述加密算法，设计了一个对应的解密程序，其VB代码如下，请在划线处填入合适的代码（解密与加密使用相同的密钥数据）。
Private Sub Command1_Click（）
Const n= 100
Const m = 6
Dim i As Integer，j As Integer
Dim a（1 To n） As Integer，b（1 To n） As Integer
Dim x（1 To m） As Integer，y（1 To m） As Integer
'读取值变换与位置变换的密钥数据，分别保存在数组x与y中，代码略。
'读取待解密数据，保存在数组a中，代码略。
'下面进行位置变换：位置变换后数据保存到数组b中
For i = 1 To ①
For j = 1 To m
②
Next j Next i
For i = （n \ m） * m + 1 To n
b（i） = a（i）
Next i
'下面进行值变换：值变换后数据仍保存到数组b中
j = 1
For i = 1 To n
b（i）=③
j = j + 1
If j > m
Then j = 1
Next i
'输出解密后数据，代码略。
End Sub

小明编写了一个 VB 程序对成绩数据进行排序。为保证相同分数的同学相对位置（指原数据中的前后关系）不发生改变，他试着采用一种新的排序算法来解决。为便于描述算法的实现过程，假定有如下数组 a：

下标	1	2	3	4	5
值	5	3	3	2	4

 
第一步：统计数组 a 中每个值 a(i)出现的次数，存入 b(a(i))，统计完成后数组 b 的情况如下：

下标	1	2	3	4	5
值	0	1	2	1	1

 
第二步：从前向后，依次使数组 b 中的每个值等于其与前一项之和，这样数组 b(a(i))就代表了数组 a 中小于或等于 a(i)的元素个数，完成第二步后数组 b 如下：

下标	1	2	3	4	5
值	0	1	3	4	5

 
第三步：从后往前，依次将数组 a 中元素填入数组 c 中，将数组元素 a(i)放在数组 c 的第 b(a(i))项，如元素 a(1)=5，应该放在数组 c 的 b(5)位（即 c(5） )。每放一个元素就将 b(a(i))递减；完成第三步后，数组 c 如下所示，已经完成升序排序，且相对位置不变，即原来 a （2）的值 3 仍然在 a(3)的值 3 前面。

下标	1	2	3	4	5
值	2	3	3	4	5

 
程序运行界面如右图所示：

实现上述功能的 VB 程序如下，回答以下问题：
（1） 从代码中可以得知，用于连接数据库的对象名是：________
（2） 请在划线处填上相应代码。
Dim a(1 To 50) As Integer '存放学生的成绩
Dim sname(1 To 50) As String '存放学生姓名
Dim n As Integer
Private Sub Command1_Click
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="Provider=Microsoft.AC

A．OLEDB.12.0;Data Source=" +

App.Path + "\stu.accdb"
conn.Open
strSQL = "SELECT * From stucj"
Set rs.ActiveConnection = conn
rs.Open strSQL
n = 0
List1.AddItem "姓 名" & " " & "成绩"
Do While Not rs.EOF
n = n + 1
a(n) = rs.Fields("cj")
sname(n) = rs.Fields("xm")
List1.AddItem sname(n) & " " & Str(a(n))
①_________
Loop
rs.Close
conn.Close
End Sub
Private Sub Command2_Click
Dim i As Integer, k As Integer
Dim b(0 To 100) As Integer
Dim c(1 To 50) As Integer, c1(1 To 50) As String 'c 和 c1 作为临时数组
For i = 1 To n
b(a(i)) = b(a(i)) + 1
Next
For i = 1 To 100
b(i) = ②__________
Next
For i = n To 1 Step -1
c(b(a(i))) = a(i)
c1(b(a(i))) = sname(i)
③_________________
Next
For i = 1 To n '把临时数组 c 和 c1 中的数据放入 a 和 sname 数组
a(i) = c(i)
sname(i) = c1(i)
Next
List2.AddItem "姓 名" & " " & "成绩"
For i = 1 To n
List2.AddItem sname(i) & " " & Str(a(i))

Next

End Sub

（加试题）某数据解密方法描述如下：对输入的密文（由英文字母或阿拉伯数字组成的字符串）进行解密，解密后输出明文。解密时对密文中的每个字符进行如下处理：
（1）将该字符的ASCII码转换成对应的8位二进制；
（2）将对应的8位二进制数进行按位取反（1变0，0变1）；
（3）将产生的8位二进制数循环左移2次；

图a
（4）将最后产生的8位二进制数转换成对应的十六进制数。
例如，密文小写字母“d”通过上述解密算法解密后生成的明文是“6E”，信息加密过程如图b所示。

图b
实现上述功能的VB程序如下：在文本框Text1中输入密文，单击“解密”按钮Command1，程序对密文数据依次进行解密处理，在文本框Text2中显示解密后生成的明文。程序运行界面如图c所示。

图c
实现上述功能的VB程序如下，请问答下列问题：
（1）如果输入密文为小写字母“a”，则解密后得到的明文是 ______________。
（2）请在划线处填入合适代码。
Function jiemi(m As String) As String  '将4位二进制数转换成相应的十六进制数
Dim k As Integer, i As Integer
Dim str As String
str = "0123456789ABCDEF"
k = 0
For i = 1 To 4

 k = k * 2 + Val(Mid(m, i, 1))

Next i
①_______
End Function
Private Sub Command1_Click()
Dim ans As String, s As String, ch As String, ret As String
Dim s1 As String, s2 As String
Dim i As Integer, m As Integer, asc1 As Integer, n As Integer
s = Text1.Text
ans = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1)                      '取出第i个字符存入变量ch
asc1 = Asc(ch)
ret = ""
For m = 1 To 8                         '完成解密步骤(1)和步骤(2)
②______
ret = n & ret
asc1 = asc1 \ 2
Next m
ret = Mid(ret, 3, 6) + Mid(ret, 1, 2)     '完成解密步骤(3)
s1 = jiemi(Mid(ret, 1, 4))
③_________
ans = ans& s1 & s2          '将第i个解密后的字符添加到变量ans的末尾
Next i
Text2.Text = ans
End Sub

（加试题）小王编写了一个猜价格的VB程序，程序界面如图所示。程序运行时，在列表框List1中显示20个随机生成的在[150,250]之间的价格及其序号。在文本框Text1中输入报价，单击Command1 “猜测”按钮后，在Label3中输出猜中价格对应的序号。

实现上述功能的VB程序如下，但加框处代码有误，请改正。
Dim d(1 To 20) As Integer
Private Sub Form_Load()
For i = 1 To 20                                   '生成20个随机价格
d(i)=Int(Rnd*100)+150                       ‘（1）________
Next i
For i = 1 To 19
For j = 20 To i + 1 Step -1
If  d(j) < d(j - 1) Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If

  Next j

Next i
For i = 1 To 20

List1.AddItem Str(i) + Str(d(i))

Next i
End Sub
Private Sub Command1_Click()
Dim baojia As Integer,i as integer, j as integer, t as integer , m as integer
Randomize
List1.Clear
baojia = Val(Text1.Text)
i = 1
j = 20
Do While i<= j
m=(i+j)/2                                      ‘（2）________
If  baojia = d(m) Then
Label3.Caption = "猜中  第" + Str(i) + "个"
Exit Do
ElseIf  baojia<d(m) Then
j = m - 1
Else
i=m-1                                          ‘（3）________
End If
Loop
End Sub

小王制作主题为“湖畔”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：

图a
（1）如图a所示，设置了图层样式的图层有_____（填图层名称）。
（2）如图a所示，“湖畔.psd”中存储每个像素点所需的位数为________位。
（3）如图b所示，为使动画停止播放时声音继续播放，则“音乐”图层中音频的同步方式为 ________（选填：事件/数据流）。

图b
（4）如图b所示，要使音乐随着“白云”的出现开始播放，正确的操作是________ 。
（5）测试场景时，“白云”图层的动画效果_______（选填：可见 / 不可见）。
（6）测试影片时，单击“诗词”按钮，实现在浏览器中显示位于同一目录下“shici.txt”文件的内容，则“诗词”按钮的动作脚本为 _______。