ブログ内検索
×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
今回はforを利用した繰り返しです。
新規プロジェクトを作成、"smpl_btn_ii"としました、
テキストボックス、ボタンを配置します。
要するに今回は1～n迄の和を出力させます、
記述は以下。
----------------------------------------
----------------------------------------
Dim Total, Num1, i As Integer
Num1 = TextBox1.Text
Total = 0
For i = 1 To Num1
Total = Total + i
Next
MsgBox("Sum is･･･" & Total)
----------------------------------------
因みに自動記述された部分が横に長かった為、
"~Event Args) "の後に"_"を入力、改行しました、
少しは見易いかもです・・・
----------------------------------------
因みに自動記述された部分が横に長かった為、
"~Event Args) "の後に"_"を入力、改行しました、
少しは見易いかもです・・・
早速デバッグ開始です、
例として10迄の和を出力させるので10を入力、
"Push_ii"ボタンをクリック。
1～10迄の和55が出力されました。
PR
この記事にコメントする