ブログ内検索
×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
前回のプログラミングにて例外入力が
あった場合の処理を追加しました。
デバッグを実行、"aaa"を入力してみます。
"Num1"は数値として宣言している為、
当然止まります。
当然止まります。
と言う事でNum1を文字列としテキストボックス内を取得、
文字なのか数値なのかを判断し、数値の場合は
1から入力された値までの和を計算、
数値以外であった場合は数値を入力する旨の内容を含んだ
メッセージボックスを出力する様、記述を変更しました、
尚、記述の際、"Call"とかが補填されて少し怖いです。
----------------------------------------
----------------------------------------
Dim Total, i As Integer
Dim Num1 As String
Num1 = TextBox1.Text
Total = 0
If IsNumeric(Num1) Then
For i = 1 To Num1
Total = Total + i
Next
MsgBox("Sum is…" & Total)
Else
Call MsgBox("Input number!")
End If
----------------------------------------
----------------------------------------
デバッグ開始です、
取敢えず10までの和を出力させます。
予定通りの結果が得られます。
次に"aa"を入力し"Push_ii"ボタンをクリック。
数値を入力する旨のメッセージボックスが出力されます。
独り言
3連休の1日目が終わってしまいました・・・
独り言
3連休の1日目が終わってしまいました・・・
PR
この記事にコメントする