3、","輸入"))a=IIf(xMod2=0,"偶數(shù)","奇數(shù)")Printa6、輸入一個成績，利用IIF函數(shù)輸出成績的等級（差60、良80、優(yōu)100）x=val(InputBox("輸入一個成績","輸入"))a=IIf(x<60,"差",IIf(x<80,"良","優(yōu)"))Printa7、輸入一個成績，利用selectcase語句輸出成績的等級（不及格，及格，中等、良好、優(yōu)秀）x=val(InputBox("輸入一個整數(shù)","輸入"))SelectCasexCaseIs<60Print"不及格"CaseIs<70Print"及格"Ca
4、seIs<80Print"中"CaseIs<90Print"良"CaseElsePrint"優(yōu)"EndSelect8、selectcase中case后的條件的各種寫法x=val(InputBox("輸入一個整數(shù)","輸入"))SelectCasexCase60print"真幸運剛好及格"Case10,20,30,40,50,60,70,80,90,10015print"真巧你的成績是10的倍數(shù)"Case0to29print"太差了吧，你還不到30分"EndSelect9、特殊的運算符以及運算符的優(yōu)先級問題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、輸入一個字符串，輸出這個字符串是否是個數(shù)字字符串。Isnumeric()x=inputbox("請輸入任意字符串","輸入框")printxifIsnumeric(x)thatprin
6、t"您輸入的是個數(shù)字字符串"elseprint"您輸入的不是數(shù)字字符串"endif13、編寫程序：輸入一個整數(shù)，輸出是奇數(shù)還是偶數(shù)。當輸入的數(shù)據(jù)不是整數(shù)而是字母的時候，輸出"數(shù)據(jù)不合法"。x=inputbox("請輸入任意字符串","輸入框")printxifIsnumeric(x)thatifxmod2=0thenprint"偶數(shù)"elseprint"奇數(shù)"endifelseprint"數(shù)據(jù)不合法"endif14、輸入三個數(shù)字，輸出其中最大的數(shù)（與第4題類似）15、用IIF函數(shù)編寫程序：輸入一個成績，輸出成績的等級（優(yōu)秀、良好、中等、
7、及格、不及格）x=val(InputBox("輸入一個成績","輸入"))a=IIf(x<60,"不及格",IIf(x<70,"及格",IIf(x<80,"中等",IIf(x<90,"良好","優(yōu)"))))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稅務(wù)部門征稅問題p=val(inputbox("請輸入收入"))se
