填空题 设有如下程序。要使程序的输出结果n的值为5，请将程序补充完整。
   Dim x As Integer,n As Integer
   x=1
   Do
     x=x+3
     n=n+1
   Loop Until x= 1
   MsgBox"n="&n