Question

用vb编写一个输入n个数据组成数组，查找数组中最小的两个数相加，构成新的数组，

循环直到最后剩两个数据。小数也可以实现

若以下回答无法解决问题，邀请你更新回答

Answer 1

做个标记，闲了做。

追问

明天要做这个实验，大神给编写一个呗，我只会排序，小数还有循环实现不了

追答

明天发给你吧，我马上下班了

追问

大神十点之前能给我不，十点实验课开始上，谢大神了

追答

Dim n As Integer
Dim a() As Double

Private Sub Command1_Click()
    n = InputBox("请输入要输入的数据个数")
    ReDim a(1 To n)
    For i = 1 To n
        a(i) = InputBox("请输入第" & i & "个数据")
    Next i
    Do
      Call mp(a)
      
    Loop Until UBound(a) <= 2
End Sub


Public Sub mp(ByRef a() As Double)
    Dim temp As Double
    Dim m As Integer
    m = UBound(a)
    For i = 1 To m
            For j = 1 To m - i
                If a(j) < a(j + 1) Then
                    temp = a(j + 1)
                    a(j + 1) = a(j)
                    a(j) = temp
                End If
            Next j
        Next i
    a(m - 1) = a(m - 1) + a(m)
     ReDim Preserve a(1 To m - 1)
     
     For i = 1 To m - 1
        Print a(i) & " ";
     Next i
     Print
End Sub

望采纳！

追问

大神，麻烦你给我缠写一个呗，马上要上课了，跪求

追答

那个上面不是已经给代码了吗

追问

这个能以图形的方式显示出来吗？

老师又给我加大难度了