高中信息技術經(jīng)典操作題VB代碼

高中信息技術經(jīng)典操作題VB代碼高中信息技術經(jīng)典操作題VB代碼高中信息技術經(jīng)典操作題VB代碼V:1.0精細整理，僅供參考高中信息技術經(jīng)典操作題VB代碼日期：20xx年X月操作題部分VB代碼注意：只能在functionfunc（）和endfunction之間輸入代碼。其他部分一律不許改動或刪除.函數(shù)的返回值必須用函數(shù)名來返回，即代碼中需要出現(xiàn)“func=***”的語句。***********************************************************1、輸入一個整數(shù)，輸出各位數(shù)字之和。如：123，輸出6Functionfunc(n)DimiAsIntegerDimmAsIntegerm=Len(Str(n))func=0Fori=1Tomfunc=func+Val(Mid(Str(n),i,1))NextiEndFunction說明：str（）將數(shù)字轉換為字符串，len（）求字符串的長度Mid（字串，起始位置，數(shù)量）從字串的指定位置截取指定長度的字串Val()將字串轉換為相應的數(shù)字***********************************************************2、輸入五位同學的身高，輸出最高的數(shù)據(jù)Functionfunc(a,b,c,d,e)func=aIffunc<bThenfunc=bIffunc<cThenfunc=cIffunc<dThenfunc=dIffunc<eThenfunc=eEndFunction***********************************************************3、求2+4+……+100的和Functionfunc（）DimIasintegerFunc=0ForI=2to100step2Func=func+iNextiEndfunction**********************************************************4、統(tǒng)計100-999之間水仙花數(shù)的個數(shù)（水仙花數(shù)：如：13+53+33=153）Functionfunc（）Dimabcasinteger,aasinteger,basinteger,casintegerFunc=0Forabc=100to999a=abc\100b=(abc-a*100)\10c=abcmod10ifa^3+b^3+c^3=abcthenfunc=func+1nextabcendfunction說明：abc為三位數(shù)，a是百位數(shù)，b是十位數(shù)，c是個位數(shù)**********************************************************5、某火車站運費標準如下：運輸距離小于500公里，按照運費標準收費，運輸距離大于等于500公里小于1000公里，按照運費標準給予0.05的折扣，運輸距離大于等于1000公里小于3000公里，按照運費標準給予0.1的折扣，運輸距離大于等于3000公里，按照求運費標準給予0.15的折扣。假設每噸貨物的運費為0.225元，現(xiàn)有15噸貨物，編程求所需運費。Functionfunc（n）Ifn<500thenfunc=15*0.225Ifn>=500andn<1000thenfunc=15*0.225*0.95Ifn>=1000andn<3000thenfunc=15*0.225*0.9Ifn>=3000thenfunc=15*0.225*0.85endfunction**********************************************************6、求1+2+3+……+n的和Functionfunc（n）Func=0Fori=1tonFunc=func+iNextiEndfunction7、求1*2*3*……*n的積Functionfunc（n）Func=1Fori=1ton