題組內容

二、填充題 (共12題，第1題4分，2~5題、每題3分，第6~12題、每題2分，共計30分)

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