Comandos Visual Basic

Problema 1
Private Sub CommandButton1_Click()
n = TextBox2.Text
zero = 0
For i = 1 To n
For j = 1 To i
For k = 1 To j
zero = zero + 1
Next
Next
NextTextBox1.Text = zero
End Sub
Problema 2
Private Sub CommandButton1_Click()
n = TextBox1.Text
zero = 0
For i = 1 To n
For j = 1 To i
zero = zero + 1
Next
Next
TextBox2.Text =zero
End Sub
Problema 3
Private Sub CommandButton1_Click()
n=textbox2.text
zero = 0
For i = 1 To n
For j = 1 To i
For k = 1 To j
For m = 1 To k
zero = zero + 1
NextNext
Next
Next
TextBox1.Text = zero
End Sub
Problema 4
Private Sub CommandButton1_Click()
n=textbox1.text
zero = 10
For i = 1 To n
For j = 1 To 15
For k = 1 To 15
zero= zero + 1
Next
Next
Next
TextBox1.Text = zero
End Sub
Problema 5
Private Sub CommandButton1_Click()
n = TextBox2.Text
increment = 0
Sum = 0
For i = 1 To n
For j = 1 To iFor k = 1 To j
increment = increment + 1
Sum = Sum + increment
Next
Next
Next
TextBox1.Text = increment
End sub
Problema 6
Private Sub CommandButton1_Click()
n = TextBox2.Textzero = 0
For i = 1 To n
For j = 1 To i
For k = 1 To j
zero = zero + 1
Next
Next
Next
TextBox1.Text = zero
End Sub

Problema 7
Private Sub CommandButton1_Click()
Z= TextBox2.Text
r = 10
s = 15
t = 25
zero = 10
For i = 1 To 12
For j = 1 To r
zero = zero + 2
For k = 5 To s
For l = 3 To k
zero = zero + 4
For m = 3 To 12zero = zero + 6
For n = t To 7 Step -1
zero = zero + 1
Next
Next
Next
Next
Next
Next
TextBox1.Text = zero
End Sub
Problema 8
Private SubCommandButton1_Click()
m = TextBox2.Text
n = TextBox2.Text
counter = 0
For i = 1 To m
For j = 1 To n
Next j
Next i
counter = i + j
TextBox1.Text = counter
If i <> j Then...