入力ボックスのネスト入力文の場合

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つの出口だけがあるべきだと思っているかどうかによって異なります。 2番目の例には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 

この場合は問題ではありませんが、違いを知ることができます。