VB编程系列（3）：删除星号

问题描述：

现在有一串字符需要输入，规定输入的字符串中只能包含字母和*号。请编写程序，实现以下功能：除了字符串前后的*号之外，将串中其他的*号全部删除。
 

例如，假设输入的字符串为****A*BC*DEF*G********，删除串中的*号后，字符串变为****ABDEFG********

解题思路：
 

先求出前置星号与后置星号个数，然后用替换法删除星号，再将三者结合即可。

程序代码：
 

s = InputBox("请输入一串字符，只含星号和字母")

lens = Len(s)

For i = 1 To lens

  If Mid(s, i, 1) <> "*" Then Exit For

Next

i = i - 1

If i < lens Then

  For j = 0 To lens - 1

    If Mid(s, lens - j, 1) <> "*" Then Exit For

  Next

Else

  j = 0

End If

s = String(i, "*") + Replace(s, "*", "") + String(j, "*")

Print s