Question

我想制作一个模态值计算器，所以它计算模态值及其重复

这个想法是制作一个数据列表及其重复，如任何图表所示。

这是我开始使用的代码：

Public Class

Dim a1(100), a2(100), Rep(100), RepMer(100), AMer(100) As Single, n, count, m As Single, z, k, c, mars As Integer
    n = InputBox("How many data?", "RepTest")

    count = 0

    For count = 0 To n - 1
        a1(count) = InputBox("Add Value", "RepTest")
    Next

    z = n
    For run = 0 To n - 1
        mars = c
        z = z - 1
        k = 0
        For moon = 0 To (n - 1)

            If a1(z) = a1(moon) Then
                k = k + 1
                a2(run) = a1(z)
                Rep(run) = Rep(run) + k
                If Rep(run) > 2 Then
                    Rep(run) = Rep(run) - 1
                 End If

            End If
        Next

        MsgBox(a2(run)), , "Modal Value")
        MsgBox(Rep(run)),, "Repetition")

    Next

End Class

但是，如果你在第二个主循环外面制作按摩盒，你必须使用相同的值0 To（n-1）制作另一个循环，以匹配数组中的数据位置。

我希望你能帮助我的是：

我必须将模态值和一个值的重复保存在数组中的相同位置，因为如果使用此代码，则输出n = 5并输入值2,2,2,1,1。输出将是5个按摩盒，其中3个相等于值2，2个相等于值1。

您可以自己测试复制代码并将其插入VB.net中的表单。

带图片：

请参阅此链接：Picture that describe the result

您可以看到每个值的输出都不止一个，那么如何将值及其重复值存储在数组的一个位置？

感谢您的阅读，我想要一个代码答案。：）

模态值和重复

0 个答案: