Vb.net Visual Basic总和和平均值计算

所以这部分我的平均值不起作用

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

---

同样，这些都必须从文本文件中读取并给出输出，我希望以尽可能简单的方式对其进行编码。

对于平均计算：

我不会给出完整的答案，但您应该首先在“for each”循环中增加总和并计数，然后计算循环外的平均值。当您执行

s.Count

时，您正在计算字符串中的字符，这不是您想要的

对于最小计算：

最低权重初始化为零，因此如果您的测试分数为正，则最低权重始终为0。使用非常高的值初始化它，如下所示：

Dim lowestWeight As Integer = Integer.MaxValue

---

这两种情况的提示：使用调试器逐步检查代码。您将看到您的代码如何运行，以及它是否按照您的预期运行。

对于sum，其简单如下：

If TextBox1.Text = "" Or (TextBox2.Text) = "" Then
        MessageBox.Show("Please enter number.")
    Else
        Dim sum As Integer = 0
        sum = Val(TextBox1.Text) + Val(TextBox2.Text)
        MessageBox.Show("the sum is: " & sum)
    End If
End Sub

---

使用变量Dim lines=IO.File.ReadAllLines（“textfileishere”）。现在，您将有更好的机会避免无意义的s.Count并使用lines.Length。首先要做的是将选项设置为Strict on。它将使您避免无数的运行时错误。要启用菜单栏上的选项严格，请选择工具->选项。在选项对话框的左侧面板中，选择项目和解决方案->VB默认值。现在，在默认项目设置下，将Option Strict旁边的下拉框设置为On。让我们暂时忘记编程，试着弄清楚算法。Sum/Count=average说它“不起作用”告诉我们什么！请提供有关您遇到的实际问题的更多详细信息？您向该方法提供了哪些数据及其输出？你期望的结果是什么？在调试器中逐步执行代码时，您观察到了什么？可能重复的