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

-1

我使用vb.net编写代码以从输入框中输入的值中找到最小值。但它给出了一个错误。使用vb网络代码找到最小值

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，因此显示该值。请帮我解决这个问题

来源

2016-12-07 B.Prasad

这是相反的：*如果xTemp

它是如何做到的。我尝试但失败 –

“它给出一个错误”不是一个合适的问题描述。你甚至没有告诉我们错误是什么。 –

你真的想要添加数据验证，以确保他们输入数字。

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

来源

2016-12-07 15:35:34 UnhandledExcepSean

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

回答

相关问题