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