Ins=Text1．Text

    n=Len(Ins)

    Outs=Mid(Ins，1，1)    ‘取字符串Ins第1个字符

    i=2

    Do While Mid(Ins，i，1)>=Mid(Outs，i-1，1)

        Outs=Outs+Mid(Ins，i，1)

        i=i+1

    Loop

    Text2．Text=Outs

在文本框Text1中输入“Happy2017”，执行该程序段后，文本框Text2中显示的是（  ）

m =1: k = 1

For i = 2 To 9

  If a(i) > a(i-1) Then

   k = k + 1

   If k > m Then m = k

  Else

   k = 1

  End If

Next i

Text1.Text = Str(m)

该程序段运行后，文本框Text1中显示的内容是（  ）

为实现上述功能，请将以下程序补充完整。

Private Sub Command1_Click()

Dim j As Integer, k As Integer

List1.Clear

For k = 1 To 100

    j = Int(Sqr(k))

    If {#blank#}1{#/blank#}Then List1.AddItem {#blank#}2{#/blank#}

Next k

End Sub