Question

VB当中怎样才能去掉这段代码的最后一个空行

a3 = Split(sumx, vbCrLf)
If Right(sumx, 1) = Chr(10) Then n = UBound(a3) - 1 Else n = UBound(a3)
For I = LBound(a3) To n
xx = xx & yzhengaa(Val(a3(I))) & vbCrLf
Next I
这段代码在最后的时候它有一个空行,怎样才能去掉最后的空行呢?(不要修改把vbcrlf这个去掉,不然就不能回车了)

Answer 1

学的C++，VB不会。帮你转了一份答案，不知道用没有用
Private Sub Command1_Click()
If Right(Text1.Text, 1) = Chr(10) Then
Text2.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
Else
Text2.Text = Text1.Text
End If
End Sub