填空题
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