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

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

strt="abcd"
for i = 1 to len(strt)
temp=temp & mid(strt,i,1) & "*"
next
debug.print temp本回答被提问者采纳