(10)运行下列程序,输入如下两行:Hi,I am here.弹出的窗体中的显示结果是 【10】 。Private Sub Comm
(10)运行下列程序,输入如下两行:
Hi,
I am here.
弹出的窗体中的显示结果是 【10】 。
Private Sub Command11_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