Unformatted text preview: Sub cmdRandomCard_Click()
Dim intUpperBound As Integer
If Not (IsArrayInitialized(Numbers)) Then
Exit Sub
Else
intUpperBound= UBound(Numbers)
End If
mintCardIndex = Int(Rnd() * intUpperBound + 1)
Cells(1,1).Value = Number(mintCardIndex)
End Sub
Correct Percent Answered A value between 0 and 1, excluding 1
A value between 0 and 1, including 1 6.202% 200 4.457% A value between 1 and 200 82.364% Unanswered • 6.589% Kai Zhao 5/3/12 8:48 AM
Comment [2]: We're multiplying the return value of Rnd(), which is between 0 an...
View
Full Document
 Spring '08
 Sheikh,N
 Cartesian Coordinate System, Cartesian product, Cartesian product of graphs, KAI ZHAO

Click to edit the document details