帮忙解决下几个VB编程问题

来源：百度知道 编辑：UC知道 时间：2024/06/04 11:35:10
一个求完数的程序……
完数，一个数如果恰好等于出它本身外的因子只和，这个数就叫完数，如6=1+2+3，6的因子为1、2、3、6，除6外，其他三个因子和=6，所以6就是完数……
以下程序
Private Sub Form_Click()
Dim i As Double, j As Double, yz As Double
Dim c As Integer
c=0
For i = 6 To 1000
yz=0
For j = 1 To i(这里的i能否改为i\2?)
If________________Then yz = yz+j（横线处填什么）
Next j
If i= yz Then
Print Str(yz) + "是完数"
c=c+1
End If
Next i
End Sub
----------------------------------分界线------------------------
一个正整数的平方与它的逆序数的平方互为逆序数，次数被称为奇妙平方数，如13^2=169,31^2=961，13和31为逆序数，169和961为逆序数，所以13为奇妙平均数，找出1——30所有奇妙平均数
Private Sub Command1_Click()
Dim i As Integer
Dim shi As Integer,ge As Integer
Dim pf As Integer,nxs As Integer
Dim pf_bai As Integer,pf_shi As Integer,pf_ge As Integer
Dim nxs_bai As Integer,nxs_shi As Integer,nxs_ge As Integer
For i = t To 30
shi =i\10
ge = i mod 10
If s

第一题：
Private Sub Form_Click()
Dim i As Double, j As Double, yz As Double
Dim c As Integer
c = 0
For i = 6 To 1000
yz = 0
For j = 1 To i '(这里的i能否改为i\2?)
If (i Mod j = 0) And (j <> i) Then yz = yz + j '(横线处填什么)
Next j
If i = yz Then
Debug.Print Str(yz) + "是完数"
c = c + 1
End If
Next i
End Sub
第二题：
Private Sub Command1_Click()
Dim i As Integer
Dim shi As Integer, ge As Integer
Dim pf As Integer, nxs As Integer
Dim pf_bai As Integer, pf_shi As Integer, pf_ge As Integer
Dim nxs_bai As Integer, nxs_shi As Integer, nxs_ge As Integer
For i = 1 To 90
shi = i \ 10
ge = i Mod 10
If shi <> 0 And ge <> 0 And shi <> ge Then '（改正这句错误）
pf = i ^ 2
nxs = (ge * 10 + shi) ^ 2 '完成横线语句