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