VB编程系列（2）：标识数字

问题描述：
 

编写程序，实现以下功能：在字符串中的所有数字字符前加一个 $ 字符。例如，输入 A1B23CD45，输出 A$1B$2$3CD$4$5。

解题思路：
 

在字符串S的所有数字字符前加一个$字符，可以有两种实现方法。
 

方法一：用串S拷贝出另一个串T，对串T从头至尾扫描，对非数字字符原样写入串S，对于数字字符先写一个$符号再写该数字字符，最后，在S串尾加结束标志。使用此方法是牺牲空间，赢得时间。
 

方法二：对串S从头至尾扫描，当遇到数字字符时，从该字符至串尾的所有字符右移一位，在该数字字符的原位置上写入一个$。使用此方法是节省了空间，但浪费了时间。
 

程序代码实现了方法一。

程序代码：
 

s = InputBox("请输入一串字符：")

t = s

s = ""

For i = 1 To Len(t)

  c = Mid(t, i, 1)

  If c >= "0" And c <= "9" Then s = s + "$"

  s = s + c

Next

Print "原来的字符串："; t

Print "加标识后的串："; s