使用VBScript脚本语言编写一段程序，程序要求如下：

使用VBScript脚本语言编写一段程序，程序要求如下：
（1）首先弹出一个输入对话框获得一个字符串。
（2）对输入的字符串进行判断，判断字符串中是否有数字9，如果有则利用msgbox函数显示数字9出现的位置，如果没有则利用msgbox函数显示“没有出现数字9”。
例如输入的内容是“my age is 29,my name is abc”，则显示12。

dim input,str

input = inputbox("","test script")

if len(input) > 0 then
for i = 0 to len(input)-1
if mid(input,i+1,1) = "9" then
str = "数字9在字符串的第：" & instr(input,9) & "位"
else
str = "字符串中没有出现数字9"
end if
next
end if
msgbox str