实现上述功能的VB 代码如下，其中加框处代码有错，请改正。

Dim n As Integer, i As Integer, t As Integer, sum As Long, s As String n = Val(Text1.Text)

For i = 1 To n ^ 3 Step 2

    sum = 0: t = i: flag = False

    Do While sum <= n ^ 3 And flag = False

       sum = sum + t

            ⑴

       If sum = n ^ 3 Then flag = True

    Loop

    If flag = True Then Exit For

Next i

s = Str(n) + "^" + Str(3) + "="

Do While sum > 0

         ⑵

    If sum = 0 Then

        s = s + Str(i)

    Else

        s = s + Str(i) + "+"

    End If

    i = i + 2

Loop

Text2.Text = s

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

图1

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

      PRIVATE SUB FORM-------CLICK()

      S=0

DIM I AS INTEGER, S AS INTEGER

      FOR I= 2 TO 100 {#blank#}1{#/blank#}

           S=S+{#blank#}2{#/blank#}

      NEXT I

      PRINT S

      END SUB

s=56

s1=s\10

s2=s Mod 10

s=s1+s2*10

Print "s="; s