Pregunta de programación VB6.0 solicitando código

Private Sub Form_Load()

Atenuar AX como entero

List1.Columns = 15

Para i = 0 a 14 p>

Lista1.List(i) = 3 + 7 * i

AX = AX + Val(List1.List(i))

Siguiente i

List1.Text = List1.List(i)

Label1.Caption = "La suma de los elementos de la secuencia aritmética es:" & vbCrLf & AX

End Sub

Si el número de términos en una secuencia aritmética es incierto, puede utilizar el siguiente procedimiento:

Private Sub Command1_Click()

Lista1 .Clear

Dim AX As Long, N As Integer

N = Val(InputBox("¡Ingrese el número de términos en la secuencia aritmética!", "Ingrese el número de términos !"))

Lista1. Columnas = 1

Para i = 0 a N - 1

Lista1.Lista(i) = 3 + 7 * i

AX = AX + Val( Lista1.Lista(i))

Siguiente i

List1.Text = Lista1.Lista(0)

Label1.Caption = "Elementos de la secuencia aritmética La suma es: " & vbCrLf & AX

Label2.Caption = "La secuencia aritmética se establece en: " & vbCrLf & N & "term"

Fin del subtítulo