Okay, lost again. I posted this in the online course bullitin too, but it seems you guys respond faster.
Quote:
I've got my code working (kind of) - but honestly, I'm kind of lost. I've been following along with the instructions, and ordering the lines as the assignment goes, but I think I'm getting my variables mixed up...
------------------
'Computer Science 40S
'Unit 1: Review Excercise
Dim intNumber As Integer
Dim intTotal As Integer
Dim intRandom As Integer
Private Sub btnClick_Click()
intNumber = intNumber + 1
lblCount.Caption = "Count: " & intNumber
intRandom = 50 <=Rnd * 51 + 50 < 101
lstNumbers.AddItem FormatNumber(intTotal, 1)
intTotal=intTotal + intNumber
lblTotal.Caption="Total:" & vbCrLf & FormatNumber(intTotal, 1)
End Sub
|