E2C VB 實作範例

專案名稱：E2C56-拉個七
表單大小：(360,360)
表單標題：「英2仁56陳俊華-拉個七」
三個標籤：Label1~Label3，皆加單線外框，大小皆固定為(80,100)
         文字顯示皆「7」、字型大小皆72，文字顏色分別為紅、綠、藍
位置分別為(35,40)、(135,40)、(235,40)
一個按鈕：button1，位置(240,210)，大小(90,40)、字型(微軟正黑,16)、背景黃色
一個文字方塊：TextBox1，位置(80,220)，左右寬80、字型(標楷,14)、文字紅色、顯示？
一個定時器：Timer1，滴答間隔0.2秒，一開始設為「啟動」
                   註：Interval 設 200 , Enabled 設 True

程式規定：
   1、按鈕1被按1下：
      (1)將定時器的啟動狀態設為相反
         Timer1.Enabled = Not Timer1.Enabled
      (2)將3個標籤的數值相加，在文字方塊上顯示和
         TextBox1.Text = Val(Label1.Text) + Label2.Text + Label3.Text
   2、定時器每次滴答，若啟動狀態：
      (1)讓標籤1的文字顯示為：隨機產生 0~9 之一
         Label1.Text = Int(Rnd() * 10)
      (2)讓標籤2的位置隨機移動：x座標在[50~250)之間，y座標在[20~150)
         Dim x% = Int(Rnd() * 200) + 50, y% = Int(Rnd() * 130) + 20
         Label2.Location = New Point(x, y)
      (3)讓標籤3的背景色：x座標在[50~250)之間，y座標在[20~150)
         Dim r% = Int(Rnd() * 256)
         Dim g% = Int(Rnd() * 256)
         Dim b% = Int(Rnd() * 256)
         Label3.BackColor = Color.FromArgb(r, g, b)