关于VB编程

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

<script language="vbscript">
Function search9()
Dim Str
Dim Sign
Str=InputBox("请输入要查找的字符串:")
Sign=InStr(Str, "9")
If Sign=0 Then
MsgBox("没有出现数字9")
Else
MsgBox Sign
End if
End Function
search9()
</script>

将这段脚本语言放入到html中，函数名为search9()，运行search9()即可。

你说的是VB脚本?

新建一个文本,改名为*.vbs

内容为

dim s s=inputbox ("请输入:","输入提示","my age is 29,my name is abc") if instr(1,s,"9")<>0 then msgbox instr(1,s,"9") else msgbox "没有出现数字9"