dim a
a=inputbox("请输入一个大于100的数")
a=int(a) 'inputbox返回的是字符串, 我们把他变成整数
if a>100 then
msgbox("正确")
elseif a=100 then
msgbox("老大, 你耍我?")
else
msgbox("错误")
end if
Dim a,b,c,d
a=inputbox("a是:","输入半径")
b=Inputbox("b是:","输入半径")
d=Inputbox("答案:","输入答案")
d=int(d)
'在这里我们取出了d的值, 变成整数, 在放回"d"这个盒子里
c=a*2+b*2
if d=c then
Msgbox("你好聪明")
else
Msgbox("你好猪头 自己的题还不会!")
end if
select case 变量名
case 值
语句
case 值
语句
case else
语句
end select
我们举个例子就能很简单的说明:
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
dim a '注意:常量不需要在dim里面声明,否则会引发错误
const pass="123456" '这是一个字符串 请用""包裹起来. 设定密码为常量, 不可变更
do
a=inputbox("请输入密码")
if a=pass then
msgbox("密码校验成功")
exit do
end if
loop
dim a,ctr
ctr=0 '设置计数器
const pass="pas123_" '上面的那个是弱密码, 这次改的强一点
do
if ctr=3 then
msgbox("已经达到认证上限, 认证程序关闭")
exit do
else
a=inputbox("请输入密码")
if a=pass then
msgbox("认证成功")
msgbox("(你可以在这里加一段成功后得到的信息)")
exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误认证计数
msgbox("认证出错, 请检查密码")
end if
end if
loop
dim a,ctr
ctr=0
const pass="pas123_"
do while ctr<3
a=inputbox("请输入密码")
if a=pass then
msgbox("认证成功")
msgbox("(你可以在这里加一段成功后得到的信息)")
exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误认证计数
msgbox("认证出错, 请检查密码")
end if
loop
这样实现的功能和上一个例子完全一样, 我们再来看看把while放在loop后面:
dim a,ctr
ctr=0
const pass="pas123_"
do
a=inputbox("请输入密码")
if a=pass then
msgbox("认证成功")
msgbox("(你可以在这里加一段成功后得到的信息)")
exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误认证计数
msgbox("认证出错, 请检查密码")
end if
loop while ctr<3
'接着上面的程序
dim cname, temp '要查询的名字, 和一个临时变量, 用来储存数据的位置
cname=inputbox("请输入你要查询的名字:")
for ctr=0 to 2 '遍历所有name数组的成员, 寻找要查询的名字
if name(ctr)=cname then
temp=ctr '记录数据位置
exit for '退出循环, 和exit do的用法一样
end if '不要忘了end if
next
msgbox("姓名:" & name(temp) & " " & "身高:" & high(temp) & " " & "得分:" & mark(temp))
dim cname
cname=inputbox("请输入你要查询的名字:")
for ctr=0 to 2
if name(ctr)=cname then exit for '因为只有exit for就不需要块if了
next
msgbox("姓名:" & name(ctr) & " " & "身高:" & high(ctr) & " " & "得分:" & mark(ctr))
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
'输出太麻烦了, 我懒得动, 你知道那么回事就行了