假定有如下事件过程，执行结果是（  ）

Private Sub Form_Click()

Dim x as integer

x=1

n=0

Do while x<100

x=x*3

n=n+1

Loop

Print x，n

End Sub

A、81 4

B、56 3

C、28 1

D、243 5