vb 字符串相乘

在文本框Text1和Text2中各输入一个正整数，将其对应位相乘并相加后，将结果显示在标签Label1中。
如输入1123和56，则Label1中的值为28。(即为1*0+1*0+2*5+3*6)

建一个Text1,Text2,Command1,Label1.
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim l As Integer, i As Integer, s As Long, t1 As String, t2 As String
t1 = Text1.Text
t2 = Text2.Text
l = IIf(Len(t1) > Len(t2), Len(t1), Len(t2))
t1 = String(l - Len(t1), "0") & t1
t2 = String(l - Len(t2), "0") & t2
For i = 1 To l
s = s + Mid(t1, i, 1) * Mid(t2, i, 1)
Next
Label1.Caption = s
End Sub

经过测试，通过！

Private Sub Command1_Click()
Dim s As Integer
Dim m As Integer
Dim n As Integer
n = Len(Text1.Text) - Len(Text2.Text)
If n > 0 Then
m = Len(Text1.Text)
For i = n + 1 To m
s = s + Val(Mid(Text1.Text, i, 1)) * Val(Mid(Text1.Text, i - n, 1))
Next
Else
m = Len(Text2.Text)
For i = Abs(n) + 1 To m
s = s + Val(Mid(Text1.Text, i - Abs(n), 1)) * Val(Mid(Text2.Text, i, 1))
Next
End If
Label1.Caption = s