///　実習C4　制御文(If)とデータ交換(スワップ) プログラミング実習
 back next 

プロジェクト名　　　実習C4大小判定

動作

　大きい方の値から小さい方の値を引き算するプログラムである。
　実数の計算ができるようにする。

デザイン

実習C4のデザイン フォームのプロパティ
　Font.Size = 11
　Size = 400, 180

コード(プログラム)    [終了ボタン]のメソッドは省略しています。　

Public Class Form1
　　Private Sub btnKeisan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeisan.Click
　　　　Dim x1, x2, ans, work As Double
　　　　x1 = 　①　(tbxData1.Text) 　　　'データ取り込み
　　　　x2 = CDbl(tbxData2.Text)
　　　　If 　②　　Then 　　　'x1-x2を計算するのでx2が大きいとき
  work = x1
x1 = 　③　
x2 = 　④④		 　　'x1とx2の値を入れ替える
　　　　End If
　　　　ans = 　⑤　
　　　　lblKekka.Text = x1.ToString & " - " & x2.ToString & " = " & ans.ToString
　　End Sub
End Class
解答欄（英数字は半角で入力すること。余分な空白は入れないこと）
　　① 　　② 　　③ 　　④ 　　⑤
　　　解答を入力し、［解答チェック］ボタンをクリックする。正解は　　　、不正解は　　　で表示される。

解説

スワップ(swap、データ交換) の手順
　バケツAに赤い水、バケツBに青い水が入っている。バケツの水を入れ替えるとき、カラのバケツCを用意して、①Aの水をCに入れ、②Bの水をAに入れ、③Cの水をBに入れる。これでAとBの水を入れ替えることができる。
プログラムでは点線の枠で囲まれた部分である。

 

 back next 
///　実習C4　制御文(If)とデータ交換(スワップ) Copyright©2014 Hiroshi Masuda 

 

 

inserted by FC2 system