VB计算数组中相同数字的个数VB一维数组a(14)中,有一串不规则的数字,例如3 5 8 1 3 2 4 5 6 6 5 4 1 3 2 ,如何能计算出有多少个相同的数字?print 有2个3 有3个5 有1个8 有2个1以此类推
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/16 03:13:29
VB计算数组中相同数字的个数VB一维数组a(14)中,有一串不规则的数字,例如3 5 8 1 3 2 4 5 6 6 5 4 1 3 2 ,如何能计算出有多少个相同的数字?print 有2个3 有3个5 有1个8 有2个1以此类推
VB计算数组中相同数字的个数
VB一维数组a(14)中,有一串不规则的数字,例如3 5 8 1 3 2 4 5 6 6 5 4 1 3 2 ,如何能计算出有多少个相同的数字?
print 有2个3
有3个5
有1个8
有2个1
以此类推…
求高手解答,小弟不胜感激
VB计算数组中相同数字的个数VB一维数组a(14)中,有一串不规则的数字,例如3 5 8 1 3 2 4 5 6 6 5 4 1 3 2 ,如何能计算出有多少个相同的数字?print 有2个3 有3个5 有1个8 有2个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 Sub