1. (2019·上海模拟) 查看下面的程序代码，在文本框Text1 中输入的值为100 时，该程序的作用为（　　）

Private Sub Command1_Click()

    Dim sum, k, j, n As Integer

    n = Val(Text1.Text)

    sum = 0: k = 1

    Do While k <= n

        j = 1

        Do While j <= k

            sum = sum + 1: j = j + 1

        Loop

        k = k * 3

    Loop

    Text2.Text = CStr(sum)

End Sub