2

他の 2 つの乗算の結果を表示するテキスト ボックスがあります。何かが入力される前に、ボックスに NaN が表示されます。「0」を表示するか、乗算する前に空のままにする方法はありますか。

Dim thick1 As Double
Dim tb8 As Double
Dim result As Double
thick1 = Val(thickness1.Text)
tb8 = Val(TextBox8.Text)
result = thick1 / tb8
TextBox30.Text = FormatNumber(result, 3)

^ 上記のコードは、テキスト ボックスに使用しているものです。

4

3 に答える 3

0

これは、自動的に実行されるイベントまたはフォーム ロードのコードのように見えます。テキストボックスにまだ値がない場合はresult = thick1 / tb8、ゼロで割ることができないため、Nan (数値ではない) になります。

繰り返しますが、イベントか何かを想定します。

  If tb8 = 0 then
     Exit Sub
  else
     result = thick1 / tb8
     TextBox30.Text = result.ToString("G3")  

  End if

TryParse の VAL のダンプに加えて、Option Explicit をオンにすることを検討してください。

于 2013-10-21T20:46:07.353 に答える