vbs (三)

导航

1.开头REM语句和’都可以注释
2.inputbox
3.常量及变量
4.select
5.写一个简易的输入密码
6.数组
7.function 创建及调用 sub 关键字 及调用 call sub
———————————————————————————————————

1.开头REM语句和’都可以注释
例子:
REM 注释
’ 注释

2.inputbox(“框子中提示信息”,“框子标题信息”,“默认输入光标里”)

3.常量及变量
常量 const 名称
变量dim 名称
int a = dim a as integer
float a = dim a as double
char *a = dim a as string

4.select
select case 变量名
case 值
语句
case 值
语句
end select

5.写一个简易的输入密码

REM 判断密码
const password = "123456"
dim a,num
num = 0
do
'判断次数
if num<3 then
a = inputbox("请你输入密码：","验证信息")
else
msgbox "您输入的次数过多，禁止输入"
exit do    '结束循环
end if
'判断密码是否正确
if a = password then
msgbox "输入密码成功"
exit do 
else
num = num+1
end if
loop

也可以用
do while
loop
———————————————————————————————————
6.数组
一维数组：arr(3) :arr(0),arr(1),arr(2),arr(3)
二维数组：arr(1)(2) 有2*3的数据 // 如arr(0)(0),arr(0)(1)
——————————————-—————————————————————
7.function 创建及调用

REM 函数找到最大值
dim a,b,max
a = 5
b = 10

function compae(a,b)
if a>b then
max = a
else
max = b
end if
end function

compae a,b    '调用function 直接将其中的参数写在后面即可
msgbox "最大值为"&max

sub 关键字 及调用 call sub

REM 调用sub练习
sub abc
msgbox "调用abc"
end sub

call abc  '进行调用

结束的话有exit function 或者 exit sub
———————————————————————————————————