写出下列程序的正确运行结果（每题5分，共10分）

  1．Private Sub Command1_Click( )       

       Print  Int(-4.5)+Round(-4.5)

       Print  Lcase(“AAbbEE”)

       Print  Len(“vb程序设计语言”)

       Print  Mid(“计算机科学与技术”,4,2)

       Print  Trim(“abc   ”)+“def”

     End Sub

 2． Private Sub Form_Click( )

       Dim x As Integer,n as integer

       x=1： n=0

       Do While x<28

         x=x*3

         n=n+1

       Loop

       Print “x=”；x，“n=”；n

     End Sub

1. －9 aabbee 8科学abcdef

2. x=81 n=4