在一个数列中，删除其中的重复数，使得数列只保留不同的数。---- 第六章 数组 新编Visual Basic程序设计教程 陈斌 著

在一个数列中，删除其中的重复数，使得数列只保留不同的数。---- 第六章 数组 新编Visual Basic程序设计教程 陈斌 著
4. 在一个数列中，删除其中的重复数，使得数列只保留不同的数。

解，此题的VB源代码如下：
Option Base 1
Private Sub Form_Click()
    Dim a() As Integer, n As Integer
    Dim i As Integer, j As Integer, k As Integer
    n = InputBox("请输入数据个数：")
    ReDim a(n)
    Cls
    Print "生成的" & n & "个数如下："
    For i = 1 To n
        a(i) = Int(Rnd * 90) + 10
        Print a(i);
        If i Mod 10 = 0 Then Print '每输出10个数据就换行
    Next i

    i = 1
    Do While i <= n - 1
        j = i + 1
        Do While j <= n
            If a(i) = a(j) Then '发现相同的数
                Text1.Text = Text1.Text & " " + Str(a(i))
                For k = j To n - 1
                    a(k) = a(k + 1) '发现有相同的数，就把数组元素后面的数组元素依次前移
                Next k
                n = n - 1
                ReDim Preserve a(n) '动态数组定义
            Else
                j = j + 1
            End If
        Loop
        i = i + 1
    Loop

    Print
    Print "不相同的数如下："
    For i = 1 To n
        Print a(i);
        If i Mod 10 = 0 Then Print
    Next i
    Print
 End Sub

此题程序运行效果图如下：

---- 新编Visual Basic程序设计教程  答案 陈斌  著

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/162.html