vbネットコードを使用して最小値を見つける

Question

入力ボックスに入力された値から最小値を見つけるためにvb.netを使用してコードを記述します。しかし、それはエラーを与える。

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 

xMinはintially 0なので、その値を示します。あなたの問題を解決するのを手伝ってください。

Answer 1

実際に数字を入力するためにデータの検証も追加したいと思っています。

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