privateIntegermi
窗体上添加一个 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...全部
窗体上添加一个 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。
收起