Private Function 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= 【11】 End Function Private Sub Command1_Click() Dim m As Integer,n As Integer,k As Integer m=Val(Text1.Text) n=Val(Text2.Text) k= 【12】 Text3.Text=Str(k) End Sub