编一个子过程DeleStr(s1，s2)，将字符串s1中出现s2子字符串删去，结果还是存放在s1中。 例如：s1=" 12345678AAABBDFG12345 " s2="234" 结果：s1=" 15678AAABBDFG15 " 界面自行设置，以“昵称-11-2”为项目名保存。 项目完成后，将整个项目文件夹压缩成：昵称-11-2.rar，以附件形式提交。 【提示】为了删除子串，首先利用InStr函数查找子串；找到则通过Mid函数实现子字符串的删除；同时要利用循环考虑到删除多个子字符串的情况。