VB老师课件内容整理

《VB老师课件内容整理》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB老师课件内容整理1、第一个程序字符串的输出，最简单的程序只需一条语句print"hello"print"hello"print"china"a=10printa'10print"a"'a2、利用inputbox函数，输入一个数据，并输出x=inputbox("请输入数据","输入框")y=val(inputbox("请输入数据","输入框"))printx;y3、输入一个整数，输出是奇数还是偶数x=val(inputbox("请输入一个整数","输入框"))ifxmod2=0thenprint"偶数"elseprint"奇数"end

2、if4、输出三个数中最小的数x=15y=5z=11printx,y,zifx

3、","输入"))a=IIf(xMod2=0,"偶数","奇数")Printa6、输入一个成绩，利用IIF函数输出成绩的等级（差60、良80、优100）x=val(InputBox("输入一个成绩","输入"))a=IIf(x<60,"差",IIf(x<80,"良","优"))Printa7、输入一个成绩，利用selectcase语句输出成绩的等级（不及格，及格，中等、良好、优秀）x=val(InputBox("输入一个整数","输入"))SelectCasexCaseIs<60Print"不及格"CaseIs<70Print"及格"Ca

4、seIs<80Print"中"CaseIs<90Print"良"CaseElsePrint"优"EndSelect8、selectcase中case后的条件的各种写法x=val(InputBox("输入一个整数","输入"))SelectCasexCase60print"真幸运刚好及格"Case10,20,30,40,50,60,70,80,90,10015print"真巧你的成绩是10的倍数"Case0to29print"太差了吧，你还不到30分"EndSelect9、特殊的运算符以及运算符的优先级问题5*55/5-3^2与(-3)

5、^23+5*7>9or5>7-6and8>5andnot7>410、P170-3a=5b=2.5c=7.8y=(3.1415*a*b)/(a+b*c)printy11、P170-5v0=val(inputbox("请输入初速度v0","初速度"))t=val(inputbox("请输入时间t","时间"))s=0.5*g*t^2+v0*tprints12、输入一个字符串，输出这个字符串是否是个数字字符串。Isnumeric()x=inputbox("请输入任意字符串","输入框")printxifIsnumeric(x)thatprin

6、t"您输入的是个数字字符串"elseprint"您输入的不是数字字符串"endif13、编写程序：输入一个整数，输出是奇数还是偶数。当输入的数据不是整数而是字母的时候，输出"数据不合法"。x=inputbox("请输入任意字符串","输入框")printxifIsnumeric(x)thatifxmod2=0thenprint"偶数"elseprint"奇数"endifelseprint"数据不合法"endif14、输入三个数字，输出其中最大的数（与第4题类似）15、用IIF函数编写程序：输入一个成绩，输出成绩的等级（优秀、良好、中等、

7、及格、不及格）x=val(InputBox("输入一个成绩","输入"))a=IIf(x<60,"不及格",IIf(x<70,"及格",IIf(x<80,"中等",IIf(x<90,"良好","优"))))Printa16、P170-13，输入成绩输出评语（与第7题相同）17、P170-7输入三角形的边长，求面积，如果不能组成三角形则输出“不能组成三角形”a=val(inputbox(""))b=val(inputbox(""))c=val(inputbox(""))ifa+b>canda+c>bandb+c>athenp=(a+b+c

8、)*0.5s=sqr(p*(p-a)*(p-b)*(p-c))printselseprint"不能组成三角形"endif18、P170-8税务部门征税问题p=val(inputbox("请输入收入"))se