程序代码如下：

Private Sub Command1_Click()

  Dim sum As Integer    'sum用来统计符合条件的自然数个数

  Dim n, max As Integer

  List1.Clear

  sum = 0

  max = _______①______    '指定查找范围的最大自然数，在text1框中输入

  n = 0

  Do While n <= max

n = n + 1  

    If _______   _②         ___  Then

List1.AddItem Str(n) '

    ________③_______

    End If

  Loop

  List1.AddItem ("共计" + Str(sum) + "个")   

End Sub

如13907715200、13907718366是符合条件的两个号码。

算式描述如图所示

请将程序补充完整

Private Sub Form_Cliek()

Dim a As Integer, b As Integer

Dim I As Integer, s As Integer

s=0

For =10000 To 19999

a={#blank#}1{#/blank#}

b=(i Mod 100)\10

If a=b Then

s={#blank#}2{#/blank#}

End If

Next i

Print“最后两位数字相同的号码个数有：”；{#blank#}3{#/blank#}

End Sub

编写一个验证哥德巴赫猜想的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

程序部分代码如下：

Private Sub Command1_Click()

Dim n, m, s, i, j, count As Long

Dim flag As Boolean

Dim a(1 To 100) As Integer

n = Val(Text1.Text)

count = 0

  ①  

For i = 0 to s-1

 m = i

 For j = 1 To n

 a(j) = m Mod 2

 m = m \ 2

Next j

flag = True

For j = 1 To n - 1

 If  ②  Then flag = false: exit For

Next j

If flag = True Then  ③  

Next i

Label1.Caption =“可行方案共”+ Str(count) + “种”

End Sub

5*5=25

6*6=36

25*25=625

76*76=5776

……

那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。

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