Private Sub Command1_Click()
Dim i as Integer, j as Integer
For i = 0 to 2
For j = 0 to 3
Picture1.Print i + 3 * j + 1; " ";
Next J
Picture1.Print
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 to 6
For j = 1 to 3
Picture1.Print i / j;
Next i
Next j
End Sub
Private Sub_Command1_Click()
Dim num As Integer
Let Num = 1
Do While num <= 10
Picture1.Print num
Let num = num + 2
Loop
End Sub
[quantity next year] = 5 * [price this year] - 10
where quantity is measured in units of millions of bushels. Generate a table to show the quantity and price for each of the next 12 years.
Please be sure to construct user-defined functions to carry out the calculations for quantity and price.
Do you have any questions, comments or suggestions? If so, please e-mail them to me at jcorlis@luc.edu.
To return to the COMP 125 web site, click here.
To go to my home page, click here.
To go to the home page of Loyola University Chicago, click here.
Jack Corliss
Mathematical and Computer Sciences
Loyola University Chicago
Revised: 15 January 1999