求准考证检验位问题
假设输入准考证号为 2573458
检验位=（8*1+5*2+4*3+3*4+7*5+5*6+2*7）mod 10=1
显示的数字应为12573458
求助高手帮我看一下我编的程序那里存在问题
Private Sub Command1_Click()
Dim i%, d&, a%, s%, x&, P%
x = Val(Text1)
d = x
For i = 1 To 7
d = d \ 10
a = d Mod 10
s = s + a * i
Next i
P = s Mod 10
Text2 = P * 10000000# + x
End Sub
感谢！！！！

Private Sub Command1_Click()
Dim i%, d&, a%, s%, x&, P%
x = Val(Text1.text)
d = x
For i = 1 To 7
d = d \ 10
a = d Mod 10
s = s + a * i
Next i
P = s Mod 10
Text2.text = P * 10000000# + x
End Sub

你VB刚学吧，怎么控件属性都不写的，程序本身没有错

恩，刚学的。我记得书上说，text1.text=text1,所以我图省事就没写。
这个程序没错吗？可是我运行程序时不等于12573458而是72573458

显示的数字 = 检验位  加上  假设输入准考证号?