程序代码如下：

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

小张编写 VB 程序，实现如下功能：在前 100 个偶自然数中，计算恰好有四位为 1 的二进制数的个数， 如图所示，单击“计算”按钮 Command1，在文本框 Text1 中显示符合条件的个数，在列表框 List1 中显示符合条件的二进制数。VB 程序代码如下：

提示：本题“除 2 取余倒排法”的方法将十进制转化为二进制，算法如下： 例如十进制数“97”转化为二进制的过程如右图所示：

因此“97”二进制值为：1100001

Private Sub Command1_Click()

    Dim c As Integer, n As Integer c = 0 : n = 9

    Do While n <= 1000

        If n Mod 3 = 2 And n Mod 5 = 3 Then

            List1.AddItem Str(n)

            c ={#blank#}1{#/blank#}

        End If

        n ={#blank#}2{#/blank#}

    Loop

    Label1.Caption = "1000 以内满足条件的数有" & Str（c）& "个"

End Sub

所谓的非常幸运数是指符合下列条件的整数：

⑴该数的偶数位数字之和等于奇数位数字之和。

⑵该数的前一半的各位数字之和正好等于后一半的各位数字之和。

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

Private Sub Command1_Click()

    Dim a(1 To 6) As Integer, sum(1 To 4) As Integer

    Dim x As Long, i As Long, count As Long, k As Long

    For i=100000 To 999999

        x=i

        k=1

        Do While x > 0

            a(k)={#blank#}1{#/blank#}

            x=x\10

            k=k+1

        Loop

        sum(1)=a(1) +a(2)+a(3)

        sum(2)=a(4)+a(5)+a(6)

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

        sum(4)=a(2)+a(4)+a(6)

        If sum(1)=sum(2) And sum(3)=sum(4)Then

            List1.AddItem Str(i)

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

        End If

    Next i

    Label2.Caption="共有个数:" + str(count)

End Sub