发现大部分黑白的朋友都不会编程(10)

主要是对编程初学者提供资料

再看看这个, 无论你回答得多么正确你都是猪头, 哈哈, 不是我耍你, 还是文章开始时候的inputbox的返回类型在耍你, d是inputbox的返回值, 他是一个字符串, 而c是一次整数计算的结果, 他是一个整数. 一个字符串无论如何也不等于一个整数, 尽管他们字面上是一样的:"8"<>(不等于号)8 所以if的判断式的值永远是false, 总是执行else部分的语句. 我们可以这么修改 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

这样就成功了. 这也是Inputbox函数的一个讨厌的地方, 没办法, vbs没有其他好的输入方式了.

说到if, 我们不得不说一说逻辑运算符, 今天介绍两种, "and" 和 "or" 学会了if语句之后, 我举一个例子, 你一看就明白了. dim a,b

a=inputbox("输入一个数 >10") b=inputbox("输入另一个数 >10") a=int(a) b=int(b)

if a>10 and b>10 then msgbox("正确") else

msgbox("错误") end if

这段程序让你输入两个值, 必须都大于10, 只要有一个不大于, 就输出错误 dim a,b

a=inputbox("输入一个数 >10") b=inputbox("输入另一个数 >10") a=int(a) b=int(b)

if a>10 or b>10 then msgbox("正确")

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库发现大部分黑白的朋友都不会编程(10)在线全文阅读。