private Fuction digit(ByVal m As Integer, ByVal n As Integer) As Integer Dim i As Integer For i = 1 To n - 1 M=m \ 10 Next i Digit= 【6】 End Function Private Sub Command1_Click() Dim m As Integer,n As Integer,k As Integer m=Val(Text1.Text) n=Val(Tex2.Text) k= 【7】 Text3.Text = Str(k) End Sub