§1 VB2005によるプログラム作成 vb2005 | プログラミング実習 [Menu] | |
===== =====
===== 課 題 =====
============
【課題1】 次のVBに関する文章の空欄を埋めよ。
【課題2】 次のプログラムを作成せよ。 プロジェクト名:課題02
コマンドボタンを2つ配置して、図のようにボタンに表示する。コマンドボタンのサイズおよび配置場所は適当でよい。
[赤色]ボタンをクリックするとフォーム(ウィンドウ)の背景が赤色になり、[終了]ボタンをクリックするとプログラムが終了するようにする。
【課題3】 次のプログラムを作成せよ。 プロジェクト名:課題03
コマンドボタンを1つ配置して、「ボタン移動」と表示する。
(Name) MoveButton Locateion 100, 50 Size 75, 23 Text ボタン移動
[移動]ボタンをクリックするとフォーム内の別の場所に移動するようにする。移動先の座標は乱数によって作成する。次のようなメソッドを作成して特定の範囲の座標が得られるようにする。
Private Function Ransuu(ByVal lower As Integer, ByVal upper As Integer) As Integer Ransuu = Int((upper - lower + 1) * Rnd + lower) End Function
X座標の範囲は0からXaまでである。Xaはウィンドウの幅からボタンの幅を引いた値である。
Xa = Me.ClientSize.Width - MoveButton.Width
同じように、Y座標の範囲は0からYbまでである。Ybはウィンドウの高さからボタンの高さを引いた値である。
Yb = Me.ClientSize.Height - MoveButton.Height
したがって、移動先の座標(x,y)は次の式で求める。
x = Ransuu(0, Xa) : y = Ransuu(0, Yb)
§1 VB2005によるプログラム作成 vb2005 | Copyright©2007 Hiroshi Masuda |