问题描述：
编写程序，实现以下功能：在字符串中的所有数字字符前加一个 $ 字符。例如，输入 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