Page 139 -

附錄四：11900 電腦軟體設計丙級學科題庫(105 年新版)

End If
idno = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", id1) + 9
x1 = Mid(idno, 1, 1)
x2 = Mid(idno, 2, 1)
For j = 2 To 10

d(j - 1) = Mid(id, j, 1)
Next
y = x1 + 9 * x2 + 8 * d(1) + 7 * d(2) + 6 * d(3) + 5 * d(4) + 4 * d(5)

+ 3 * d(6) + 2 * d(7) + d(8) + d(9)
If (y Mod 10) <> 0 Then ecode = "FORMAT ERROR" : Exit Do
Loop While (False)
With dv
.Rows.Add(1)
.Item(0, i).Value = id
.Item(1, i).Value = name
.Item(2, i).Value = sex
.Item(3, i).Value = ecode
.Sort(Column1, System.ComponentModel.ListSortDirection.Ascen…
End With
i=i+1
Loop
FileClose(1)
End Sub
End Class

5.完成程式(以 940306.sm 為答案)

135