Finden des Mindestwerts mit VB-Netzcode

Question

Ich schreibe einen Code mit vb.net, um einen Mindestwert aus den in einem Eingabefeld eingegebenen Werten zu finden. Aber es gibt einen Fehler.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    Dim xMinNo, y As Integer 
    Dim xTemp As Integer 
    Dim i, x As Integer 

    x = CInt(InputBox("Please Enter Number of subjects")) 
    For i = 1 To x 
     xTemp = InputBox("enter Mark: ") 
     If xMinNo < xTemp Then 
      xMinNo = xTemp 
     End If 
    Next 

    MsgBox("The Lowest Number is " & xMinNo) 
End Sub 

Da xMin anfänglich 0 ist, wird dieser Wert angezeigt. Bitte helfen Sie mir, dieses Problem zu überwinden

Answer 1

Sie würden wirklich wollen auch Daten Validierung hinzufügen, um sicherzustellen, dass sie Zahlen eingeben.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    Dim xMinNo, y As Integer 
    Dim xTemp As Integer 
    Dim i, x As Integer 

    x = CInt(InputBox("Please Enter Number of subjects")) 
    For i = 1 To x 
     xTemp = InputBox("enter Mark: ") 
     If i = 1 Then 
      xMinNo = xTemp 
     End If 

     If xMinNo > xTemp Then 
      xMinNo = xTemp 
     End If 
    Next 

    MsgBox("The Lowest Number is " & xMinNo) 
End Sub