图1

实现上述功能的VB程序如下，请回答下列问题：

Private Sub Command1_Click()

Dim a(20) As Long

Dim i As Integer, j As Integer, s As String List1.Clear

n = Val(Text1.Text)

a(1) = 1

List1.AddItem Str(a(1)) For i = 2 To n

    s = ""

    For j = Step -1  

        a(j) =    ①     

        s = s + Str(a(j))

    Next j

           ②        Next i

点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

转换方法：先从右往左将二进制数分割成 4 位一组，若最左边的一组不足4位，则用 0 将高位补足，然后将每 4 位二进制数转换为 1 位十六进制数。