33问答网
所有问题
vb中,找出100以内满足以下条件的正整数:该整数所有因子数之和为一个完全平方数
vb中,找出100以内满足以下条件的正整数:该整数所有因子数之和为一个完全平方数
举报该问题
推荐答案 2016-09-12
Module Module1
Sub Main()
Dim i, j, k As Integer
For j = 2 To 1000
k = 0
For i = 1 To j / 2
If j Mod i = 0 Then
k = k + i
End If
Next
If j = k Then
Console.WriteLine("完全数为" & k)
End If
Next
Console.ReadLine()
End Sub
End Module
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://33.wendadaohang.com/zd/d04554B4hh5B5RhBhh.html
相似回答
找出100以内满足以下条件的正整数:该
正
整数所有因子数之和为一个
...
答:
14:14=2×7,, 2+7=9=3²55:55=5×11,,5+11=16=4²祝好,再见。
vb
求
100
到999之间
所有的完全平方数
答:
Private Sub Form_Click()Dim i As Integer, n As IntegerFor i =
100
To 999 If Int(Sqr(i)) ^ 2 = i Then Print Str(i); n = n + 1 If n Mod 10 = 0 Then Print End IfNextEnd Sub
编写函数过程和子过程判断
一个正整数
是否
为完全平方数,vb
编程
答:
1、首先启动vb6,新建一个标准exe文件,调整窗体的大小。2、选择窗体,设置属性中font属性值,字体为田英章毛笔楷书,字号为一号。3、双击窗体进行代码编写区域,设置过程为click,对象为窗体form1。4、接着输入代码内容。5、点击启动按钮进行编译调试,根据错误提示修改,直至无误为止。6、点击窗体会弹出提...
大家正在搜
找出一组正整数中的最小的奇数将
找出一批正整数中最大的偶数fun
找出一批正整数中最大的偶数c语言
程序设计找出一批正整数中的最大的
编写函数找出n个正整数的最大值
找出一批整数中最大偶数
一批正整数中最大的偶数
从键盘输入的正整数中找出最大值
求给定正整数n以内素数的积
相关问题
求vb程序 找出100以内的所有因子之和为完全平方数的...
编写函数过程和子过程判断一个正整数是否为完全平方数,vb编程
Vb随机产生一个两位的正整数,该数如果是一完全平方数,则输出...
编程输入一个正整数n,寻找小于等于n的数中因子个数最大的数。...
vb题 一个整数加上100是完全平方数,再加168又是完全平...
用VB代码编写:输出所有的三位数,它满足该数中有某两位为相同...
c语言程序:编写函数,判断一个正整数是否为完全平方数,并输出...
vb 求100到999之间所有的完全平方数