Rtrim 函数删除空白空间,在对字符串的右侧的空格。
RTrim(String)
添加一个按钮,并添加以下功能
Private Sub Constant_demo_Click()
Dim var as Variant
var = "Microsoft VBScript "
msgbox("After Rtrim : " & RTrim(var))
End Sub
当执行函数输出如下所示:
After Rtrim : Microsoft VBScript