none
誰能幫我解釋這程式的原理呢? RRS feed

  • 問題

  • 我是初學者

    請幫我解釋這程式的原理

    這程式是計算舊式ISBN書碼的正確性

       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim sum As Integer, AllDigit As String = TextBox1.Text.ToString, i As Integer, DIGIT As Integer
            SUM = 0
            For I = 1 To 9
                DIGIT = AllDigit.Substring(i - 1, 1)
                sum = sum + Integer.Parse(DIGIT) * (11 - i)
            Next
            If AllDigit.Substring(9, 1) = (11 - (sum Mod 11)) Then
                Label1.Text = "正確"
            Else
                Label1.Text = "錯誤"
            End If
        End Sub
    2008年6月3日 下午 01:53

所有回覆

  • 謝謝

    不過我是想要知道他每一行程式是用什麼方式寫的

    如何擷取字串之類的

    2008年6月4日 上午 07:49
  • 有一種東西叫入門書,又有一種東西叫 MSDN Library

     

    Code Snippet

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim sum As Integer, AllDigit As String = TextBox1.Text.ToString

       Dim i As Integer, DIGIT As Integer

      
       SUM = 0
     
       For I = 1 To 9
          DIGIT = AllDigit.Substring(i - 1, 1) ' 由字串的第 i-1 個位置,取出一個字元。
          sum = sum + Integer.Parse(DIGIT) * (11 - i) ' Integer.Parse() 剖析字串轉為數字
       Next
       If AllDigit.Substring(9, 1) = (11 - (sum Mod 11)) Then ' Mod 是計算餘數的運算子
          Label1.Text = "正確"
       Else
          Label1.Text = "錯誤"
       End If
     
    End Sub

     

     

    2008年6月4日 上午 07:58
    版主
  •  小朱 寫信:

    有一種東西叫入門書,又有一種東西叫 MSDN Library

     

    謝謝!

    下次會自己找資料

    2008年6月4日 上午 11:30