vb6.0如何实现文本框中每输入4个字符插入1个空格？
答案:1 悬赏:30 手机版
解决时间 2021-11-19 19:08
- 提问者网友：你挡着我发光了
- 2021-11-19 01:02
vb6.0如何实现文本框中每输入4个字符插入1个空格？
最佳答案
- 五星知识达人网友：刀戟声无边
- 2021-11-19 02:17
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim i As Long
a = "1234i5tr6u75u9ir8ew9w"
b = Left$(a, 4)
For i = 1 To Len(a) / 4
b = b & " " & Mid$(a, i * 4 + 1, 4)
Next i
text1.text =b
End Sub
Dim a As String
Dim b As String
Dim i As Long
a = "1234i5tr6u75u9ir8ew9w"
b = Left$(a, 4)
For i = 1 To Len(a) / 4
b = b & " " & Mid$(a, i * 4 + 1, 4)
Next i
text1.text =b
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