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

Dim a(1 To 50) As Integer

Private Sub Command1_Click()

Dim i As Integer

k = 0: i = 3

Do While i <= 100

   If  ① prime(i)   Then      ‘⑴

      k = k + 1

      a(k) = i

   End If  

   i = i + 2

Loop

For i = 2 To k

   If   ②a(i) = a(i +1)+2   Then   ‘⑵

      List1.AddItem Str(a(i - 1)) + "和" + Str(a(i))

   End If

Next i

End Sub

Function prime(x As Integer) As Boolean

prime = False

For i = 2 To Int(Sqr(x))

   If  x Mod i = 0  Then

      prime = True

      Exit For

   End If

Next i

End Function

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

Sub Command1_Click()

Dim i As Integer, n As Integer

m=106

n = {#blank#}1{#/blank#}

Do While m <= 996

    If {#blank#}2{#/blank#} Then n = n + 1

    m={#blank#}3{#/blank#}

Loop

Text1.Text = Str(n)

End Sub

最佳方案:初始时所有人聚集在2号房间，花费的能量和:7*0+8*1+6*2+4*3+4*4=48。为了解决这个问题，小明编写了一个VB程序。在窗体加载时，从数据库中读取N的值和编号为1到N的房间的居住人数，人数存储在数组a中。点击窗体上的按钮Command1，程序枚举每一种方案(不同的初始房间)，计算该方案的能量和，在文本框Text1中输出最优方案的初始房间编号，在文本框Text2中输出最小能量和。

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

Dim a(1 To 100) As Integer ’依次存储编号为1到100的房间的居住人数

Private Sub Form_Load()

‘本过程从数据库中读取N的值和每个房间居住人数，存储在数组a中

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, w As Integer, k as Integer

Dim t As Long, ans As Long

k=0 : ans = 32767     ‘ans初始化为最大的Integer数据

For i = 1 To n

 t = 0

 For j = 0 To n - 1

    w={#blank#}1{#/blank#}

    If w = 0 Then w = n

    t={#blank#}2{#/blank#}

 Next j

 If t < ans Then

    k= i

    ans = t

 End If

Next i

Text1.Text = Str (k)    ‘起始房间编号

Text2.Text ={#blank#}3{#/blank#}

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

有一种火柴棒游戏，将火柴棒摆成形如“A+B=C”的火柴棒等式。用n根火柴棒摆放数学等式的规则约定如下：

⑴A、B都是不大于1000的正整数，若数值非零，则最高位不能是0；

⑵摆放“+”与“=”各使用两根火柴棒；

⑶A+B=C 与B+A=C视为相同的等式；

⑷n根火柴棒必须全部用上。

小明依据上述规则使用VB编写程序，研究“使用n根火柴棒，可以摆放出哪些不同的等式”，代码如下所示。请回答下列问题。

Dim sz(0 To 9) As Integer     ‘数组元素sz(i)用于存储数字i所使用的火柴棒的数量

Private Sub Form_Load()

    sz(0) = 6 : sz(1) = 2 : sz(2) = 5 : sz(3) = 5 : sz(4) = 4

    sz(5) = 5 : sz(6) = 6 : sz(7) = 3 : sz(8) = 7 : sz(9) = 6

End Sub

‘自定义函数hcs用于求解摆放数字x需要使用的火柴棒数量

Function hcs(ByVal x As Integer) As Integer

    Dim s As Integer, k as integer

    s = 0

    Do While     ①    

        k = x Mod 10

        s=s+sz(k)

        x = x \ 10

    Loop

    hcs = s + sz(x)

End Function

Private Sub Command1_Click()

    Dim n As Integer

    Dim a As Integer, b As Integer, c As Integer

    n = Val(Text1.Text)

    ans = 0

    List1.Clear

    For a = 0 To 999

        For b =    ②     To 999

            c = a + b

            If     ③    Then

                List1.AddItem (Str(a) + "+" + Str(b) + "=" + Str(c))

                ans = ans + 1

            End If

        Next b

    Next a

    List1.AddItem ("共有" + Str(ans) + "种等式")

End Sub