UC知道帮我完成2个编程.要正确率.谢谢.
来源：百度知道 编辑：UC知道 时间：2024/09/23 17:06:25
1.求2——1000中的完数（因子和等于它本身的数为完数，例如28的因子是1，2，4，7，14，且1+2+4+7+14=28,则28是完数），输出。
2.用*编程输出菱形，边长是3个*。
用瑞士的FREE PASCAL，不要太深入复杂的语言，第2题请用FOR循环做。谢谢。
竖的菱形，
*
***
*****
***
*
就这样。
用FOR的循环语句。
还有注意：用free pascal。一定要。
2.用*编程输出菱形，边长是3个*。
用瑞士的FREE PASCAL，不要太深入复杂的语言，第2题请用FOR循环做。谢谢。
竖的菱形，
*
***
*****
***
*
就这样。
用FOR的循环语句。
还有注意：用free pascal。一定要。
第一题
Dim k As Integer
Dim i As Integer
Dim j As Integer
Private Sub Command1_Click()
'Text1.Text = "1 "
For i = 2 To 1000
k = 0
For j = 1 To i - 1
If i Mod j = 0 Then
k = k + j
If k > i Then
Exit For
End If
End If
Next j
If k = i Then
Text1.Text = Text1.Text & k & " "
Else
'Text1.Text = ""
End If
Next i
End Sub
第二题再明确点。