/// 実習D2 制御文(For 〜Next) | プログラミング実習 |
プロジェクト名 実習D2和の計算2
動作
終わりの値nを入力すると2からnまでの偶数の和を計算する。
デザイン
フォームのプロパティ
Font.Size = 11
Size = 380, 150
コード(プログラム) [終了ボタン]のメソッドは省略しています。
Public Class Form1
Private Sub btnWa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnWa.Click
Dim suu, wa, owari As Integer
wa = @
owari = CInt( A )
For suu = 2 To owari Step B
wa = C
Next
MessageBox.Show("答えは" & wa.ToString & "です。",
"実習D2")
End Sub
End Class
キーワード
解説
2から偶数を加算していくので、2+4+6+8+…となるようにStepで2ずつ加算されるように指定する。
テスト
終わりの値=10 ⇒ 30、 終わりの値=100 ⇒ 2550
/// 実習D2 制御文(For 〜Next) | Copyright©2014 Hiroshi Masuda |