屬於橙色... 逃避不一定躲得過　面對不一定最難受 孤單不一定不快樂　得到不一定能長久 失去不一定不再有　轉身不一定最軟弱 別急著說別無選擇　別以為世上只有對與錯

477愛的鼓勵 0訂閱站台

下面這些.....怪怪的東西


就是我最近在背的
ㄎㄎ

沒有很認真在背的東西
哀哀
我很貪心
想要拿到這張證照
卻又不下工夫

本來這一個禮拜都要去學校練的
但星期日我去了
結果沒練
星期二我又去了.....
結果被騙了
根本沒有要練

而到現在已經星期四了.....我都還未到學校練過
證明了我很沒毅力.....很不努力
如果沒過
就是我的報應我的活該
而不過的機率
達很高
哀哀......

討厭這樣的自己
那麼的沒有毅力
那麼的沒上進心

其實要考到這張證照很簡單
只要有下工夫背
一定就可以考過

但我下工夫了嗎
沒有.......

再過2天就要考了
我還有好多都沒背好
整天懶懶散散的

嗯嗯
只能說
我
沒救了

這張證照
離我很遠
...............



Private Sub Form_Load()
M1.TextMatrix(0, 1) = "ID_NO"
M1.TextMatrix(0, 2) = "NAME"
M1.TextMatrix(0, 3) = "SEX"
M1.TextMatrix(0, 4) = "ERROR"

M1.ColWidth(0) = 500
M1.ColWidth(1) = 1500
M1.ColWidth(2) = 1000
M1.ColWidth(3) = 1500
M1.ColWidth(4) = 2500

Open "A:940306.T01" For Input As #1
Do
Input #1, ID, N, SEX
R = R + 1
M1.Rows = R + 1
M1.TextMatrix(R, 1) = ID
M1.TextMatrix(R, 2) = N
M1.TextMatrix(R, 3) = SEX
M1.TextMatrix(R, 4) = ERR(ID, SEX)
Loop Until EOF(1)
Close #1
M1.Col = 1
M1.Sort = 1
M1.Height = M1.Rows * M1.RowHeight(0) + 400
End Sub

Public Function ERR(ID, SEX)
If CK1(ID, SEX) = "OK" Then
ERR = CK2(ID)
Else
ERR = CK1(ID, SEX)
End If
End Function

Public Function CK1(ID, SEX)
CK1 = "OK"
L1 = Mid(ID, 1, 1)
If Len(ID) = 10 And (L1 >= "A" And L1 <= "Z") Then
For I = 2 To 10
If Mid(ID, I, 1) < "0" Or Mid(ID, I, 1) > "9" Then
CK1 = "FORMAT ERROR"
End If
Next
Else
CK1 = "FORMAT ERROR"
End If
D1 = Mid(ID, 2, 1)
If Not (D1 = "1" And SEX = "M" Or D1 = "2" And SEX = "F") Then
CK1 = "SEX CODE ERROR"
End If
End Function

Public Function CK2(ID)
L$ = "ABCDEFGHJKLMNPQRSTUVXYWZIO"
L = InStr(L$, Left(ID, 1)) + 9
X1 = L 10
X2 = L Mod 10
Y = X1 + 9 * X2 + Val(Right(ID, 1))
For I = 2 To 9
Y = Y + Val(Mid(ID, I, 1)) * (10 - I)
Next
If Y Mod 10 <> 0 Then CK2 = "CHECK SUM ERROR"
End Function

Private Sub M1_Click()

End Sub