vb6 - 嵌套输入框 If 语句

Question

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

示例 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

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

您可以测试另一种返回状态：取消按钮。

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

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