学进去

将某字符串按“V ”的形状进行变换，其变换方法描述如下：
（1）将字符串中的字母转换为大写字母后按升序进行排序；
（2）根据给定的行数，将字符串从上往下、从左到右进行“V ”字形排列；
（3）从左往右逐行读取字符串并输出；
例如：输入字符串为：“NoThingIsImpossible”，
经过排序得到字符串：“BEGHIIIILMNNOOPSSST”，行数输入为 3 时，排列如下：

经过变换后得到新字符串为：“BILOSEHIIMNOSSGINPT”。
编写 VB 程序，实现如下功能:在文本框 Text1 中输入行数，在文本框 Text2 中输入字符串（限定字母），单击“变换”按钮 Command1,在标签 Label3 中输出变换结果。程序运行效果如图所示。

（1）若小明在文本框 Text1 中输入 3，在文本框 Text2 中输入的的字符串为“NOTHING”，则在标签框 Label3 中输出的结果。________
（2）实现该功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Integer
Dim s As String, result As String
Dim a(1 To 26) As Integer, res(1 To 100) As String
Dim flag As Integer＇变量 flag 用于上下换方向
n = Val(Text1.Text)
s = conv(Text2.Text)
For i = 1 To Len(s)
c = Mid(s, i, 1)
_____①   
Next i
s = ""
For i = 1 To 26
For j = 1 To a(i)

s = s + Chr(i + 64)

Next j

Next i
j = 1: flag = -1
For i = 1 To Len(s)
c = Mid(s, i, 1)
res(j) = res(j) + c
If_____②   Then flag = -flag
End If
_____③   
Next i
For i = 1 To n
result = result + res(i)
Next i
Label3.Caption = result
End Sub
'小写字母转大写
Function conv(word As String) As String
Dim i As Integer, c As String, s As String
For i = 1 To Len(word)

c = Mid(word, i, 1)

If c >= "a" And c <= "z" Then c = Chr(Asc(c) - 32)

s = s + c

Next i
conv = s
End Function