在窗体上建立名称为了ext1 Text2和Text3的三个文本框 其中Text1和Text2文本框用
在窗体上建立名称为了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(mn)
本题digit()函数的作用是求第一个形参m从右数的第n(第二个形参)位数字。为求m的第n位数字,可先让m除以10n-1,再求商除以10的余数,该余数就是所需要的数字。因此[11处应填“mMod10”。当发生Command1_Click事件时,将调用该函数求得m和右数第n位数字,因此在[12处应填函数调用“digit(m,n)”。
相似问题
下列程序的功能是:单击窗体时将求出随机生成的10个两位数中的最大数及其下标 请填空。 Option
下列程序的功能是:单击窗体时将求出随机生成的10个两位数中的最大数及其下标,请填空。 Option Base 1 Private Sub Form_Click() Dim a(10) As
下面程序的功能是:求出所有的三位数 其各位数字的立方和等于该数。如: 153=13+53+33。 O
下面程序的功能是:求出所有的三位数,其各位数字的立方和等于该数。如: 153=13+53+33。 Option Explicit Private Sub Form_Click() Dim x1 As
下列程序的功能是:当发生窗体的单击事件时 求出3~1000之间的所有素数的和以及所有能被3和5整除的
下列程序的功能是:当发生窗体的单击事件时,求出3~1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数),并在窗体
下列程序的功能是求出所有的1~100之间的孪生素数。孪生素数是指两个素数的差为2 如3和5 11和1
下列程序的功能是求出所有的1~100之间的孪生素数。孪生素数是指两个素数的差为2,如3和5,11和13等,请填空。 Private Sub Form_Click() Dim i As
图片按钮的【 】属性用来设置命令按钮无效时显示的图形。请帮忙给出正确答案和分析 谢谢!
图片按钮的【 】属性用来设置命令按钮无效时显示的图形。请帮忙给出正确答案和分析,谢谢!
