手机
当前位置:查字典教程网 >编程开发 >vb.net >VB.NET实现验证信用卡卡号
VB.NET实现验证信用卡卡号
摘要:VB.NET代码验证信用卡卡号是否正确,本代码使用luhn算法验证DimcreditCardNumberAsStringcreditCard...

VB.NET代码验证信用卡卡号是否正确,本代码使用luhn算法验证

Dim creditCardNumber As String creditCardNumber = "1234567891234563" '这里请自行输入你要验证的号码 If creditCardNumber.Length < 16 Then Page.ClientScript.RegisterStartupScript(Me.GetType(), "dd", "alert('错误数字只有" & 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 '偶数乘1奇数乘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

以上所述就是本文的全部内容了,希望对大家学习vb.net能够有所帮助。

【VB.NET实现验证信用卡卡号】相关文章:

vb.net验证密码是否复杂的方法

YY视频主播常见问题解答

苹果iOS 8.3 Beta 4发布:CarPlay设置菜单消失不见

VB.NET获取文件默认图标的方法

vb.net发布水晶报表程序步骤

iphone5s查找我的iphone怎么用

iOS8.3 Beta2改善键盘误触问题

win8系统找不到蓝牙怎么办?

VB.net常用字符和日期等函数

苹果iphone6农历如何开启

精品推荐
分类导航