这张改VB实现字型应当
发布网友
发布时间：2024-10-22 21:38
共1个回答
热心网友
时间：2024-11-05 09:09
Sub main()
Dim i%, resu%, s1$, s2$
s1 = InputBox("")
s2 = InputBox("")
i = 1
While Mid(s1, i, 1) = Mid(s2, i, 1) And i <= Len(s1)
i = i + 1
Wend
If Mid(s1, i, 1) = "" Then
resu = 0
Else
resu = Asc(Mid(s1, i, 1))
End If
If Mid(s2, i, 1) = "" Then
resu = resu - 0
Else
resu = resu - Asc(Mid(s2, i, 1))
End If
Debug.Print "result:"; resu
End Sub
