学进去

其8位日期加密授权码生成方法描述如下：
①授权码由9位字符组成，前三位为日期的密文，最后1位为验证码；
②日期的最后1位数字k（若k的值为0，令k=10），加密成26个大字英语字母表该位置对应的字母。
③将26个大写英文字母向左移k（日期的最后1位数字）个位置，并将移出的k个字母依次连接到最后。例如当k=3时，形成如下表所示新的字母排列顺序：

位置	1	2	3	4	……	23	24	25	26
字母	D	E	F	G	……	Z	A	B	C

 
④日期的第1个数字至第7个数字的加密方法是：计算第i个位置上的数字与第i+1个位置的数字及位置i三者相加的和，在新的字母表中取出该数字和对应的字母，作为第i个位置上数字加密字符。
⑤计算日期的各个位置上数字之和sum，若和sum的值大于26，在新的英文字表中，sum Mod 26对应字母转换成小写字母，作为验证码，否则验证码为新的英文字母表中对应字母。
（1）根据上述加密算法，若输日期为“20000101”，则生成的注册码为__________________________。
（2）小张根据上述加密算法，设计了一个对应的解密程序，其VB代码如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

Dim i As Integer, j As Integer, s As String, k As Integer

Dim mw As String, sum As Integer, t As Integer, t1 As Integer

strl="0123456789"
s=Text1.Text
①_____
t=k:sum=t
s1=Mid(strl,t+1,1)
For i=7 To 1 Step-1
t1=Asc(Mid(s, i, 1))-64
j= ②_____
s1=Mid(strl1,t+1,1)+s1
sum=sum+t
Next i
mw=jm(k)
If sum>26 Then
sum=sum Mod 26
ch=Chr(Asc(Mid(mw, sun, 1))+32)
Else
ch=Mid(mw, sum, 1)
End If
If ch=Mid(s, 9, 1) Then Text2.Text=s1
Else Text2.Text="该系列号未能通过验证!"
End Sub
Function jm(t As Integer) As String

Dim i As Integer, p As Integer

If t=0 Then t=10

For i=1 To 26

p=(t+i-1) Mod 26
③____
Next i
End Function

某对分查找算法的VB程序段如下：
Private Sub Command1_Click()
Dim d(1 to 10) As Integer, i As Integer, j As Integer, m As Integer
Dim Key As Integer, s As String
Key = Int(Rnd * 50 + 1)
s = "": i = 1: j = 10
Do While i < j
m = (i + j) \ 2
If Key = d(m) Then Exit Do
If Key < d(m) Then
j = m : s = s + "L"
Else
i = m + 1: s = s + "R"
End If
Loop
Label1.Caption = s
End Sub
若数组元素d(1)到d(10)的值依次为“3，8，9，15，26，28，32，37，45，49”，执行该程序段后，标签Label1上显示的字符串s出现字母“L”和“R”个数相同的情况有（）

A．1种

B．2种

C．3种

D．4种

有如下VB程序段：
Dim a(1 To 5) As Integer
a(1) = 1
For i = 2 To 5
a(i) = Int(Rnd() * 3) + 3
Next i
For i = 2 To 5
If a(i) Mod 2 = 1 Then
a(i) = a(i) + a(i - 1)
Else
a(i) = a(i) / 2
End If
Next i
执行程序后，a数组各元素可能是（   ）

A．1，2，6，10，13

B．1，4，9，2，7

C．1，5，8，15，22

D．1，2，5，11，1

有如下VB程序段：
i=1:j=63:n=0
Do While i<=j

m=(i+j)\2

If key =a(m)Then

Exit Do

Else If key<a(m)Then

j=m-1:n=n-1

Else

i=m+1:n=n+1

End If

Loop
数组元素a(1)到a(63)存放着递增的数据。若执行该程序段后，n的值为6，则下列表达式成立的是（   ）。

A．key<a(1)

B．key=a(1)

C．key=a(63)

D．key>a(63)

某对分查找算法的VB程序段如下：
Key = va1(Text1. text)
i = 1:j = 10
Do While i <= j
m = Int((i +j)/2)

If a(m)= key Then Exit Do

If key > a(m) Then i = m+1 Else j = m-1

Text2.Text = Text2. Text +Str(a(m))

Loop
数组元素a(1)到a(10)的值依次为“5，12，20，29，36，40，55，58，66，74”，若在文本框Text1中输入数据，执行该程序段，文本框Text2中显示的内容为：36，58，40，55，则key的值可能是（   ）

A．38或45

B．45或56

C．56或58

D．57或70

