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
~~ 已预览到文档结尾了 ~~
