如图所示,在 txt 里每个数都是用逗号隔开的,但到了最后一个数也是这样, 请问有什么方法可以把最后的一个数替换成句号呢..? 刚学Vb几天,不懂,请指教下.. 代码: Private Sub cmdend_Click() Unload Me End End Sub

Private Sub cmdjs_Click() Dim x As Integer Dim y As Integer Dim z As Integer

If (txtxj.Text <> "" Or txtgj.Text <> "" Or txtmj.Text <> "") Then txtxj.Text = "" txtgj.Text = "" txtmj.Text = "" For x = 0 To 100 For y = 0 To 100 For z = 0 To 100 If (x + y + z = 100 And (0.5 * x + 2 * y + 3 * z) = 100) Then txtxj.Text = txtxj.Text & x & "," txtgj.Text = txtgj.Text & y & "," txtmj.Text = txtmj.Text & z & "," End If Next z Next y Next x

Else

For x = 0 To 100 For y = 0 To 100 For z = 0 To 100 If (x + y + z = 100 And (0.5 * x + 2 * y + 3 * z) = 100) Then txtxj.Text = txtxj.Text & x & "," txtgj.Text = txtgj.Text & y & "," txtmj.Text = txtmj.Text & z & "," End If Next z Next y Next x

End If

End Sub

Private Sub Form_DblClick() txtxj.Text = "" txtgj.Text = "" txtmj.Text = "" cmdjs.SetFocus End Sub

[此贴子已经被作者于2005-8-4 13:49:25编辑过]

请把代码贴出来。
PS:这好像是 OS 系统。

贴了..

Text1 = Replace(Text1, Right(Text1, 1), ".")

你在 Next x 语句下面写:

If Right(txtxj.Text,1) = "," Then txtxj.Text = Left(txtxj.Text, Len(txtxj.Text) - 1)
If Right(txtgj.Text,1) = "," Then txtgj.Text = Left(txtgj.Text, Len(txtgj.Text) - 1)
If Right(txtmj.Text,1) = "," Then txtmj.Text = Left(txtmj.Text, Len(txtmj.Text) - 1)