第５回 プログラミング／MS-VS 2005(VB)／条件識別
http://c1.yz.yamagata-u.ac.jp/c1_2007.html
情報処理概論
の単元です。
小単元
概要
①前回の復習
②今週の内容
１．条件分岐 IF ～ Then ～ Else
２．ループ処理
・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)
