none
VB数组问题 RRS feed

  • 问题

  • VB里面怎样给数组里面放30个数字,然后把数组里面的数字随机显示出来?统计数组里面的相同的数字,重复了几次,显示出来?数字是自己手动给数组写进去的,自己手动输入进去30个数字
    2013年2月1日 4:22

答案

  • 我只演示10个数字,其余的你自己修改长度即可。

    Imports System.Xml.Linq
    Module Module1
        Sub Main()
            Console.WriteLine("输入10个数字")
            '存放数字比较是否重复
            Dim dic As New Dictionary(Of IntegerInteger)
     
            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
    

    帮助一起改进论坛质量?提交你的意见于此。
    我的博客园
    慈善点击,点击此处
    和谐拯救危机,全集下载,净化人心

    2013年2月1日 7:39
    版主