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/06/27 03:28:39
![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以此类推](/uploads/image/z/2756142-54-2.jpg?t=VB%E8%AE%A1%E7%AE%97%E6%95%B0%E7%BB%84%E4%B8%AD%E7%9B%B8%E5%90%8C%E6%95%B0%E5%AD%97%E7%9A%84%E4%B8%AA%E6%95%B0VB%E4%B8%80%E7%BB%B4%E6%95%B0%E7%BB%84a%2814%29%E4%B8%AD%2C%E6%9C%89%E4%B8%80%E4%B8%B2%E4%B8%8D%E8%A7%84%E5%88%99%E7%9A%84%E6%95%B0%E5%AD%97%2C%E4%BE%8B%E5%A6%823+5+8+1+3+2+4+5+6+6+5+4+1+3+2+%2C%E5%A6%82%E4%BD%95%E8%83%BD%E8%AE%A1%E7%AE%97%E5%87%BA%E6%9C%89%E5%A4%9A%E5%B0%91%E4%B8%AA%E7%9B%B8%E5%90%8C%E7%9A%84%E6%95%B0%E5%AD%97%3Fprint++%E6%9C%892%E4%B8%AA3+++++++++%E6%9C%893%E4%B8%AA5+++++++++%E6%9C%891%E4%B8%AA8+++++++++%E6%9C%892%E4%B8%AA1%E4%BB%A5%E6%AD%A4%E7%B1%BB%E6%8E%A8)
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