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为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

使用vb网络代码查找最小值

1 个答案: