我只演示10个数字,其余的你自己修改长度即可。
Imports System.Xml.Linq
Module Module1
Sub Main()
Console.WriteLine("输入10个数字")
'存放数字比较是否重复
Dim dic As New Dictionary(Of Integer, Integer)
Dim numbers As New List(Of Integer)
For I As Integer = 0 To 9
numbers.Add(CType(Console.ReadLine(), Integer))
'比较是否相同
If (dic.ContainsKey(numbers(I))) Then
dic(numbers(I)) += 1
Else
dic.Add(numbers(I), 0)
End If
Next
'随机排序
Dim newdic = From n In numbers
Order By Guid.NewGuid()
Select n
'显示结果
For Each n In newdic
Console.Write(n & vbTab)
Next
Console.WriteLine("统计重复")
For Each pair In dic
Console.WriteLine("数字" & pair.Key & "重复个数:" & pair.Value)
Next
End Sub
End Module
帮助一起改进论坛质量?提交你的意见于此。
我的博客园
慈善点击,点击此处
和谐拯救危机,全集下载,净化人心