嵌套Inputbox If语句

Question

这可能是一个简单的问题，但是如果我需要在sub开始时收集数据，使用几个输入框，其中哪一个是正确的方法？

示例1：

InputText1 = InputBox("Enter your name")  
If InputText1 = "" Then Exit Sub

InputText2 = InputBox("Enter your age")
If InputText2 = "" Then Exit Sub

'Do something

示例2：

InputText1 = InputBox("Enter your name")  
If Not InputText1 = "" Then  
  InputText2 = InputBox("Enter your age")  
  If Not InputText2 = "" Then  
    'Do something  
  End If
End If

Answer 1

我认为更好的方法是创建一个要求所有数据的表单。

但是，这两组代码都可以工作。这取决于您是否认为一个过程中应该只有一个出口。您的第二个示例只有一个出口。这样做的理由是，你总是知道它的出口。然而，缺点是代码变得嵌套，在视觉上变得更加复杂。如果条件很简单，并且子例程以错误退出结束(即不执行某些操作)，我更喜欢退出。因此，我更喜欢示例1。

Answer 2

可能无助于回答您的问题的相关感兴趣项目：

您还可以测试另一个返回状态: Cancel按钮。

Dim InputText1 As String

InputText1 = InputBox("Enter your name")
If StrPtr(InputText1) = 0 Then
    MsgBox "*Canceled*"
ElseIf InputText1 = "" Then
    MsgBox "*Empty*"
Else
    MsgBox InputText1
End If

在这种情况下，这可能无关紧要，但区分它们可能很有用。