求助.减法和除法怎么改

闵默

这个是我们的作业，就这个模板，减法和除法怎么写，呃呃呃不会发图片，我把代码发上来吧
Option Explicit
Dim m, n, o, h As String
Dim r, i, s, q, p, j As Integer
Private Sub Command1_Click()
m = Text1.Text
n = Text2.Text
p = 0
If Len(m) < Len(n) Then
r = Len(n) + 1: o = "0" & n: n = m: m = o
Else
r = Len(m) + 1: m = "0" & m
End If
Do
n = "0" & n
Loop Until Len(n) = r
For i = r To 1 Step -1
If q < 10 Then
p = 0
Else
p = 1
End If
q = Val(Mid(m, i, 1)) + Val(Mid(n, i, 1)) + p
s = s & CStr(q Mod 10)
Next i
For j = r To 1 Step -1
h = h & Mid(s, j, 1)
Next j
If q >= 10 Then
Text3.Text = h
Else
Text3.Text = Right(h, r - 1)
End If
End Sub