Visual Basic Part 10 ( Mencari Deret Suku n-Kuadrat )

Dim bil, cetakbil, indek1, indek2, i, j As Integer
Private Sub cmdclear_Click()
    txtsuku.Text = ""
    Form1.Cls
    txtsuku.SetFocus
End Sub

Private Sub cmdexit_Click()
    End
End Sub

Private Sub cmdmaju_Click()
    Form1.Cls
    Print
    Print
    Print
    Print
    bil = Val(txtsuku.Text)
    cetakbil = 0
    Form1.ScaleTop = 5
    For i = 1 To bil
        For j = 1 To i
            cetakbil = j * j
            Print cetakbil;
            If cetakbil = (i * i) Then
                GoTo 2
            Else
                Print ",";
            End If
        Next j
2         Print
Next i
End Sub

Private Sub cmdmundur_Click()
    Form1.Cls
    Print
    Print
    Print
    Print
    bil = Val(txtsuku.Text)
    indek1 = bil
    indek2 = bil + 1
    jml_bil = 0
    For i = bil To 1 Step -1
        indek2 = indek2 - i
        For j = 1 To i
            Print indek1 * indek1;
            jml_bil = jml_bil + (indek1 * indek1)
            If indek1 = indek2 Then
                Print "=";
                Print jml_bil
            Else
                Print "+";
            End If
            indek1 = indek1 - 1
        Next j
        jml_bil = 0
        indek1 = bil
        indek2 = bil + 1
    Next i
End Sub