Privvate Sub Command1Click( )

Dim man As Integer,woman As Integer,child As Intger,s As Integer

{#blank#}1{#/blank#}

   For woman = 1 To 15

     Child = 30 – man – woman

     S = 20 * man + 30 * woman + 10 * child

     If {#blank#}2{#/blank#} Then

        List1.AddItem Str(man) + Str(woman) + Str(child)

     End If

Next woman

       Next man

End Sub

Private Sub Command1Click()

Dim i As Integer

Dim j As Integer

i = 1: j = 0

list1.clear

Do While i <= 1000

If （i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2） Then

List1.AddItem i

    ①    

End If

i = i + 1

Loop

Label1.Caption = Str(j)

End Sub

Dim a(1 To 1000) As Integer

Dim n As Integer

Private Sub Form_Load()

‘确定n的值和数组a的各个元素值，即每根棍子的长度值，代码略

End Sub

Function max(x As Integer, y As Integer) As Integer

If x > y Then

    max=x

  Else

    max=y

  End If

End Function

Private Sub Command1_Click()

  Dim i As Integer , j As Integer , k As Integer

  Dim ans As Integer , c As Integer , longest As Integer , rest As Integer

ans=0

  ‘让 i<j<k,保证棍子不会重复选中

  For i=1 To n

  For j=i+1 To n

   For k=j+1 To n

    c=a(i)+a(j)+a(k)

    longest=     ‘①

    rest=c-longest    ‘rest 保存最短的两条边的和

    If  Then    ‘②

     ans=max(ans , c)

End If

   Next k

Next j

  Next i

Print ans

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

编写一个验证哥德巴赫猜想的VB程序:程序运行时，在文本框Text1中输入一个大于或等于4的偶数，单击“验证”按钮Command1后，如果哥德巴赫猜想验证成功，则在文本框Text2中显示“Yes”，并在列表框List1中显示用两个素数表示该偶数的等式，否则显示“No”。程序运行效果如图所示。

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

Function judge(x As Integer)As Boolean

 ‘函数judge的功能是判断整数x是不是素数，若是素数则返回True，否则返回False

 Dim j As Integer

 judge=True

 j=2

 Do While j<=x-1 And judge=True

If x Mod j=0 Then

judge=False

Else

j=j+1

End If

 Loop

End Function

Private Sub Command1_Click()

 Dim n As Integer, p As Integer, q As Integer, flag As Boolean

 n=Val(Text1.Text)

 p=1

 flag=False

 Do While  And p<n    ‘{#blank#}1{#/blank#}

 p=p+1

      ‘{#blank#}2{#/blank#}

If judge(p)And judge(q)Then

Text2.Text=“Yes”

flag=True

List1.AddItem Str(n)+“=”+Str(p)+“+”+Str(q)

  End If

 Loop

 If flag=False Then

Text2.Text=“No”

End Sub

实现上述功能的VB代码如下，请完善代码：

Private Sub Command1_Click()

    Dim n As Integer, i As Integer, t As Integer, sum As Long, s As String

    n=Val(Text1.Text)

    For i=1 To n^3 step 2           '变量i表示连续奇数的首个整数

        sum=0:t=i:flag=False

        Do While sum<n^3 And flag= False

            sum= {#blank#}1{#/blank#}

            t=t+2

            If {#blank#}2{#/blank#} Then flag=True

        Loop

        If flag=True Then Exit For

    Next i

    s=Str(n)+ "^"+Str(3)+ "="

    Do While sum>0

        {#blank#}3{#/blank#}

        If sum= 0 Then

            s=s+Str(i)

        Else

            s=s+Srt(i)+ "+"

        End If

        i=i+2

    Loop

    Text2.Text=s

End Sub