您的举报已经提交成功，我们将尽快处理，谢谢！
打印 1000 内的完数。
# include "stdio.h"
int k1,k2,k3,k4,k5,k6,k7,k8,k9...
程序源代码：
static int k[10];
int i,j,n,s;
for(j=2;j&1000;j++)
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'VB显示1000以内的完数问题_百度知道
VB显示1000以内的完数问题
Dim k%, gg) Then
If m &lt, gg$
Label1;& s Then IsWs = False
End Function
Private Sub Form1_Load(ByVal sender As S& & vbCrLf
For k = 2 To 1000
If IsWs(k, ByRef g$) As Boolean
Dim i.EventArgs) Handles MyBase.Text = &quot, Len(gg) - 1) & vbCrLf
End SubEnd Class运行发现显示不出东西;1000以内的完数为Public Class Form1
Function IsWs(ByVal m%：&quot, 1; & Mid(+& = &
For i = 1 To m &#92, s As Integer
If m Mod i = 0 Then
g &= i & &quot.Object.Text &= k & &quot, ByVal e As System，调试后发现只能判断2到4是否为完数
我有更好的答案
IsWs&m&&s&&=&Then&&m&=&False改为IsWs&=&nbspIf&nbsp
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB的用IsWs函数求1000内完数_百度知道
VB的用IsWs函数求1000内完数
所以6是一个完数.,如果能能整除.如果一个整数的所有因子（包括1；循环结束..。主调程序在列表框显示1000以内的完数，函数的返回值是逻辑型..。 算法思想是将m依次除以1~m&#47。例如6=1+2+3，进行累加..，就是m的一个因子，若m与累加因子之和相等:6=1+2+328=1+2+4+7+14496=1+2+4。编写一个函数IsWs(m)是否为完数:1000以内的完数为.;2，则称这个数为完数，但不包括本身）之和与该数相等，m就是完数框中样式是
mArr() As L = & index & 2; + &quot, 1 不是完数'
D 调试输出If lsWs = True Then
Dim tmpStr As String
tmpStr = m & &quotPrivate Function lsWs(ByVal m As Long) As BooleanDim i As Long, index As L
For i = 1 To index - 1
tmpStr = tmpStr & mArr(i)
If i &lt, nSum As Longn = CLng(m /& 2) + 1ReDim mArr(1 To n)index = 1For i = 1 To n
If m Mod i = 0 Then
mArr(index) = i
index = index + 1
End IfNextnSum = 0For i = 1 To index - 1
nSum = nSum + mArr(i)NextlsWs = (nSum = m) And index & 2 ' index - 1 Then
tmpStr = tmpStr & &quot, n As Long
其他类似问题
为您推荐：
函数的相关知识
其他1条回答
Private Sub Command1_Click()
Command1.Enabled = False
Dim b As Double
Dim i As Double, j As Double, k As Double
For i = 2 To 1000
For j = 2 To Sqr(i)
If i Mod j = 0 Then k = k + i / j + j
If k = i Then
Label2.Caption = Label2.Caption & & 相加等于 & & CStr(i) & vbCrLf
MsgBox &查找完毕&, vbOKOnly, &完全数&
Function IsWs(n As Double)
Dim j As Double
For j = 1 To n \ 2
If n / j = n \ j Then
Label2.Caption = Label2.Caption & CStr(j)...
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb程序设计题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
vb程序设计题
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩5页未读，继续阅读
你可能喜欢求1000内的完数vb编程_百度知道
求1000内的完数vb编程
我有更好的答案
=&quotPrivate Sub Command1_Click()For n = 1 To 1000 s = & &; n
'+&quot.P这一句要加上
For i = 1 To n /
Next i If n = Sum Then
s = Left(s;&quot, Len(s) - 1)
Picture1; 2
If n Mod i = 0 Then
Sum = Sum + i
s = s + Str(i) + &
vb简单编程语言
其他类似问题
为您推荐：
vb编程的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}