亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区



    

      

      考試首頁 | 考試用書 | 培訓(xùn)課程 | 模擬考場 | 考試論壇  
      

      


        當(dāng)前位置：編程開發(fā) > DotNET > VB.Net > 文章內(nèi)容
          
      

      

      

      
	
      VB.NET實(shí)現(xiàn)驗(yàn)證信用卡卡號
       [ 2017年7月26日 ] 【大 中 小】
      
    
    
      
		
	
      

    
      
	
      
	  
      VB.NET代碼驗(yàn)證信用卡卡號是否正確，本代碼使用luhn算法驗(yàn)證
      

      

      

      


      


      


      1
      

      2
      

      3
      

      4
      

      5
      

      6
      

      7
      

      8
      

      9
      

      10
      

      11
      

      12
      

      13
      

      14
      

      15
      

      16
      

      17
      

      18
      

      19
      

      20
      

      21
      

      22
      

      23
      

      24
      

      25
      

      26
      

      27
      		


      

      Dim creditCardNumber As String
      

      creditCardNumber = "1234567891234563" '這里請自行輸入你要驗(yàn)證的號碼 
      

      If creditCardNumber.Length < 16 Then
      

        Page.ClientScript.RegisterStartupScript(Me.GetType(), "dd", "alert('錯(cuò)誤數(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('錯(cuò)誤);", True) 
      

        End If
      

      End If
      

      以上所述就是本文的全部內(nèi)容了，希望對大家學(xué)習(xí)vb.net能夠有所幫助。
      

      
	
	

	

      

      




      


      

      


      

      

      

      將考試網(wǎng)添加到收藏夾 | 每次上網(wǎng)自動訪問考試網(wǎng) | 復(fù)制本頁地址，傳給QQ/MSN上的好友 | 申請鏈接 | 意見留言 TOP
      關(guān)于本站 　網(wǎng)站聲明 　廣告服務(wù) 　聯(lián)系方式 　站內(nèi)導(dǎo)航 　考試論壇
      Copyright © 2007-2013 中華考試網(wǎng)(Examw.com) All Rights Reserved