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

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

嵌套输入框如果语句

2 个答案: