在窗体上建立名称为了ext1、Text2和Text3的三个文本框,其中Text1和Text2文本框用来接受两个整数(假设为M和N),建立一个名称为Command1的命令按钮,单击它将得到数M从右边起的第N位数字,并把该数字显示在Text3文本框中,如图20

admin2009-02-13  33

问题 在窗体上建立名称为了ext1、Text2和Text3的三个文本框,其中Text1和Text2文本框用来接受两个整数(假设为M和N),建立一个名称为Command1的命令按钮,单击它将得到数M从右边起的第N位数字,并把该数字显示在Text3文本框中,如图20-15如示。请填空。

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

选项

答案m Mod 10 , digit(m,n)

解析 本题digit()函数的作用是求第一个形参m从右数的第n(第二个形参)位数字。为求m的第n位数字,可先让m除以10n-1,再求商除以10的余数,该余数就是所需要的数字。因此[11]处应填“m Mod 10”。当发生 Command1_Click事件时,将调用该函数求得m和右数第n位数字,因此在[12]处应填函数调用“digit(m,n)”。
转载请注明原文地址:https://kaotiyun.com/show/0o1p777K
0

最新回复(0)