UC知道请教一个VB程序的问题，帮忙看下哪里错了
来源：百度知道 编辑：UC知道 时间：2024/06/14 14:57:46
我的程序目的是给一段字符串比如 22abcd77e9t
运行程序后 在每个字母后面加上一个空格
所以我编写了一个程序 但有点问题
Private Sub Command1_Click()
Dim hj(1 To 27) As String
hj(1) = "("
hj(2) = "a"
hj(3) = "b"
hj(4) = "c"
hj(5) = "d"
hj(6) = "e"
hj(7) = "f"
hj(8) = "g"
hj(9) = "h"
hj(10) = "i"
hj(11) = "j"
hj(12) = "k"
hj(13) = "l"
hj(14) = "m"
hj(15) = "n"
hj(16) = "o"
hj(17) = "p"
hj(18) = "q"
hj(19) = "r"
hj(20) = "s"
hj(21) = "t"
hj(22) = "u"
hj(23) = "v"
hj(24) = "w"
hj(25) = "x"
hj(26) = "y"
hj(27) = "z"
m = Len(Text1.Text)
For i = 1 To m
midx = Mid(x, i, i)
Dim j
End Sub
当我在text.text中输
运行程序后 在每个字母后面加上一个空格
所以我编写了一个程序 但有点问题
Private Sub Command1_Click()
Dim hj(1 To 27) As String
hj(1) = "("
hj(2) = "a"
hj(3) = "b"
hj(4) = "c"
hj(5) = "d"
hj(6) = "e"
hj(7) = "f"
hj(8) = "g"
hj(9) = "h"
hj(10) = "i"
hj(11) = "j"
hj(12) = "k"
hj(13) = "l"
hj(14) = "m"
hj(15) = "n"
hj(16) = "o"
hj(17) = "p"
hj(18) = "q"
hj(19) = "r"
hj(20) = "s"
hj(21) = "t"
hj(22) = "u"
hj(23) = "v"
hj(24) = "w"
hj(25) = "x"
hj(26) = "y"
hj(27) = "z"
m = Len(Text1.Text)
For i = 1 To m
midx = Mid(x, i, i)
Dim j
End Sub
当我在text.text中输
Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
t = Mid(Text1.Text, i, 1)
Select Case Asc(t)
Case Asc("a") To Asc("z"), Asc("A") To Asc("Z")
s = s & t & " "
Case Else
s = s & t
End Select
Next
Text1.Text = s
End Sub
Private Sub Form_click()
temp = "22abcd77e9t"
For i = 1 To Len(temp)
If Asc(Mid(temp, i, 1)) >= 97 And Asc(Mid(temp, i, 1)) <= 122 Then
str1 = str1 & Mid(temp, i, 1) & " "
Else
str1 = str1 & Mid(temp, i, 1)
End If
Next i
Print str1
End Sub