106年計概Ⅳ 第1章 1-6 上機作業( VB5 )

教學目標：(1)Int()、Rnd()函數 與 副程式 Sub 及Form2 的應用
                   (2)表單的 BackgroundImage 與 Label 的 BackColor 屬性之設定
                  
題        目：設計一個「猜數字遊戲」的程式，電腦可隨機產生一個1~100之間的隨機整數，
                     讓使用者猜數字，最多可猜三次，並顯示猜測結果。

表單介面：Form1 ( 可參考下圖 )
               
                         表單的背景圖片，請利用 BackgroundImage 屬性載入圖片
                         Label 的透明背景,，可利用 BackColor 屬性，選 Web 之 Transparent
                   Form2 ( 可參考下圖 )

                   
程式功能：(1)使用Int()、Rnd()函數隨機產生一個1~100之間的隨機整數
                     (2) 按「開始猜」鈕後，顯示輸入交談窗，供使用者輸入欲猜的數字

                     (3)利用If ... Then ... 敘述，判斷使用者猜的數字是否超過 1 ~ 100，
                         若超出則停止遊戲                
                    (4)利用If ... Then ... ElseIf... 敘述，判斷使用者是否猜中數字，
                         若猜中了，則顯示爆炸圖案( Form2 )

 
                          若沒猜中，則提示 "太大了！" 或  "太小了！" 

    

                       (5)若猜三次仍沒猜中，則顯示 正確數字！

使用圖檔：1.jpg 、2.jpg

參考程式碼：
 Private Sub Button1_Click(…)

   Dim ans As Integer

   Randomize()

   '產生 1 ~ 100 之間的隨機整數
   ans = Int(Rnd() *          ) +            

   '呼叫副程式guessing
   Call                  

End Sub

Sub guessing(ByRef ans)

   Dim guess, i As Integer

   i = 1

   Do
         '輸入猜測的數字  

        guess = InputBox(            ,              , 0) 
        '猜的數字若非 1 ~ 100之間則停止遊戲 

        If                                  Then End
        '若猜中了，則顯示 Form2 爆炸圖案，並跳離Do...Loop  

        If guess = ans Then

             Form2.             

             Exit         
        '猜錯了,則提示 " 太大了" 或 "太小了 "  

        ElseIf guess > ans Then

             MsgBox(            , 32)

        Else

             MsgBox(            , 32)

        End If

            i = i + 1

   Loop While             
    '若猜三次未中，則顯示正確數字！

   If             Then MsgBox("正確數字為：" &          , 16)

End Sub   

實習完畢，請上傳執行檔 "t21-xx-vb5.exe" 至 classroom

               https://classroom.google.com
      課程名稱：計算機概論Ⅳ 上機作業
      課程代碼：fyq4op
      作業名稱：VB 2010作業-vb5    ( 請於 2017/06/08 前上傳 )

-----------------------------------------------------------------------------------------------------------------                    

加分題：

將Form1 改為下圖，並增加下列的功能：

(1) 將每次 "可猜測的數字範圍" 顯示在 Label 上 ！

(2) 按 結束 鈕，則遊戲結束。

實習完畢，請重建執行檔
   (1) 執行『 建置 \ 重建 t21-xx-vb5 』
  (2) 至『bin \ replease 』下取出 "t21-xx-vb5.exe" ，         
       將檔名改為 "t21-xx-vb5-b.exe" ，並上傳至 classroom

               https://classroom.google.com
      課程名稱：計算機概論Ⅳ 上機作業
      課程代碼：fyq4op
      作業名稱：VB 2010作業-vb5-b ( 加分題 )    ( 請於 2017/06/15 前上傳 )