Question

我是编程的新手...我正在尝试编写一个非常基本的程序，以便用户可以输入10个整数，然后进行平均。我已经考虑使用ArrayList来存储所有数据，但是一旦我使用“输入”，我就不能再次使用它了。

我应该做的是采取这样的基本平均计划：

Dim A, B, C, D, E, F, G, H, I, J As Integer
A = 10
B = 6
C = 17
...
...
...
J = 15
Dim K As Double
K = A + B + C + D + E + F + G + H + I + J
K /= 10
Console.WriteLine(K)
Console.ReadKey()

...并使用户可以输入所有变量。

希望这个问题很清楚......有谁知道我能做什么？

Answer 1

我在下面和示例中添加了评论。希望你能从这些陈述中学习，并了解如何使用Do/Loop或For进行循环，以及如何使用List(Of )来存储可变数量的数据。

Sub Main()
    ' Initialize variable for text input, and numeric value
    Dim input As String, x As Double
    ' Initialize empty array of numbers
    Dim array = New List(Of Double)()
    Do
        Console.Write("Enter a number or press [Enter] to Finish :")
        ' Read a number (as text)
        input = Console.ReadLine()
        ' Check if input is a number
        If (Double.TryParse(input, x)) Then
            ' If it is a number add it to list
            array.Add(x)
        ElseIf x.Length>0
            ' If not then display a message
            Console.WriteLine("** Input Not Numeric **")
        End If
        ' Continue until user presses enter
    Loop Until input.Length = 0
    Console.WriteLine("{0} Numbers Entered", array.Count)
    ' Calculate average from values
    Dim average As Double = 0
    For index As Integer = 1 To array.Count
        average += array(index - 1)
    Next
    average /= array.Count
    ' Display results and wait for enter
    Console.WriteLine("The Average Is {0}", average)
    Console.Write("Press [Enter] to End")
    Console.ReadLine()
End Sub

Answer 2

我会分步做。首先你的方式。

    Dim a, b, c, d As Integer

    Console.Write("Type an integer: ")
    a = Int32.Parse(Console.ReadLine())

    Console.Write("Type an integer: ")
    b = Int32.Parse(Console.ReadLine())

    Console.Write("Type an integer: ")
    c = Int32.Parse(Console.ReadLine())

    Console.Write("Type an integer: ")
    d = Int32.Parse(Console.ReadLine())

    Console.WriteLine("The average is: " & ((a + b + c + d) / 4))
    Console.ReadLine()

然后将代码转换为使用列表

    Dim v As New List(Of Integer)

    Console.Write("Type an integer: ")
    v.Add(Int32.Parse(Console.ReadLine()))

    Console.Write("Type an integer: ")
    v.Add(Int32.Parse(Console.ReadLine()))

    Console.Write("Type an integer: ")
    v.Add(Int32.Parse(Console.ReadLine()))

    Console.Write("Type an integer: ")
    v.Add(Int32.Parse(Console.ReadLine()))

    Console.WriteLine("The average is: " & ((v(0) + v(1) + v(2) + v(3)) / 4))
    Console.ReadLine()

现在您正在使用列表，您可以轻松使用循环删除重复的代码。

    Dim v As New List(Of Integer)

    Do While v.Count < 4
        Console.Write("Type an integer: ")
        v.Add(Int32.Parse(Console.ReadLine()))
    Loop

    Console.WriteLine("The average is: " & ((v(0) + v(1) + v(2) + v(3)) / 4))
    Console.ReadLine()

之后添加错误验证并使用内置的平均功能。

    Dim tempVal As Integer
    Dim v As New List(Of Integer)

    Do While v.Count < 4
        Console.Write("Type an integer: ")

        If Int32.TryParse(Console.ReadLine(), tempVal) Then
            v.Add(tempVal)
        Else
            Console.WriteLine("Not a valid integer")
        End If
    Loop

    Console.WriteLine("The average is: " & v.Average())
    Console.ReadLine()

VB.NET - arraylist的多个用户输入整数

2 个答案: