使用vb.Net生成带校验位的唯一学号

Question

我正在写一个程序，它需要生成一个有8位数字的学生号，第8位(最后)位是校验位，计算方法是将前7位数字相加，除以10，然后取余数，再从10中减去。用户没有输入。当单击按钮时，代码必须执行并在msgBox中显示学生编号。每次学生注册时，学生号都必须加1。请帮帮我。

Answer 1

试着这样做

 Public Number As Integer = 1200000 'first seven digits of student number

  Private Sub Button1_Click(ByVal sender As System.Object,
  ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer = Number
        Dim StudentNumber As Integer
        i += 1

        While (i > 0)

            StudentNumber += (i Mod 10)
            i /= 10

        End While

        StudentNumber = 10 - (StudentNumber Mod 10)

        StudentNumber = CInt(Number.ToString & StudentNumber.ToString)

        Number +=1

        MsgBox("Your student number is "" StudentNumber" & StudentNumber)

    End Sub