二级VB上机题库18.docxVIP

书山有路勤为径，学海无涯苦作舟。 PAGE2 / NUMPAGES2 祝愿天下莘莘学子： 学业有成，金榜题名！ 二级VB上机题库18  1、【 简答题】 ?　　Option Base 1Private Sub Command1_Click() Dim arrN(30) As Integer  Dim Max As Integer  Randomize  For i = 1 To 30  arrN(i) = Int(Rnd * ?)  Next i  ? = arrN(1)  For i = 2 To 30  If ? Then