Private sub cmdrandomcardclick dim intupperbound as

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

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

Ask a homework question - tutors are online