小明用VB編寫計算20位以內(nèi)2個正整數(shù)相減程序．程序功能如下：在文本框Text1中輸入被減數(shù)，在文本框Text2中輸入減數(shù)，單擊“計算”按鈕Comnand1，將相減的結(jié)果輸出到文本框Text3中．運行界面如圖所示．
實現(xiàn)上述功能的VB程序如下，但加框處代碼有錯，請改正．
Private Sub Command1_Click （　?。?br />Dim c（1To 50）As Integer
Dim jiewei As Integer'存儲向高位借位
Dim ad As Integer,bd As Integer'存儲被減數(shù)和減數(shù)的每一位值
Dim e As Integer,alen As Integer,blen As Integer
Dim a As String,b As String,s As String
a=Text1．Text：b=Text2．Text
'將大數(shù)存儲在a中
If Len（a）＜Len（b） Then
s=a：a=b：b=s
ElseIf Len（a）=Len（b） Then
ad=Val（Mid（a,1，1））
bd=Val（Mid（b,1，1））
If ad＜bd Then
s=a：a=b：b=s
End If
End If
alen=Len（a）：blen=Len（b）

For i=1To alen
If i＜=blen Then
ad=Val（Mid（a,alen-i+1，1））
bd=Val（Mid（b,blen-i+1，1））
e=ad+10-bd-1+jiewei
Else
ad=Mid（a,alen-i+1，1）
e=ad+10+jiewei-1
End If

jiewei=e\10
Next i
If c（alen）＜＞0Then s=Str（c（alen））
For i=alen-1To 1Step-1
s=s+CStr（c（i））
Next i
Text3．Text=s
End Sub.