空间管理您的位置: 51Testing软件测试网 » zhangcaiyun_86的个人空间 » 日志

联系我：新浪微博@阳光下的云朵2012或者zhangcaiyun_86#163.com(将#换成@)

VBS学习记录

上一篇 / 下一篇 2012-02-29 13:41:03

查看( 556 ) / 评论( 2 ) / 评分( 5 / 0 )

1.(1)以REM或'开头行在程序中不起作用

(2)变量赋值:"=",字符串:" ",Inputbox函数:弹出一个输入对话框和Msgbox函数:用于输出的

示例程序： Rem 输入并回显你的名字

'使用Inputbox和Msgbox函数

Dim name,msg

msg="请输入你的名字"

name=InputBox(msg," ")

Msgbox(age) 输出结果见截图一

2.(1)常量分为自然常量和自定义常量, 常量的值不可修改

(2)变量：原则一：变量明的第一个字母必须是字母

原则二：数字和下划线都可以用于变量名，其他所有的非字母字符都是非法的

原则三：VBScript变量名的长度不能超过255个字符

(3)四则运算、MOD取余运算

示例程序 1：'编一个程序取得20/3的余数

dim a

a=20 mod 3

msgbox(s)输出结果见截图二

示例程序2: Rem 计算周长

dim a,b,c

a=inputbox("a是:","输入半径")

a=inputbox("b是:","输入半径")

c=a*2+b*2

MsgBox(c)输出结果见截图三

3.(1)inputbox返回的是一个字符串, 而不是一个数, 必须用a=int(a)这种形式转化成数

(2)bool变量的值只有两种

(3)and两边的表达式都是true, 则返回true. or两边的表达式有一个是true, 就返回true

(4)if 语句的格式

(5)select...case的格式

示例程序1 :dim a,b,c,d

a=inputBox("a是:","输入半径")

b=inputBox("b是:","输入半径")

d=inputBox("答案:","输入答案")

c=a*2+b*2

if d=c then

msgbox("正确,你好聪明")

else

msgbox("你好猪头,不对哇")

end if 输出结果见截图四（注：无论你的结果多么正确，都是输出else的选项)

示例程序2：dim a,b,c,d

a=inputBox("a是:","输入半径")

b=inputBox("b是:","输入半径")

d=inputBox("答案:","输入答案")

d=int(d)

c=a*2+b*2

if d=c then

msgbox("正确,你好聪明")

else

msgbox("你好猪头,不对哇")

end if 输出结果见截图五

示例程序3：

''''''and 和or的区别

dim a,b

a=InputBox("输入一个数>10")

b=InputBox("输入另一个数>10")

a=int(a)

b=int(b)

if a>10 or b>10 then

msgbox("正确")

else

msgbox("错误")

end if 输出结果见截图六

示例程序4：

       Dim a
       a=InputBox("输入一个1--3的值")
       a=Int(a)'处理inputbox返回字符串的值
       If a=1 Then
       MsgBox("壹")
       ElseIf a=2 Then
       MsgBox("贰")
       ElseIf a=3 then
       MsgBox("叁")
       Else MsgBox("输入错误")
       End if 输出结果见截图七

示例程序5：

       Dim a
       a=InputBox("输入一个1--3的值")
       a=Int(a)'处理inputbox返回字符串的值
       Select Case a
       Case 1
       MsgBox("壹")
       Case 2
       MsgBox("贰")
       Case 3
       MsgBox("叁")
       Case Else
       MsgBox("输入错误")
       End Select输出结果见截图八