以下消除字符串尾部回车换行的函数过程
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)