VB.NET實現(xiàn)驗證信用卡卡號
更新時間：2015年05月18日 11:35:00 投稿：hebedich
這篇文章主要介紹了VB.NET實現(xiàn)驗證信用卡卡號是否正確的代碼，主要根據(jù)luhn算法來驗證，有需要的小伙伴可以參考下。
VB.NET代碼驗證信用卡卡號是否正確，本代碼使用luhn算法驗證
Dim creditCardNumber As String
creditCardNumber = "1234567891234563" '這里請自行輸入你要驗證的號碼
If creditCardNumber.Length < 16 Then
Page.ClientScript.RegisterStartupScript(Me.GetType(), "dd", "alert('錯誤數(shù)字只有" & creditCardNumber.Length & "碼');", True)
Else
Dim Int(15) As Integer
Dim x, num, sun As Integer
For x = 0 To 15
num = creditCardNumber.Substring(x, 1)
If (x + 1) Mod 2 <> 0 Then '偶數(shù)乘1奇數(shù)乘2
Int(x) = num * 2
Else
Int(x) = num
End If
Next
For x = 0 To 15
If (Int(x) > 9) Then
Int(x) = (Int(x) Mod 10) + 1
End If
sun += Int(x)
Next
If (sun Mod 10 = 0) Then
Page.ClientScript.RegisterStartupScript(Me.GetType(), "ddd", "alert('正確的信用卡');", True)
Else
Page.ClientScript.RegisterStartupScript(Me.GetType(), "dd", "alert('錯誤);", True)
End If
End If
以上所述就是本文的全部內(nèi)容了，希望對大家學習vb.net能夠有所幫助。
相關(guān)文章
主要包括vb.net 字符串函數(shù)，vb.net 時間日期函數(shù)，2008-01-01
這篇文章主要介紹了VB.NET實現(xiàn)驗證信用卡卡號是否正確的代碼，主要根據(jù)luhn算法來驗證，有需要的小伙伴可以參考下。2015-05-05
此方法將檢查某些強密碼特性，并使用有關(guān)檢查密碼失敗的信息更新字符串參數(shù)。2008-08-08
這篇文章主要介紹了VB.NET中調(diào)用MSI卸載軟件的2個方法,一是直接調(diào)用MSI安裝包命令,二是產(chǎn)品序列號卸載程序,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了VB.NET獲取文件默認圖標的方法,涉及VB.NET基于Shell32.dll動態(tài)鏈接庫文件獲取系統(tǒng)圖標的技巧,需要的朋友可以參考下2015-06-06
VB.NET中使用種子填充算法實現(xiàn)給圖片著色的例子
這篇文章主要介紹了VB.NET中使用種子填充算法實現(xiàn)給圖片著色的例子,在開發(fā)一個畫圖工具時遇到的問題,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了VB實現(xiàn)的遞歸復制文件和搜索文件的代碼分享,代碼寫的比較簡單,容易看懂,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了VB.NET實現(xiàn)的MD5加密算法,結(jié)合具體實例形式分析了VB.NET實現(xiàn)的md5加密算法相關(guān)操作步驟與加密處理技巧,需要的朋友可以參考下2017-03-03
讀取寫入前需創(chuàng)建Word的引用，打開文件并獲取Word的Document對象。 需要說明的一點是，Word自定義屬性所能寫入的長度是有限制的，約255個字符。2013-02-02
本文給大家分享的是2個vb.net中驗字符串類型的函數(shù)，十分的簡單實用，有需要的小伙伴可以參考下。2015-05-05