1/ Dim a(1 To 100) Show For i = 1 To 100 Randomize a(i) = Int(90 * Rnd + 10) Next i For i = 1 To 100 If a(i) < 40 Then x = x + 1 ElseIf a(i) >= 40 And a(i) < 70 Then y = y + 1 ElseIf a(i) >= 70 Then z = z + 1 End If Next i Print x; y; z 2/ Dim a(1 To 20),b(1 To 20),c(1 To 20) x = 0:y = 0 Show For i = 1 To 20 Randomize a(i) = Int(90 * Rnd + 10) Next i For i = 1 To 20 If a(i) Mod 2 = 0 Then x = x + 1 b(x) = a(i) ElseIf a(i) Mod 2 0 Then y = y + 1 c(y) = a(i) End If Next i For i = 1 To x Label1.Caption = Label1.Caption + Str(b(i)) + " " Next i For i = 1 To y Label2.Caption = Label2.Caption + Str(c(i)) + " " Next i