运行下列程序，输入如下两行： Hi， Iam here. 弹出的窗体中的显示结果是 Private Sub Commandll_Click() Dim abc As String,sum As String Sum=“” Do

admin2011-04-29 103

问题运行下列程序，输入如下两行：
  Hi，
  Iam here.
弹出的窗体中的显示结果是
Private Sub Commandll_Click()
Dim abc As String,sum As String
   Sum=“”
Do
Abc=InputBox（“输入abc“）
If Right（abc，1）=“.”Then Exit Do
Sum=sum+abc
Loop
MsgBox sum
End Sub