以下消除字符串尾部回车换行的函数过程
Public Function TrimCrLf(ByVal InString As String)As String
Do While(______)
InString=Left(InString，Len(InString)-1)
Loop
TrimCrLf=InString
End Function
过程中的空白处应为

A．While Right(InString，1)=Chr(13)

B．While Right(InString，1)=Chr(10)

C．While Right(InString，1)=Chr(13) Or Right(InString，1)=Chr(10)

D．While Right(InString，1)=Chr(13) And Right(InString，1)=Chr(10)