📄 2-4.htm
字号:
<html>
<head>
<title>html文件加载时调用VBScript</title>
</head>
<SCRIPT LANGUAGE="VBScript">
<!--
Dim inString,c
inString = "The 7 Dwarves"
Dim i,strLen,formula
i=1
strLen=Len(inString)
formula=-1
Do While (i<=strLen) And (formula=-1)
c=Mid(inString,i,1)
If IsNumeric(c) Then formula=i
i=i+1
Loop
msgbox formula
-->
</SCRIPT>
<body>
学习VBScipt
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -