Private Sub command1_click()

 Dim n As Integer，x As Integer

n=Val(Text1.Text)

x=n Mod 10

n=x*1000+n\10

Text1.Text=Str(n)

End Sub

Private Sub Command1_Click（）

  Dim s1 As String，s2 As String   

  Dim ch As String，ch2 As String   

  Dim max As Double   

  Dim n As Integer，page As Integer  

  Dim i As Integer，j As Integer

  s1=Text1．Text：s2=””

  n=Len(s1)

  i=1：max=0

  Do While i<=n

    ch=Mid(s1，i，1)

    If ch>=“0”And ch<=“9”Then

        j=i

        ch2=Mid(s1，i，1)

        Do While ch2>=“0”And ch2<=“9”

           j=j+1

           ch2=Mid(s1，j, 1)

        Loop

        s2=    ’(1)

        If   Then    ’(2)

            max=Val(s2)

            page=i*10+j-1

            Text2．Text=Str(page)

            Text3．Text=Str(max Mod l00)

        End If

        i=j

      End If

      i=i+1

    Loop

  End Sub

例如：n = 5,a(1)= 4,a(2)= 7 ,a(3)= 8,a(4)= 6,a(5)= 4。

最佳方案为初始时所有人聚集在2号房间花费的最小能量为7*0+8*1+6*2+4*3+4*4=48。

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

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

Private Sub Form_Load()

'产生N的值

'本过程从数据库中依次读取编号为1到 N的房间的最多居住人数，并存储在数组a中

'代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, w As Integer

Dim t As Long, ans As Long

ans = 32767

For i=1 To n

     t = 0

     For j=0 To n-1

            ‘（1）

      If w=0 Then w=n

           ‘（2）

   Next j

   If t < ans Then ans = t

Next i

Text2.Text = Str(ans)

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

⑴{#blank#}1{#/blank#}；⑵{#blank#}2{#/blank#}。