VB.NET实现验证信用卡卡号-中华考试网

VB.NET实现验证信用卡卡号

2017-7-26编辑:daibenhua

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中调用MSI卸载软件的2个方法

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

VB.NET实现验证信用卡卡号

热点推荐