vb6.0如何实现文本框中每输入4个字符插入1个空格？
比如text1.text=1234i5tr6u75u9ir8ew9w要变成text1.text=1234i5tr6u75u9ir8ew9w请提供详细代码。...
比如 text1.text=1234i5tr6u75u9ir8ew9w
要变成text1.text=1234 i5tr 6u75 u9ir 8ew9 w
请提供详细代码。 展开
要变成text1.text=1234 i5tr 6u75 u9ir 8ew9 w
请提供详细代码。 展开
1个回答
展开全部
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
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
