怎么实现文本框输入数字的时候，给数字自动添加千位分隔符

怎么实现文本框输入数字的时候，给数字自动添加千位分隔符

Dim formatflg As Boolean Private Sub Text1_Change() If formatflg Then formatflg = False Exit Sub End If If Len(Text1.Text) < 4 Then Exit Sub End If Dim temp As String Dim temp2 As String Dim leftlen As Integer temp2 = Replace(Text1.Text, ",", "") leftlen = Len(temp2) Mod 3 For i = 3 To Len(temp2) Step 3 If i = 3 Then temp = Mid(temp2, Len(temp2) - i + 1, 3) Else temp = Mid(temp2, Len(temp2) - i + 1, 3) & "," & temp End If Next i If leftlen <> 0 Then temp = left(temp2, leftlen) & "," & temp End If formatflg = True Text1.Text = temp Text1.SelStart = Len(Text1.Text) End Sub

哎，要百度的这么多分有什么用？（能当钱使？呵呵） 解决问题才是来这的初衷！！！ outputcomma得出的数字怎么传到正在输入数字的文本框中？ 这个是用javascript实现的，最好用asp语言来做一个 那样用request就可以接收到了