“奔跑吧，兄弟”栏目组要在全国各地挑选节目录制的地点。有来自K（1<=K<=25）个不同省份的N（K<=N<=100）个地区送来了各自的竞选材料。由于参选地区太多，没有办法同时呈现所有材料供评委进行选择。栏目组决定选择一段连续区间内的参选地区，这个区间内每个省份的参选地区至少要有1个，求满足要求的最小区间长度。参选地区用数字1，2，3…N表示，每个地区所属的省份依次存入数组a(1)到a(N)，若1号地区的省份编号是3，即a(1)=3，分析可知，所求区间的长度至少为K（省份的数量），最大为N（地区的数量），我们可以通过二分K到N之间的数求得最小区间长度。例如有10个参选地区，分别来自于5个不同的省份，从左到右排列，地区编号依次2，1，2，4，3，3，5，3，5，4,则最小的一段包含所有5个地区的区间是从第2个到第7个地区，区间长度为6。
（1）若有12个参选地区，分别来自于6个不同的省份，从左到右排列，地区编号依次为2，1，6，4，6，3，1，2，3，5，5，4则最小的区间长度为_________________________________。
（2）请在划线处填入合适的代码。
①处代码______________；②处代码______________；③处代码______________。
Dim a(1 To 100)As Integer, T As Integer, N As Integer
Private Sub Form _Load()
'产生N的值，表示地区数，产生K的值，表示省份数
'产生编号为1到N的地区的省份编号，并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim M As Integer
i=K:j=n
Do While i <=j
 ① 

If bh(M)= True Then

j=M-1
ans =M

Else

i=M+1

End If

Loop
Text1.Text=Str(ans)
End Sub
Function bh(M As Integer)As Boolean
Dim f(1 To 25)As Integer     'f(i)表示省份为i的地区是否包含
Dim t As Integer  
bh=False
For i=1 To n-M+1  '枚举以i为起点的M个地区中各个省份是否都包含

For j=  ② 

f(a(j))=1

Next j

t=0

For j =1 To K

  ③  

Next j

If t=K Then bh = True:Exit Function

For j=1 To K

f(j)=0

Next j

Next i
End Function

学校筹办社团节，每个社团先到A场地做“准备”，然后到B场地“风采展示汇报”。同一场地，同一时间只允许一个社团使用。每个社团使用

A．B场地时间都有所不同。已知学校共n个社团，第i个社团使用A场地时长为a[i]分钟，使用B场地时长为b[j]分钟。为了更高效的组织这次活动，某同学编写了如下VB程序计算此次活动的最小总时长和社团参会的顺序。

算法思路：
1）统计m(i)表示第i个社团中在A和B两个场地中用时的较小值。
2）按m(i)值从小到大排序，然后按m(i)值的顺序，逐个社团安排参会顺序，策略如下：为了使得总时长最短，让A场地用时最少的最先开始；B场地用时最少的最后开始。对于每个社团，若m与该社团在A场地使用时间相同，则将它排在剩余的可排位置的最前面，若m(j)与该社团B场也使用的时间相等，则将它安排在剩余可排位置的最后面。例如：N=5，社团序号分别是{1，2，3，4，5}1至5号社团使用A场地的时间依次为：{3，5，8，7，10}，1至5号社团使用B场地的时间依次为：{6，2，1，4，9}，按上述算法可求得5个社团m[j]的值依次为：{3，2，1，4，9}。
（1）按上述算法策略，5个社团中最先进入A场地的社团的序号是__________（填数字）。
（2）请在划线处填入合适的代码。
①处代码______________；②处代码______________；③处代码______________。
Dim s(1 To 100)As Integer 's(i)表示第i社团存储社团序号
Dim a(1 To 100)As Integer 'a(i)表第i社团使用A场地时间
Dim b(1 To 100)As Integer 'b(i)表示第i社团使用B场地时间
Dim m(1 To 100)As Integer 'm(i)表示第i社团两个场地用时间的较小值
Dim ans(1 To 100)As Integer 'ans(i)表示第i个参会的社团序号
Dim n As Integer
Private Sub Form _Load()
'从文件中读取N的值和每个社团使用A场地和B场地的时间分别存入a(i)和b(i)，代码略
End Sub
Private Sub Command1_Click0()
For i =1 To n

m(i)=(i):s(i)=i

If  ①  Then m(i)=b(i)

Next i
For i=1 Ton-1

For j=i+1Ton

If m(i)>m(j)Then
t=m(i):m(i)=m(j):m(j)=t
t=s(i):s(i)=s(i):s(i)=t
End If

Next j

Next i
'安排社团参会顺序
k=0:t=n+ 1
For i =1 To n

If  ②  Then

k=k+1
ans(k)=s(i)

Else

t=t-1
ans(i)=s(i)

End If

Next i
'输出第i个参会的社团的序号ans(i)
For i =1 To n

Listladditem第"+ Str(i)+“个参会的社团序号为"+s(ans(i))

Next i
'根据当前社团参会顺序，计算总时长
k=0:t=0
For i =1 To n

k= k+ a(ans(i))

If t < k Then  ③  

t=t+ b(ans(i))

Next i
List1.AddItem"最少的总用时:"+ Str(t)
End Sub

下列VB程序模块可以计算正整数n阶乘的值。
Function f(n As Integer) As Integer
If n < =" 1" Then
f = 1
Else
f =" n" * f(n - 1)
End If
End Function
该模块采用的算法是（   ）

A．枚举

B．查找

C．排序

D．递归

某电子设备的电路板上有一个4位的“跳板开关”，此开关每一位都只有“打开”和“闭合”两种状态，这个“跳板开关”最多可以表示的状态数是（  ）

A．16

B．8

C．12

D．24

Excel工作表中，B4：E6单元区域包含的行数和列数分别是（  ）

	A	B	C	D	E
1
2
3
4
5
6

 

A．6，4

B．4，6

C．4，3

D．3，4