资源简介

Private Sub Command2_Click()
Dim i As Integer,j As Integer,ml As Integer,m2 As Integer
ml=0:m2=n\2
For i n 1 To 2 n
If
②
Then
mlml 1:a(ml)=i
Else
m2=m2+1:a(m2)=i
End If
Next i
For j=1 To n \2
List2.AddItem"第”+CStr(2*j-l)+"名”+Str(
③
List2.AddItem"第”+CStr(2*j)+"名”+Str(a(n\2+j))
Next j
End Sub
16.用VB编写字符串“密码破译”程序，其功能如下：在文本框Text1中输入任意一串字符串，字符
串长度为n*n(n为自然数)，单击“解密”按钮Commandl,在文本框Text2中输出解锁密码。解
锁密码破译步骤如下：将字符依次存储到数组中，存储方式从左下向右上，平行于矩阵的对角
线依次进行存储，以长度为36的字符串“Tolerance is the mental,YouSheng优胜一筹”为例，
数组a元素对应的赋值情况如图a所示；将对角线字符从右上向左下依次相连即为解锁密码。程
序运行效果如图b所示。
a(1)a(2)a(3)a(4)a(5)a(6)
a
h
a(7)a(8)a(g)a10)a(11)42)
0/
e
t
n
0
a(13)a14)a15)a(16)p47)a(18)
e
e
e
a(19)a20)a(21)p22)a(23)a(24)
s
h
优
a(25)a(26)p27)a(28)a(29)a(30)
1
g
a(31)
32)
a(33)a(34)a(35)a(36)
e
a
u
n
胜筹
图a
口密码破译
一回X
请输入字符串：
Tolerance is the nental,.YouSheng优胜-筹
解锁密码：
解密
tnem e
图b
卷（信息技术）第7页（共8页）
实现上述功能的VB程序如下，请回答下列问题：
(I)若输入的字符串内容为“abcdefghijklmnopqrstuvwxy”,则破译后的解锁密码为.
(2)请在划线处填写合适代码，使程序正常运行。
Private Sub Commandl Click()
Const n =6
Dim a(1 To nn)As Integer
Dim b(1 To nn)As String
Dim i As Integer,j As Integer,k As Integer,s As String
Dim zf As Integer'变量zf存储数组a元素的值
Dim xb As Integer'变量xb存储数组a的下标
Dim p As Integer
For i 1 To Len(Text1.Text)
b(i)=Mid(Text1.Text,i,1)
Next i
k=1
For i 1 To n
k=k+(i-1)
zf k
①
a(xb)=zf
p=i+1
For j=2 To n
If j zf zf p
a(xb j-1)=zf
p=p+1
Else
②
zf zf p
a(xb j-1)=zf
End If
Next j
Next i
For i 1 To n
8=S+
③
Next i
Text2.Text s
End Sub
卷（信息技术）第8页（共8页）

展开更多......

收起↑