Private Sub Form_click()Dim a As IntegerDim k As IntegerFor a = 1 To 4 For k = 1 To a Print CStr(a); Next k PrintNext aEnd Sub