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.
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
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
No comments:
Post a Comment