![[填空题] 在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数](http://www.mshxw.com/aiimages/31/260658.png "[填空题] 在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数")
[填空题] 在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数M从右边起的第N位数字，并把该数字显示在Text3文本框中，如图20-15如示。请填空。![[填空题] 在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数](/uploadfile/member/20180926/1537964794.jpg "[填空题] 在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数")
Private Function digit(ByVal m As Integer，ByVal n As Integer)As Integer
Dim i As Integer
For i=1 To n-1
m=m10
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
参考答案：
[11]m Mod 10 [12]digit(m，n)问题解析:
本题digit()函数的作用是求第一个形参m从右数的第n(第二个形参)位数字。为求m的第n位数字，可先让m除以10n-1，再求商除以10的余数，该余数就是所需要的数字。因此[11]处应填“m Mod 10”。当发生 Command1_Click事件时，将调用该函数求得m和右数第n位数字，因此在[12]处应填函数调用“digit(m，n)”。
