Question

VB计算数组中相同数字的个数VB一维数组a(14)中,有一串不规则的数字,例如3 5 8 1 3 2 4 5 6 6 5

Answer 1

Dim a(14) As Integer

Dim b(10) As Integer

Private Sub Command1_Click()

For i = 1 To 14

a(i) = Int(100 * Rnd()) ‘这里产生100以内的随机数,如要个位数,改成10

Print a(i);

Next i

Print

For i = 1 To 14

x = a(i)

Do

j = a(i) Mod 10

b(j) = b(j) + 1

x = x 10

Loop Until x = 0

Next i

For i = 0 To 9

If b(i) > 0 Then Print "有"; b(i); "个"; i

Next i

End Su