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

Visual Basic six black book  by Steven Holzner 

By Steven Holzner - Coriolis Technology Press (1998) - Paperback - 1095 pages - ISBN 1576102831

-- Completely explains the crucial Visual Basic tool set in detail.-- Covers the best Visual Basic programming practices, from deign tools to flowcharts.-- Contains 1,000 pages of everything Visual Basic 6, from radio buttons and checkboxes to XOR drawings, OLE automation, DHTML page design, Active X Wizard, and Internet Explorer 4 support.-- Includes important Visual Basic tips, examples, and in-depth tutorials on everything from programming to managing Visual Basic applications.-- Contains ready-to-run example code that the reader can cut and paste into their applications. 

 

http://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&ved=0CDUQFjAA&url=http%3A%2F%2Ffiles.zipsites.ru%2Fbooks%2Fprogramming%2FVisualBasic%2FVisual%2520Basic%25206%2520Black%2520Book.pdf&ei=KoDsTp-bCILqrQeo3fWTCQ&usg=AFQjCNEJsEXKmy_HYqiNJhDIlh1ZcUMzeA&sig2=ECktcQAPALbKGdHGQOkOtA