2017年5月18日 星期四

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 前上傳 )
沒有留言:
標籤：

2017年5月8日 星期一

三年級『計應』加分機會來了！

   親愛的會三1、會三2、外三1、外三2同學：
   大家辛苦了！
   期末『計算機應用Ⅱ』課程，加分機會如下：
(一)補交「訂正卷」
  (請於5/10(三)第一節下課，由小老師統一收齊後，送至4F老師辦公桌上！)  
(二)補交「課本習題」作業
  (請於5/11(四)中午前，自行帶課本找老師登記！)     
(三)      IF  期末考成績 >= 70  Then
        計應學期成績 pass
    Else
        繳交 「計概報告」 OR 「補考」
    End IF
註：(1)「計概報告」應包含：
主題：電腦科技新知( 自選一新科技或新應用 )
內容：
1.    發展現況
2.    技術說明
3.    心得與感想
 繳交日期：需列印，5/15(一)放學前 自行放在4F老師辦公桌上

        (2)「補考」5/23(一)由教務處統一辦理
沒有留言:
標籤： ,

2017年5月4日 星期四

104學年度四技二專統一入學測驗 「計概」試題詳解


商管群專業科目(一)：計算機概論

D
26.       
10 μs 的百萬分之一 = 10 x10-6 x 10-6 s = 10 x10-12 s = 10 ps
A
27.       
阻斷服務攻擊(DoS)：
在瞬間發送大量的網路封包，癱瘓被攻擊者的網站及伺服器
D
28.       
 "資訊科技" - "公司"：
尋引擎找出含有完整關鍵字「資訊科技」之網頁，並且剔除含「公司」兩字之網頁
C
29.       
在 IPv 4 的位址中：
 數值1
數值2
數值3
數值4
可管轄的IP位址個數
Class A


2 24
Class B
 網路位址
   主機位址
2 16
Class C


2 8
網路位址：識別所屬網路
主機位址：識別網路上的個別電腦設備
B
30. 
以https開頭的網頁就是有採用SSL安全機制的網頁
C
31.       
Microsoft Word預設的範本格式為 .dot、.dotx
B
32.       
若用Word軟體編輯一份文件時，希望第1頁之頁面方向採直向，而其之後的頁面方向都採橫向。應該在第1頁末尾插入分節符號，再設定前後頁的直向 / 橫向
B
33.       
Microsoft Word提供定位點的對齊方式為：
小數點及靠左、靠中、靠右、分隔線
A
34.       
 
姓名標示(BY)               非商業性(NC)                        禁止改作(ND)                相同方式分享(SA)         
C
35.       
(12M x 8bit) / 6M + (12M x 8bit) / 2M = 16 + 48 = 64 秒
B
36.       
PowerPoint中個別設定的格式優先於母片設定的格式，所以第5張投影片中設定標題文字為白色，則不管母片設定為何，第5張投影片的標題文字皆為白色
B
37.       
MOD ( A1,3 ) = MOD ( 25,3 ) =1
A
38.       
= MIN ( SUM ( A1:A2 ) , AVERAGE ( A2:B2 ) ) = MIN (32,45) = 45
A
39.       
依照欄B的值由最小到最大排序後的結果：     

A
B
1
60
10
2
30
20
3
40
20
4
5
30
再依照欄A的值由最大到最小排序後的結果：
A
B
1
60
10
2
40
20
3
30
20
4
5
30
C
40.       
(300×4 × 300×5 × 8bit) / 8 bit =1800000 Bytes
C
41.       
產生「紅眼」的主要原因是拍照時使用閃光燈
D
42.       
取樣的頻率與取樣的壓縮比無關
B
43.       
3D列印技術，是透過電腦軟體的協助，將材料以層層疊加的方式來產出物品，具有快速成形的優點，是屬於電腦輔助製造( CAM )  
C
44.       
(A)動態隨機存取記憶體才需要隨時充電 
(B) 12倍速DVD光碟機的資料讀取速度為：
      1350KB/s x 12 =16200KB/s，
   12倍速藍光光碟機的資料讀取速度為：
      4.5MB/s x 12 = 54MB/s = 54000KB/s
(D)CPU都有內建快取記憶體 ( cache ) 以提高執行效能
D
45.       
(A) Windows Media Player無法播放RMVB檔案，播放RMVB檔應使用 RealPlayer軟體
(B) MIDI是一種樂器數位介面的音訊格式檔
(C) AAC的壓縮率勝過MP 3，但音質較MP 3好
A
46.       
Dim A ( 3 ) , B ( 3 ) as Integer
A ( 0 ) = 1 : A ( 1 ) = 3 : A ( 2 ) = 0 : A ( 3 ) = 2
B ( 0 ) = 2 : B ( 1 ) = 1 : B ( 2 ) = 3 : B ( 3 ) = 0
C = A ( B ( A ( 2 ) + 1 ) + 1 )
C = A ( B ( A ( 2 ) + 1 ) + 1 )
  = A ( B ( 0 + 1 ) + 1 )
  = A( B(1)+1 )
  = A( 1+1)
  = A(2)
  = 0
D
47.       


(D)
 If A > B Then
     If A > C Then
       M = A
     Else
       M = C
     End If
  End If
C
48.       
X       Y                Sum       
1      1 ~ 1              + 1         
3      3 ~ 1              + 3*3       
5      5 ~ 1              + 5*5       
7      7 ~ 1              + 7*7       
9      9 ~ 1              + 9*9       
11 x              
Sum = 1 + 3*3 + 5*5 + 7*7 + 9*9 = 165
B
49.       
< tr > … < / tr > 產生一列
< td > … < / td > 產生一儲存格
D
50.       
?A * . * xls * ：
可找出檔案名稱的第二個字元為A，而且副檔名包含 " xls " 字串的所有檔案( 副檔名 xls 的前後可能有其他字元 )
沒有留言:
標籤：
訂閱： 文章 (Atom)