Geometric Progression

This is a Visual Basic program that can compute a geometric progression and display the results in a list box. This program employs the Do.... Loop Until commands to compute the results.

The Code

Private Sub cmd_compute_Click()
Dim x, n, num As Integer
Dim r As Single
x = Txt_FirstNum.Text
r = Txt_CR
num = Txt_Terms.Text
List1.AddItem "n" & vbTab & "x"
List1.AddItem "___________"

n = 1
Do
x = x * r
List1.AddItem n & vbTab & x
n = n + 1
Loop Until n = num + 1

End Sub

Private Sub cmdExit_Click()
End
End Sub