题型：综合题 题类：常考题 难易度：普通
浙江省高中信息技术 矩阵问题练习
IJKLMNOPQRSTUVWXYZ”,转换成5行的“N”字形排列如图所示：
小张根据排列规律设计了“N”字形排列显示的VB程序，功能如下:在文本框Text1中输入原字符串，在文本框Text2中输入“N”字形的行数row(row大于等于3).单击“转换”按钮Command1后，将字符串沿“N”字形排列显示在列表框List1中。程序运行如图所示。
Private Sub Command1_Click()
Dim span As Integer ‘第一行相邻字母在原字符串中的间距
Dim space As Integer ‘第一行相邻字母间的空格个数
Dim row As Integer, i As Integer, s As String, line As String
s = Text1.Text
List1.Clear
span = row * 2-2
space = row - 2
For i = 1 To row
line =“”: j = i
Do While j <= Len(s)
line = line + Mid(s, j, 1) ‘输出第i行第一个字符
If i <> 1 And i<> row Then ‘判断结果不为首行和末行时
line=line+ Pad(space - i + 1) ‘输出字符之前的空格
line=line+ ‘输出字符
line=line+ Pad(i - 2) ‘输出字符之后的空格
Else
line=line+ Pad(space) ‘输出首行和末行的空格个数
End If
j = j + span ‘间隔之后的字符位置
Loop
Next i
End Sub
’函数Pad(n)的值为n个空格构成的字符串,比如Pad(3)代表3个空格构成的字符串
Function Pad(n As Integer) As String’产生n个空格构成
的字符串
’代码略
End Function
试题篮
