商品代码的算法用VB编程

来源：百度知道 编辑：UC知道 时间：2024/07/02 06:59:15
甚急!谢谢!!!
代码 690123456 789X

2.从序号2开始求出偶数位数字之和① 9+7+5+3+1+9＝34 ①
3. ①*3=② 34×3＝102 ②
4.从序号3开始求出奇数位数字之和③ 8+6+4+2+0+6＝26 ③
5. ②+③=④ 102+26＝128 ④
6.用大于或等于结果④且为10最小整数倍的数减去④，其差即为所求校验码的值 130－128＝2
校验码X＝2

窗体上添加一个 TextBox1 和一个 Command1
添加一下代码:Private Sub Command1_Click()
Dim s1 As Integer, s2 As Integer, s3 As Integer, s4 As Integer, s5 As Integer
Dim s As String
s = Trim(Text1.Text)
s1 = Val(Mid(s, 2, 1)) + Val(Mid(s, 4, 1)) + Val(Mid(s, 6, 1)) + Val(Mid(s, 8, 1)) + Val(Mid(s, 10, 1)) + Val(Mid(s, 12, 1))
s2 = s1 * 3
s3 = Val(Mid(s, 1, 1)) + Val(Mid(s, 3, 1)) + Val(Mid(s, 5, 1)) + Val(Mid(s, 7, 1)) + Val(Mid(s, 9, 1)) + Val(Mid(s, 11, 1))
s4 = s2 + s3
s5 = (Int(s4 / 10) + 1) * 10 - s4
MsgBox "X= " & s5

End Sub
-------------------------------
我已经测试过了，没有问题!