VB.NET大学作业

基本上，当我加上我的三个分数时，它确实起作用，但它没有显示最低的分数，而是显示与最高分数相同的分数

Public Class Form1

Private Sub cmdmark_Click(sender As Object, e As EventArgs) Handles cmdmark.Click
    Dim intsum As Integer, intnum As Integer
    Dim inthighest As Integer
    Dim intlowest As Integer
    intnum = InputBox("Enter the mark")
    intsum = intnum + intsum
    intnum = InputBox("Enter the mark For subject 2")
    intsum = intnum + intsum
    intnum = InputBox("Enter the mark for subject 3")
    intsum = intnum + intsum

    Lbltotal.Text = "Total marks are" & intsum
    lblaverage.Text = "The average is" & intsum / 3

    If intnum > intlowest Then
        intlowest = intsum
    End If
    If intsum > inthighest Then
        inthighest = intsum

        Lbllowest.Text = "The lowest number is" & intnum
        Lblhighest.Text = "The highets number is" & intnum
    End If
End Sub

End Class

及

都是相同的整数，这是它显示相同值的原因之一

---

也许可以尝试使用3个单独的整数，Mark1\u Integer，Mark2\u Integer，Mark3\u Integer。您可以更容易地找到最高值和最低值。

您应该在每次输入后计算最低值和最高值：

Lblhighest.Text = "The highets number is" & intnum

intnum=InputBox（“输入标记”）
整数=整数
intlowest=intsum
inthighest=intsum
intnum=InputBox（“输入主题2的标记”）
intsum=intnum+intsum
如果intnuminthighest，则
inthighest=intnum
如果结束
intnum=InputBox（“输入主题3的标记”）
intsum=intnum+intsum
如果intnuminthighest，则
inthighest=intnum
如果结束
Lbllowest.Text=“最低的数字是”&intlowest
Lblhighest.Text=“高位数字为”&inthighest

---

这段代码还有很多地方可以改进，比如将隐式转换更改为显式转换，并将代码重复重构为一个方法，但这应该可以让您开始了。

我对Python了解不多，但我认为您可以尝试一下

intnum = InputBox("Enter the mark")
intsum = intsum
intlowest = intsum
inthighest = intsum
intnum = InputBox("Enter the mark For subject 2")
intsum = intnum + intsum
If intnum < intlowest Then
    intlowest = intnum 
End If
If intsum > inthighest Then
    inthighest = intnum 
End If
intnum = InputBox("Enter the mark for subject 3")
intsum = intnum + intsum
If intnum < intlowest Then
    intlowest = intnum 
End If
If intsum > inthighest Then
    inthighest = intnum 
End If

Lbllowest.Text = "The lowest number is" & intlowest 
Lblhighest.Text = "The highets number is" & inthighest 

或

---

但实际上我从中学到的是，你应该一直测试它，测试它，尝试不同的组合，直到它工作。

检查用于显示输出和用于比较的变量名，并在最后一个if块后设置标签。将来，请使用描述问题的标题，并提出实际问题。请看，老实说，这也不是一个真正的家庭作业帮助网站

intnum = InputBox("Enter the mark")
intsum = intsum
intlowest = intsum
inthighest = intsum
intnum = InputBox("Enter the mark For subject 2")
intsum = intnum + intsum
If intnum < intlowest Then
    intlowest = intnum 
End If
If intsum > inthighest Then
    inthighest = intnum 
End If
intnum = InputBox("Enter the mark for subject 3")
intsum = intnum + intsum
If intnum < intlowest Then
    intlowest = intnum 
End If
If intsum > inthighest Then
    inthighest = intnum 
End If

Lbllowest.Text = "The lowest number is" & intlowest 
Lblhighest.Text = "The highets number is" & inthighest 

 If intnum >= intlowest Then
    intlowest = intsum

 If intnum == intlowest Then
    intlowest = intsum