阿摩線上測驗
登入
首頁
>
高職◆計算機概論
>
103年 - 宜蘭高商103-1-3 高1計算機概論_國資應#27889
>
題組內容
2.副檔名分類 (A)exe (B)png (C)wmv (D)htm (E)swf (F)wma
( 14 )動畫檔
其他申論題
( 10 )圖片檔
#51304
( 11 )網頁檔
#51305
( 12 )聲音檔
#51306
( 13 )視訊檔
#51307
1、 錄音的取樣頻率為40960Hz，樣本大小為8bits，立體聲，希望錄製的聲音檔大小不超過16MB，則最多可錄製_______(1)________秒。（沒有演算過程，不予計分）
#51309
2、 在Visual Basic的程式中，定義了一個遞迴函數X如下所示，則MsgBox(X(5))的結果為何_______(2)_______？（沒有演算過程，不予計分） Function X(N) If N = 0 Then X = 0 Else X = X(N - 1) + N End If End Function
#51310
3、 執行下列Visual Basic程式片段後，訊息交談窗顯示的結果為何 _________(3)_________？ Function F(X, Y) F = X ^ 2 + Y ^ 2 End Function Private Sub Form1_Load(…) Dim a, b As Short a = 2 : b = 1 MsgBox(F(a, F(a, b))) End Sub
#51311
4、 執行下列Visual Basic程式片段後，訊息交談窗顯示的結果為何？________(4)________ Sub f(ByRef a, ByVal b) a = a + 1 b = b + 1 End Sub Private Sub Form1_Load(…) Dim X, Y As Short X = 7 : Y = 8 MsgBox(X & " " & Y) Call f(X, Y) MsgBox(X & " " & Y) End Sub
#51312
5、 執行下列Visual Basic程式片段後，訊息交談窗顯示的結果為何？_____(5)_________ Sub X(ByRef K) K = K - 1 MsgBox(K) End Sub Private Sub Form1_Load(…) Dim L As Integer L = 12 Call X(L) MsgBox(L) End Sub
#51313
6、 請填入空白處，使程式能依據輸入的身分證字號來判斷性別， Sub Check_id(ByVal S_id As String) Dim gender As Integer gender = mid( __(6)___, 2, 1) If gender = 1 Then MsgBox("男性", , "判斷性別") ElseIf gender = 2 Then MsgBox("女性", , "判斷性別") End If End Sub Private Sub Form1_Activated(…) Handles Me.Activated Dim id As String id = InputBox("請輸入身分證字號：", "判斷性別") Call _____(7) ___ End Sub
#51314
阿摩線上測驗
登入
阿摩線上測驗
登入