输入一个数字判断其是否为完全数？使用vb，编写函数

如题所述

推荐答案 2016-11-18

Private Function IsWanShu(ByVal m As Integer) As Boolean

    Dim i, k As Integer
    k = 0
    For i = 1 To m / 2
        If m Mod i = 0 Then
            k = k + i
        End If
    Next i
    If m = k Then
        IsWanShu = True
    Else
        IsWanShu = False
    End If
End Function

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/WWXOO7jzWXvjevzzXzj.html

相似回答

vb 输入一个数,判断该数是否为完数,并把其因子输出答：If h = k Then Print h & "是完数,"Print h; "=";For i = 1 To UBound(a) - 1 Picture1.Print a(i); "+";Next i Print a(i)Else Print m & "不是完数"End If Next h

...从键盘上输入任一正整数n,判断该数是否是完全数。如果一个数的所 ...答：公式：如果有一个自然数n，符合（2的n次方－1）是质数，那么（2的n次方－1）＊（2的n次方）／2是完全数。历史大数学家欧几里德曾推算出完全数的获得公式：如果2^p-1质数，那么（2^p-1）X2^（p-1）便是一个完全数。例如p＝2，2^p-1＝3是质数，（2^p-1）X2^（p-1）＝3X2＝6...

怎么用VB判断一个数是否为完全数?答：Dim X As Integer, Y As Integer Dim I As Integer X = InputBox("输入一个整数")Print "因子：";For I = 1 To X / 2 If X Mod I = 0 Then Y = Y + I: Print I;Next Print If Y = X Then Print X & "是一个完全数"MsgBox X & "是一个完全数"Else Print X & "不...

怎样编写2-1000的完全数的vb编程答：完全数（Perfect number），又称完美数或完备数，是一些特殊的自然数。它所有的真因子（即除了自身以外的约数）的和（即因子函数），恰好等于它本身。VB实现求完全数的二个参考实例，如下：Private Sub Form_click()Dim i As Integer, m As Integer, a As Integer, s As Integer For m = 2 To...

请问在VB里面如何设计程序找出1000以内的完数?答：1、启动VB6.0，新建一个标准exe工程。2、在窗体上绘制一个命令按钮，名称为Command1。3、双击命令按钮进入代码窗口。4、编写命令按钮的单击事件。Private Sub Command1_Click()For n = 1 To 1000 s = "" '这一句要加上 Sum = 0 For i = 1 To n / 2 If n Mod i = 0 Then Sum = ...

VB编程题求编写:如果一个数的因子之和等于这个数的本身,则称这样的数...答：'int i,j,m,n,sum m =inputbox("输入最小正整数")n =inputbox ("输入最大正整数")for j=m to n sum=0 for i=1 to j if (j mod i=0) and (i <>j ) then sum=sum i next if j=sum then print sum & " 是完全数"next print "查找完毕"beep end sub ...

...写一个控制让使用者输入X.Y值求X.Y直的完美数 并使用DO...LOOP...答：例如：第一个完全数是6，它有约数1、2、3、6，除去它本身6外，其余3个数相加，1+2+3=6。第二个完全数是28，它有约数1、2、4、7、14、28，除去它本身28外，其余5个数相加，1+2+4+7+14=28。后面的完全数还有496、8128等等。【利用VB编程求Y 以内完全数】Dim a as Integer,b as ...

一个VB题目答：496 是一个完全数。8128 是一个完全数。Private Sub Form_Click()Dim M&, N&, x&, y&, i& N = InputBox("请输入N的值")M = InputBox("请输入M的值")If M <= 0 Or N <= 0 Then MsgBox "请输入一个正整数！", vbInformation + vbOKOnly, "错误"Exit Sub ElseIf N > M ...

编写一个已知整数判断其是否是完全数的函数。并用该函数输出1000以内的...答：} if(sum == n) //判断n和sum是否相等.如果相等就说明这个数是完全数.返回1.return 1;return 0; //否则返回0;}int main(){ int i,t;/*输入一个整数,判断这个数是否是完全数*/ scanf("%d", &t);if( fun( t ) )printf( "Yes\n" );else printf( "No\n" );/*输出1000...

大家正在搜

java判断一个数是否为完全数判断某个数是否为完全数判断输入的字符是否为数字判断一个数是否为素数 c判断输入是否为数字 JAVA判断输入是否是数字判断是否为完全数伪代码如何判断输入的是不是数字判断输入框是不是数字