1. (2017高二上·台州月考) 单击窗体后，文本框Text1、Text2中显示的内容是(  )

Private Sub Form_Click(  )

Dim x as Integer, n as Integer

 x=1

 n=0

Do While x < 20

    n=n+1

    x=x * 3

Loop

Text1.Text=Str(x)

Text2.Text=Str(n)

End Sub