空白の制御

質問

Visual Basic６について質問です。
現在、テキストボックスが空白の場合そこに0が入るようにしているのですが以下のソースよりもっとスマートな制御法ってありますでしょうか？

For i = 0 To 2
If Text(i).Text = "" Then
Text(i).Text = 0
End If
Next i
abc = Format(Text(0).Text, "0000") & Format(Text(1).Text, "00") & Format(Text(2).Text, "00")

回答No.1

chibita_papa · ベストアンサー

あえて、テキストボックスに0を入れる必要がなく
空白のままで良いのなら

abc = Right("0000" & Text1(1), 4) & Right("00" & Text1(1), 2) & Right("00" & Text1(2), 2)

だったらコードの数は減りますが？
スマートかどうかは？？？

こんなのも
abc = Format(Val(Text(0).Text), "0000") & Format(Val(Text(1).Text), "00") & Format(Val(Text(2).Text), "00")