Private Sub Text1_Change()
Dim flag As Boolean
Dim i
i = Len(Text1.Text) Mod 4
If i = 3 And flag = False Then
Text1.Text = Text1.Text + "."
flag = True
End If
End Sub
Dim flag As Boolean
Dim i
i = Len(Text1.Text) Mod 4
If i = 3 And flag = False Then
Text1.Text = Text1.Text + "."
flag = True
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货