Private Sub Command1_Click()

Dim ch As String, s As String

Dim i As Integer, j As Integer

ch = Text1.Text

   For i = 1 To {#blank#}1{#/blank#} 

        j = Asc(Mid(ch, i, 1))

        If j > 96 And j < 123 Then

           s = s + Chr(j - 32)

        Else

         s = s + Chr(j)    

        End If

   Next

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

End Sub

Dim a(l To 100) As String

Private Sub Commandl_Click()

  Dim c As Integer, t As String, ans As String

  s = Textl. Text

  k = Val(Text2. Text)

  ans =“”

  For i = 1 To Len(s) - k - 1

    c = c + 1

    a(c) = Mid(s, i, 1) + Mid(s, i + k + 1, 1)

    If check(c) Then

      ans = ans + a(c) + "，"

    Else

      c = c - 1

    End If

  Next i

  Text3. Text = ans

End Sub

Function check(k As Integer) As Boolean

  Dim i As Integer

  check = True

  For i = 1 To k - 1

    If a(i) = a(k) Then check = False: Exit For

  Next i

End Function

若该程序段执行后，在文本框Text1中输入的字符串长度不超过10，文本框Text2中输入的值在0到8范围内（输入输出都不包括双引号本身），下列说法不正确的是（  ）

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

a = 20

b = 0

c = 2

Do While a > b And a > c

   b = b + 1

   c = c + b

Loop

问：该程序段运行后，

例如：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#}。

salary=float (input( ))

if salary<=5000:

    tax=0

elif salary<=7000:

    tax=(salary-5000)*0.1

elif salary<=10000:

    tax=200+(salary-7000)*0.2

else:

    tax=800+(salary-10000)*0.4

print(salary-tax)