192÷8 =____

①以 $\frac{1}{a}，\frac{1}{b}，\frac{1}{c}$ 为边长的三角形一定存在；

②以 $\sqrt{a}，\sqrt{b}，\sqrt{c}$ 为边长的三角形一定存在；

③以a²，b²，c²为边长的三角形一定存在；

④以 $\frac{a+b}{2}，\frac{b+c}{2}，\frac{c+a}{2}$ 为边长的三角形一定存在．

那么，正确结论的个数为（   ）

    I spent last summer volunteering at a hospital.It was a gift to 1so many amazing people and I'd like to share one of these moments.One day，I was called to a room where a(n)2woman was staying. Usually I helped with3who were ready to leave.Instead，she 4to go to the gift shop.I got a 5，helped her into it，and headed down to the entrance.

    When we got there，it wasn't open yet.After a 30-minute 6，we entered the gift shop.As I pushed her around，I could see the 7in her face as she looked at everything，happy to be out of her room.She 8some window decorations，and then saw chocolates.

    She asked me to push her in that 9，and then I helped her10all the different chocolate arrangements.11 she decided on three different boxes.

    She told me to write the numbers 1，2，and 3 on the boxes.She 12that the nurses were taking such good care of her，so she13chocolates for each of the three shifts of nurses.As we gave the current shift of nurses their box of chocolate，they14offered some to me before taking some themselves.

    There were15all around.Witnessing the old lady's16and getting the opportunity to spend time with someone who got so much joy from life was a17in itself. I have so many more stories，and each person made an impact on my life. I've 18that health has a way of bringing people together.19is a blessing，and being in a place where health is so 20and appreciated is unlike anything else.

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

  Dim a(1 To 15) As Integer

Dim n As Integer 'n为计数器

Dim key As Integer 'key存放筛选条件的数字部分

Dim f As String 'f存放筛选天健的符号部分：大于号或者小于号

Private Sub FormLoad()

Randomize

For i = 1 To 15

a(i) = Int(Rnd * 100)

List1.AddItem Str(a(i))

Next i

 End Sub

Private Sub Command1Click()

Dim c As Integer

Dim st As String

n = 0

c = Len(st)

f = Mid(st, 1, 1)

If f = "<" Then Se2 '调用过程

If f = ">" Then Se1 '调用过程

Label2.Caption = "有" + Str(n) + "个筛选结果"

End Sub

Private Sub Se1() '筛选过程1

For i = 1 To 15

   If a(i) > key Then

      List2.AddItem Str(a(i))

      n = n + 1

   End If

Next i

End Sub

Private Sub Se2() '筛选过程2

For i = 1 To 15

List2.AddItem Str(a(i))

       n = n + 1

    End If

Next i

End Sub