Page 138 -

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

3.指令說明： 指令意義 範例
指令名稱 呼叫程式中的函式
End Of File 資料檔中的末端(避免因為 Call wdata()
Call 取得超過檔案結尾的輸入所產生的錯誤) EOF(1)
EOF() 傳回字串的個數 其中 1 為檔案編號

Len(字串) 傳回字串中的第幾個起取幾個 Dim A$=”abc123”
X=Len(A$) ‘X 傳回 6
Mid(字串,起數,個數) 傳回字串 2 在字串 1 的位置
Dim A$=”abc123”
Instr(字串 1,字串 2) X=Mid(A$,3,2) ‘X 為 c1

Dim A$=”abc123”
Dim B$=”2”
X=(A$, B$) ‘X 傳回 5

4.程式碼：

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As………………
Dim id, name, sex, ecode As String
Dim d(10), x1, x2, y, i, j As Integer
Dim id1, id2, idno As String
FileOpen(1, "c:\丙設磁片\940306.sm", OpenMode.Input)
i=0
Do While Not EOF(1)
ecode = ""
Do
Input(1, id) : Input(1, name) : Input(1, sex)
id1 = Mid(id, 1, 1)
id2 = Mid(id, 2, 1)
If Len(id) <> 10 Then
ecode = "FORMAT ERROR" : Exit Do
ElseIf id1 < "A" Or id1 > "Z" Then
ecode = "FORMAT ERROR" : Exit Do
Else
For j = 2 To 10
If Mid(id, j, 1) < "0" Or Mid(id, j, 1) > "9" Then
ecode = "FORMAT ERROR" : Exit Do
End If
Next
End If
If Not (id2 = 1 And sex = "M") And Not (id2 = 2 And sex = "F") Then
ecode = "FORMAT ERROR" : Exit Do

134