本文详细介绍了VBScript的基本语法和在HTML中的使用，包括如何在HTML文档中插入VBScript、循环结构（Do While, For）、条件判断（If...Then...Else, Select Case）以及子程序和函数的运用。通过实例展示了密码验证和数组操作等常见应用场景。"
106993083,9700669,PyTorch实现深度学习诗词生成,"['深度学习', '自然语言处理', 'PyTorch', '文本生成', '序列模型']
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'VBScript 是一种脚本语言
'脚本语言是一种轻量级的编程语言
'VBScript 是微软的编程语言 Visual Basic 的轻量级的版本
'它如何工作？1.当VBScript 被插入一个 HTML 文档后，因特网浏览器会读取这个文档，并对 VBScript 进行解释。VBScript 可能会立即执行，也可能在之后的事件发生时执行。
'2.也可以直接建一个vbs类型的文本文件，windows上可以点击运行
'-------------------------------------------------------------------------------------------------
'--------------如何在 HTML 文档中放置 VBScript--------------
'<html>
'<head>
'</head>
'<body>
'<script type="text/vbscript">
'document.write("Hello from VBScript!")
'</script>
'</body>
'</html>
'上面的代码会生成以下输出：
'Hello from VBScript!
'如需在 HTML 文档中插入脚本，请使用 <script> 标签。使用 type 属性来定义脚本语言。
'<script type="text/vbscript">
'然后输入 VBScript：在页面上写文本的命令是 document.write：
'document.write("Hello from VBScript!")
'脚本在此结束：
'</script>
'如何应对老式的浏览器
'不支持脚本的老式浏览器会把脚本作为网页的内容显示出来。为了避免出现这样的情况，我们可以使用 HTML 的注释标签：
'<script type="text/vbscript">
'<!--
' 在此输入语句
'-->
'</script>-----------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'do loop while util
dim a,ctr
ctr=0
const pass="123456"
do while ctr<3
a=inputbox("请输入密码")
if a=pass then
msgbox "认证成功"
msgbox "(你可以在这里加一段成功后得到的信息)"
exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误认证计数
msgbox "认证出错, 请检查密码"
end if
loop
'这样实现的功能和上一个例子完全一样, 我们再来看看把while放在loop后面:
'功能是一样的, 为什么要放在loop后面呢? 你把ctr的值改成3就知道了, while在do后面的程序会直接退出, 而在loop后面还会允许一次认证, 到了loop才结束.和while相反的是until, 用法和while一样, 不过他只有当后面的表达式的值为false(表达式不成立)的时候才执行循环体
dim a,ctr
ctr=0
const pass="123456"
do
a=inputbox("请输入密码")
if a=pass then
msgbox "认证成功"
msgbox "(你可以在这里加一段成功后得到的信息)"
exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误认证计数
msgbox "认证出错, 请检查密码"
end if
loop while ctr<3
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'for
dim i,j
for i=1 to 9
for j=1 to 9
str=str & i * j & " " '&是和并字符串的符号
next '每个next对应一个for
str=str & vbCrlf 'vbCrlf相当于键盘上的回车键,因为你不能在键盘上输入,所以系统定义了一个默认的常量
next
msgbox (str)
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'数组
'一位数组
dim name(7),str '一共八个学生, str变量是用来把他们储存成一个字符串以便输出
for i=0 to 7
name(i)=inputbox("请输入第" & i+1 & "个学生的名字")
str=str & " " & name(i)
next
msgbox Str
'二维数组
dim a(2,2) '从零开始, 一共有3 X 3 = 9 个数据
dim i,j '需要两个计数器
for i=0 to 2
for j=0 to 2 '使用嵌套循环
a(i,j)="X"
next
Next
'dim info(4,2) '一共五个人, 要储存的数据类型有3项
dim i,j
for i=0 to 4
for j=0 to 2
dim opt '定义一个变量用于存储数据项提示
select case j '判断应该输入的是什么数据
case 0
opt="姓名"
case 1
opt="国籍"
case 2
opt="民族"
end select
info(i,j)=inputbox("请输入第" & i+1 & "个人的" & opt)
next
Next
'三维数组
dim a(1,2,3) '一共24各数组元素.
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'If....Then.....Elseif
'假如你希望选择多套代码之一来执行，可以使用if...then...elseif语句：
if payment="Cash" then
msgbox "You are going to pay cash!"
elseif payment="Visa" then
msgbox "You are going to pay with visa."
elseif payment="AmEx" then
msgbox "You are going to pay with American Express."
else
msgbox "Unknown method of payment."
end If
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'Select Case
'假如你希望选择多套代码之一来执行，可以使用 SELECT 语句：
select case payment
case "Cash"
msgbox "You are going to pay cash"
case "Visa"
msgbox "You are going to pay with visa"
case "AmEx"
msgbox "You are going to pay with American Express"
case Else
msgbox "Unknown method of payment"
end Select
'-------------------------------------------------------------------------------------------------
'-----------------------------------程序方法------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'子程序，这个子程序不会返回值。
'函数程序，假如你希望返回某个值时，可以使用函数程序。
'VBScript 程序,我们可使用两种程序：子程序和函数程序。
'子程序：
'是一系列的语句，被封装在 Sub 和 End Sub 语句内。
'可执行某些操作，但不会返回值。
'可带有通过程序调用来向子程序传递参数。
'如果没有，必须带有空的圆括号
Sub mysub()
some statements
End Sub
Sub mysub(argument1,argument2)
some statements
End Sub
'函数程序：
'是一系列的语句，被封装在 Function 和 End Function 语句内。
'可执行某些操作并返回值。
'可带有通过程序调用来向其传递参数。
'如果没有，必须带有空的圆括号
'通过向函数程序名赋值的方式，可使其返回值。
Function myfunction()
some statements
myfunction=some value
End Function
Function myfunction(argument1,argument2)
some statements
myfunction=some value
End Function
'调用子程序或函数程序
'可以这样调用某个函数：
name = findname()
'此函数名为 "findname"，函数会返回一个值，这个值会存储于变量 "name" 中。
'或者可以这样做：
msgbox "Your name is " & findname()
'我们通过调用了名为 "findname" 的函数，这个函数返回的值会显示在消息框中。
'可以这样调用子程序：
Call MyProc(argument)
'或者，也可以省略 Call 语句：
MyProc argument
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'VBScript 是一种脚本语言
'脚本语言是一种轻量级的编程语言
'VBScript 是微软的编程语言 Visual Basic 的轻量级的版本
'它如何工作？1.当VBScript 被插入一个 HTML 文档后，因特网浏览器会读取这个文档，并对 VBScript 进行解释。VBScript 可能会立即执行，也可能在之后的事件发生时执行。
'2.也可以直接建一个vbs类型的文本文件，windows上可以点击运行
'-------------------------------------------------------------------------------------------------
'--------------如何在 HTML 文档中放置 VBScript--------------
'<html>
'<head>
'</head>
'<body>
'<script type="text/vbscript">
'document.write("Hello from VBScript!")
'</script>
'</body>
'</html>
'上面的代码会生成以下输出：
'Hello from VBScript!
'如需在 HTML 文档中插入脚本，请使用 <script> 标签。使用 type 属性来定义脚本语言。
'<script type="text/vbscript">
'然后输入 VBScript：在页面上写文本的命令是 document.write：
'document.write("Hello from VBScript!")
'脚本在此结束：
'</script>
'如何应对老式的浏览器
'不支持脚本的老式浏览器会把脚本作为网页的内容显示出来。为了避免出现这样的情况，我们可以使用 HTML 的注释标签：
'<script type="text/vbscript">
'<!--
' 在此输入语句
'-->
'</script>-----------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'do loop while util
dim a,ctr
ctr=0
const pass="123456"
do while ctr<3
a=inputbox("请输入密码")
if a=pass then
msgbox "认证成功"
msgbox "(你可以在这里加一段成功后得到的信息)"
exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误认证计数
msgbox "认证出错, 请检查密码"
end if
loop
'这样实现的功能和上一个例子完全一样, 我们再来看看把while放在loop后面:
'功能是一样的, 为什么要放在loop后面呢? 你把ctr的值改成3就知道了, while在do后面的程序会直接退出, 而在loop后面还会允许一次认证, 到了loop才结束.和while相反的是until, 用法和while一样, 不过他只有当后面的表达式的值为false(表达式不成立)的时候才执行循环体
dim a,ctr
ctr=0
const pass="123456"
do
a=inputbox("请输入密码")
if a=pass then
msgbox "认证成功"
msgbox "(你可以在这里加一段成功后得到的信息)"
exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误认证计数
msgbox "认证出错, 请检查密码"
end if
loop while ctr<3
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'for
dim i,j
for i=1 to 9
for j=1 to 9
str=str & i * j & " " '&是和并字符串的符号
next '每个next对应一个for
str=str & vbCrlf 'vbCrlf相当于键盘上的回车键,因为你不能在键盘上输入,所以系统定义了一个默认的常量
next
msgbox (str)
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'数组
'一位数组
dim name(7),str '一共八个学生, str变量是用来把他们储存成一个字符串以便输出
for i=0 to 7
name(i)=inputbox("请输入第" & i+1 & "个学生的名字")
str=str & " " & name(i)
next
msgbox Str
'二维数组
dim a(2,2) '从零开始, 一共有3 X 3 = 9 个数据
dim i,j '需要两个计数器
for i=0 to 2
for j=0 to 2 '使用嵌套循环
a(i,j)="X"
next
Next
'dim info(4,2) '一共五个人, 要储存的数据类型有3项
dim i,j
for i=0 to 4
for j=0 to 2
dim opt '定义一个变量用于存储数据项提示
select case j '判断应该输入的是什么数据
case 0
opt="姓名"
case 1
opt="国籍"
case 2
opt="民族"
end select
info(i,j)=inputbox("请输入第" & i+1 & "个人的" & opt)
next
Next
'三维数组
dim a(1,2,3) '一共24各数组元素.
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'If....Then.....Elseif
'假如你希望选择多套代码之一来执行，可以使用if...then...elseif语句：
if payment="Cash" then
msgbox "You are going to pay cash!"
elseif payment="Visa" then
msgbox "You are going to pay with visa."
elseif payment="AmEx" then
msgbox "You are going to pay with American Express."
else
msgbox "Unknown method of payment."
end If
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'Select Case
'假如你希望选择多套代码之一来执行，可以使用 SELECT 语句：
select case payment
case "Cash"
msgbox "You are going to pay cash"
case "Visa"
msgbox "You are going to pay with visa"
case "AmEx"
msgbox "You are going to pay with American Express"
case Else
msgbox "Unknown method of payment"
end Select
'-------------------------------------------------------------------------------------------------
'-----------------------------------程序方法------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'子程序，这个子程序不会返回值。
'函数程序，假如你希望返回某个值时，可以使用函数程序。
'VBScript 程序,我们可使用两种程序：子程序和函数程序。
'子程序：
'是一系列的语句，被封装在 Sub 和 End Sub 语句内。
'可执行某些操作，但不会返回值。
'可带有通过程序调用来向子程序传递参数。
'如果没有，必须带有空的圆括号
Sub mysub()
some statements
End Sub
Sub mysub(argument1,argument2)
some statements
End Sub
'函数程序：
'是一系列的语句，被封装在 Function 和 End Function 语句内。
'可执行某些操作并返回值。
'可带有通过程序调用来向其传递参数。
'如果没有，必须带有空的圆括号
'通过向函数程序名赋值的方式，可使其返回值。
Function myfunction()
some statements
myfunction=some value
End Function
Function myfunction(argument1,argument2)
some statements
myfunction=some value
End Function
'调用子程序或函数程序
'可以这样调用某个函数：
name = findname()
'此函数名为 "findname"，函数会返回一个值，这个值会存储于变量 "name" 中。
'或者可以这样做：
msgbox "Your name is " & findname()
'我们通过调用了名为 "findname" 的函数，这个函数返回的值会显示在消息框中。
'可以这样调用子程序：
Call MyProc(argument)
'或者，也可以省略 Call 语句：
MyProc argument
扫一扫
1683
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
