小明设计了一个VB程序，用于求解10000以内的所有完全数。点击按钮Command1，标签Label1显示完全数的个数，并在列表框中显示10000以内所有的完全数。

程序运行效果如图所示

实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click( )

Dim i As Integer, j  As Integer, c  As  Integer, s As Integer

c = 0 ‘用于存储完全数的个数

For i =1 To 10000

s=0 ‘用于存储各因数之和

For j = 1 To i - 1

If fac(i, j)  Then

Next j

If  i = s Then

Listl.AddIltem Str( i)

End  If

Next i

Label.Caption =“10000 以内共有” +Str(c) + “个完全数!”

End Sub

Function fac(x As Integer, y As Integer) As Boolean

'如果y是x的因数返回True，否则返冋False

If  Then

fac = True

Else

fac = False

End  If

End  Function

实现上述功能的VB程序如下，但加框处代码有错误，请改正。

  Dim a(1 To 15) As Integer

Dim n As Integer 'n为计数器

Dim key As Integer 'key存放筛选条件的数字部分

Dim f As String 'f存放筛选天健的符号部分：大于号或者小于号

Private Sub FormLoad()

Randomize

For i = 1 To 15

a(i) = Int(Rnd * 100)

List1.AddItem Str(a(i))

Next i

 End Sub

Private Sub Command1Click()

Dim c As Integer

Dim st As String

n = 0

c = Len(st)

f = Mid(st, 1, 1)

If f = "<" Then Se2 '调用过程

If f = ">" Then Se1 '调用过程

Label2.Caption = "有" + Str(n) + "个筛选结果"

End Sub

Private Sub Se1() '筛选过程1

For i = 1 To 15

   If a(i) > key Then

      List2.AddItem Str(a(i))

      n = n + 1

   End If

Next i

End Sub

Private Sub Se2() '筛选过程2

For i = 1 To 15

List2.AddItem Str(a(i))

       n = n + 1

    End If

Next i

End Sub

程序代码如下：

Private Sub Command1_Click()

  Dim n As Integer, i As Integer

  List1.Clear

  n = Val(Text1.Text)

  If n Mod 2 = 0 Then

    For i = 2 To Int(n / 2)

      If isodd(i) = (isodd(n - i)) Then

        List1.AddItem Str(n) + " =" + Str(i) + " +" + Str(n - i)

      End If

    Next i

  Else

    Text1.Text = Str(n) + "不是偶数！"

  End If

End Sub

Private Function isodd(n As Integer) as boolean

   Dim f As integer

   f = 0

   For i = 2 To Sqr(n)

     If n Mod i = 0 Then f = 1: Exit For

   Next i

   isodd =  f

End Function