Question

VB中怎样在字符串中间添加星号

例如ABCD变成*A*B*C*D*

Answer 1

Private Sub Command1_Click()
s = "ABCD" '自己输入字符
For i = 1 To Len(s) + 1
t = t & "*" & Mid(s, i, 1)
Next
Print t '输出你想要的字符串
End Sub

Answer 2

strt="abcd"
for i = 1 to len(strt)
temp=temp & mid(strt,i,1) & "*"
next
debug.print temp