Private Sub Command1_Click()
'第一种算法，全部循环了一遍，所以速度慢
Dim sTmp As String
Dim sResult1 As String
Dim sResult2 As String
Dim iLen As Integer
Dim i As Integer
If Not IsNumeric(Me.Text1.Text) Then
MsgBox "请输入一个数字"
Exit Sub
End If
iLen = Len(Me.Text1.Text)
sResult1 = 10 ...
