①前回の復習 ②今週の内容 1.条件分岐 IF ~ Then ~ Else 2.ループ処理 ・Do Loop While 文 ・While End While 文 ☆今週のプログラム Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim LoopNumber As Integer Dim Counter As Integer Dim Sumup As Double Dim element As Double LoopNumber = LoopNumTextBox.Text element = 1 / LoopNumber 100: Sumup = Sumup + element Counter = Counter + 1 If Counter < LoopNumber Then GoTo 100 ResultTextBox.Text = Sumup.ToString End Sub End Class 演習 上記のプログラムを Do Loop While 文またはWhile End Whileに書き換える 【関連講義】情報処理概論,プログラミング言語プログラミング概論1) > プログラミング概論,伊藤 智博,情報処理概論, 講義ノート, (2008).(1) > プログラミング概論,伊藤 智博,情報処理概論, 講義ノート, (2008).