追蹤
ˊ-橙色九月-ˊ
關於部落格
  • 33917

    累積人氣

  • 9

    今日人氣

    0

    追蹤人氣

VB17

Function 名稱(參數1,參數2) AS 型態
參數寫法=>Byval 參數名稱 AS 型態
End Function
名稱:fun1
參數:a(iut),b(double),c(string)
回傳值:double
Function fun1(byval a AS Integer, byval b AS Double, byval c AS String, AS Double)
<1>Format Error
1.長度=>Len(str)<>10
2.A~Z=>Mid(str,1,1)<"A" or Mid(str,1,1)>"Z"
3.0~9=>Mid(str,3~10,1)<"0" or Mid(str,3~10,1)>"9"
<2>性別錯誤
NOT(mid(str,2,1)=1 AND sex="M") OR (mid(str,2,1)=2 AND sex="F")
字元取出,代換成數字A=10 B=11....Z=35
代換出的數字,分割成個數1=*1,0=*2
A123456789
------------------
10123456789
-------------------
19876543211
Instr("資料",比對)
i=instr("ABCD~Z",mid(str,1,1))+9
*1=i 10
*2=i mod 10
sum=sum+*1+9**2+val(right(str,1)
For j=2 to 9 step 1
sum=sum+(10-j)*val(mid(str,j,1))
NEXT
If((sum mod 10)<>0))then
Checksum Error
End If
相簿設定
標籤設定
相簿狀態