Vb.net visual basic：输入一些数字，直到输入负值以停止程序

整个问题是：输入一些数字，直到输入负值停止程序（停止运行what is your number）。然后找到输入数字的平均值

现在我想做的是，我想知道如何让我的“a”变量接受任何负值，就像上面的代码一样，当我输入-1时它停止，但当我输入-3、-10或任何负值时我想停止

---

下面有一些有用的答案

如果您希望通常的输入是文本，则可以使用该方法检查是否输入了数字。如果是，则可以检查该数字是否为负数，如果为负数，则退出应用程序：

private Sub Command1_Click()
a = InputBox("What is the Number ?", "Input Example"," ")
If a = "-1" Then
End If
End Sub

Private子按钮1\u单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理按钮1。单击
Dim userMsg作为字符串
userMsg=Microsoft.VisualBasic.InputBox（“您的消息是什么？”，“消息输入表单”，“在此处输入您的消息”，500，700）
如果是userMsg“”，则
将x调为双精度
如果Double.TryParse（userMsg，x）和also x<0，则
Application.Exit（）
如果结束
MessageBox.Show（userMsg）
其他的
MessageBox.Show（“无消息”）
如果结束
端接头

---

如果第一个参数的计算结果为

True

，则运算符仅查看第二个参数。如果您希望常规输入为文本，则可以使用该方法检查是否输入了数字。如果是，则可以检查该数字是否为负数，如果为负数，则退出应用程序：

private Sub Command1_Click()
a = InputBox("What is the Number ?", "Input Example"," ")
If a = "-1" Then
End If
End Sub

Private子按钮1\u单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理按钮1。单击
Dim userMsg作为字符串
userMsg=Microsoft.VisualBasic.InputBox（“您的消息是什么？”，“消息输入表单”，“在此处输入您的消息”，500，700）
如果是userMsg“”，则
将x调为双精度
如果Double.TryParse（userMsg，x）和also x<0，则
Application.Exit（）
如果结束
MessageBox.Show（userMsg）
其他的
MessageBox.Show（“无消息”）
如果结束
端接头

---

如果第一个参数的计算结果为

True

，则运算符仅查看第二个参数。如果要重复部分代码直到满足特定条件，则需要使用：

或

也可以使用

Dim myNumber作为整数=0
将mySum设置为整数=0
Dim myCounter为整数=0
做
Dim Response As Object=InputBox（“输入整数值”，“获取整数值的平均值…”，”）
'检查用户是否单击了“取消”按钮
如果答案是“”，那么
”“是一个号码吗？
如果Int32.TryParse（答案，myNumber）
如果myNumber>=0，则
mySum+=myNumber
myCounter+=1
其他的
退出Do
如果结束
如果结束
如果结束
环
双精度平均值=mySum/myCounter
'现在可以显示平均值

---

提示：不要使用

输入框

，因为此“控件”是特定于视觉的。改用自定义

表单

。谷歌上有很多例子

如果要重复部分代码直到满足特定条件，则需要使用：

或

也可以使用

Dim myNumber作为整数=0
将mySum设置为整数=0
Dim myCounter为整数=0
做
Dim Response As Object=InputBox（“输入整数值”，“获取整数值的平均值…”，”）
'检查用户是否单击了“取消”按钮
如果答案是“”，那么
”“是一个号码吗？
如果Int32.TryParse（答案，myNumber）
如果myNumber>=0，则
mySum+=myNumber
myCounter+=1
其他的
退出Do
如果结束
如果结束
如果结束
环
双精度平均值=mySum/myCounter
'现在可以显示平均值

---

提示：不要使用

输入框

，因为此“控件”是特定于视觉的。改用自定义

表单

。谷歌上有很多例子

让我的程序停止意味着什么？顺便说一句，您可以使用NumericUpDown控件接受用户的数字输入（您可以设置最小值和最大值）。我会放弃输入框的事。顺便说一句，这看起来像一个WinForms项目，但您应该使用适当的标记指定正在使用的平台。对不起，我对堆栈溢出和visual basic都是新手。关于输入框的事情，你有什么可以帮我的吗？负数？你显然是在要求留言“你的留言是什么？”。此外，停止意味着…结束应用程序的执行如果您需要InputBox没有提供的东西，我鼓励您创建自定义表单。安德鲁·莫顿（Andrew Morton）的回答是——在撰写本文时——对你的问题进行非常字面的解释，如果这对你不起作用，请澄清你的意思。“a”是否在其他地方声明过？使用“Command1”，Click（）处理程序中没有参数，而且，

InputBox

让我相信您使用的是VB6，而不是VB.Net。请澄清您在哪个平台上开发，因为这两个平台非常不同！让我的程序停止意味着什么？顺便说一句，您可以使用NumericUpDown控件接受用户的数字输入（您可以设置最小值和最大值）。我会放弃输入框的事。顺便说一句，这看起来像一个WinForms项目，但您应该使用适当的标记指定正在使用的平台。对不起，我对堆栈溢出和visual basic都是新手。关于输入框的事情，你有什么可以帮我的吗？负数？你显然是在要求留言“你的留言是什么？”。此外，停止意味着…结束应用程序的执行如果您需要InputBox没有提供的东西，我鼓励您创建自定义表单。安德鲁·莫顿（Andrew Morton）的回答是——在撰写本文时——对你的观点进行了非常字面的解释

Dim myNumber As Integer = 0
Dim mySum As Integer = 0
Dim myCounter As Integer = 0
Do
    Dim answer As Object = InputBox("Enter integer value", "Getting average of integer values...", "")
    'check if user clicked "Cancel" button
    If answer <> "" Then
        'is it a number?
        If Int32.TryParse(answer, myNumber)
            If myNumber >=0 Then
                mySum += myNumber
                myCounter += 1
            Else
                Exit Do
            End If
        End If
    End If
Loop
Dim average As Double = mySum/myCounter
'you can display average now