Visual Basic расчет суммы и среднего - PullRequest
Новая
       9

Visual Basic расчет суммы и среднего

0 голосов
/ 26 июня 2018

Так что эта часть у меня в среднем не работает ... 

For Each s As String In IO.File.ReadAllLines("textfileishere")
    Dim testScore As Integer
    Dim count As Integer = s.Count
    If Integer.TryParse(s, testScore) Then
        averageWeight = s.Count / s
    End If
Next
AverageKgTextBox.Text = averageWeight.ToString

У меня работает максимум, но не тот минимум, для которого этот код, и я не знаю, как это исправить. 

Dim lowestWeight As Integer = 0
For Each s As String In IO.File.ReadAllLines("textfile")
    Dim testScore As Integer
    If Integer.TryParse(s, testScore) Then
        lowestWeight = Math.Min(lowestWeight, testScore)
    End If
Next
LowestKgTextBox.Text = lowestWeight.ToString

Опять же, все они должны читать из текстового файла и выдавать вывод, я хотел бы закодировать это самым простым способом.

1 Ответ

0 голосов
/ 26 июня 2018

Для среднего расчета:

Я не буду давать полный ответ, но вы должны сначала увеличить сумму и считать в цикле «для каждого», а затем вычислить среднее значение за пределами цикла. Когда вы делаете s.Count, вы подсчитываете символы в строке, это не то, что вы хотите.

Для минимального расчета:

Наименьший вес инициализируется нулем, поэтому, если ваши результаты теста положительны, минимум всегда будет равен 0. Инициализируйте его с очень высоким значением, например: 

Dim lowestWeight As Integer = Integer.MaxValue

Совет для обоих случаев: пошагово просматривайте код с помощью отладчика. Вы увидите, как ведет себя ваш код и будет ли он вести себя так, как вы ожидали.

...