9、執行下列程式後，訊息交談窗顯示的結果是____(11)____ Function FACT(ByVal X) 　　Dim Y, K As Short 　　Y = 1 　　For K = 1 To X 　　　　Y = Y * K 　　Next K 　　FACT = Y End Function Private Sub Form1_Load(…) 　　Dim N As Integer = 5 　　MsgBox(FACT(N)) End Sub

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

題組內容

9、執行下列程式後，訊息交談窗顯示的結果是(11) Function FACT(ByVal X) 　　Dim Y, K As Short 　　Y = 1 　　For K = 1 To X 　　　　Y = Y * K 　　Next K 　　FACT = Y End Function Private Sub Form1_Load(…) 　　Dim N As Integer = 5 　　MsgBox(FACT(N)) End Sub

其他申論題

題組內容

9、 執行下列程式後，訊息交談窗顯示的結果是____(11)____ Function FACT(ByVal X) Dim Y, K As Short Y = 1 For K = 1 To X Y = Y * K Next K FACT = Y End Function Private Sub Form1_Load(…) Dim N As Integer = 5 MsgBox(FACT(N)) End Sub

其他申論題

9、執行下列程式後，訊息交談窗顯示的結果是(11) Function FACT(ByVal X) 　　Dim Y, K As Short 　　Y = 1 　　For K = 1 To X 　　　　Y = Y * K 　　Next K 　　FACT = Y End Function Private Sub Form1_Load(…) 　　Dim N As Integer = 5 　　MsgBox(FACT(N)) End Sub