浙江技術(shù)選考復(fù)習(xí)VB自定義函數(shù)調(diào)用專題

浙江技術(shù)選考復(fù)習(xí)VB自定義函數(shù)調(diào)用專題浙江技術(shù)選考復(fù)習(xí)VB自定義函數(shù)調(diào)用專題浙江技術(shù)選考復(fù)習(xí)VB自定義函數(shù)調(diào)用專題xxx公司浙江技術(shù)選考復(fù)習(xí)VB自定義函數(shù)調(diào)用專題文件編號(hào)：文件日期：修訂次數(shù)：第1.0次更改批準(zhǔn)審核制定方案設(shè)計(jì)，管理制度VB自定義函數(shù)專題練習(xí)行政班：教學(xué)班：姓名：學(xué)號(hào)：（1）閱讀下面程序，填入劃線處代碼通過調(diào)用函數(shù)，使程序功能完善Functionfx(xAsInteger)AsBooleanIfxMod5=0Thenfx=TrueElsefx=FalseEndIfEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=ValIfThen="是5的倍數(shù)"Else="不是5的倍數(shù)"EndIfEndSub（2）閱讀下面程序，程序的功能是計(jì)算1+1+2+1+2+3+1+2+3+4+1+2+3+4+5的值，并在Text1上顯示，填入劃線處代碼Functionfact(nAsInteger)AsIntegerDimiAsIntegerfact=0Fori=1Tonfact=fact+iNextiEndFunctionPrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5Nexti=EndSub（3）閱讀下面程序，程序功能是在Text2和Text1分別輸入數(shù)據(jù)，Text3顯示兩個(gè)數(shù)據(jù)中較大的數(shù)據(jù)，填入劃線處代碼通，使程序功能完善Functionmax(xAsInteger,yAsInteger)AsIntegerIfx>yThenmax=xElsemax=yEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimcAsIntegera=Valb=Valc==Str(c)EndSub（4）閱讀下面程序，程序功能是在Text1分別輸入一串字符數(shù)據(jù)，Label1顯示字符串中數(shù)字字符的個(gè)數(shù)，填入劃線處代碼通，使程序功能完善Functionf(tAsString)AsIntegerDimiAsInteger,cAsStringf=0Fori=1ToLen(t)c=Mid(t,i,1)Ifc>="0"Andc<="9"ThenEndIfNextiEndFunctionPrivateSubCommand1_Click()DimaAsString,sAsIntegera==Str(s)EndSub（5）下列VB程序的功能是將二進(jìn)制數(shù)轉(zhuǎn)換為十進(jìn)制數(shù)。采用位權(quán)展開的方法：。程序運(yùn)行時(shí)，在文本框Text1中輸入一個(gè)二進(jìn)制數(shù)，單擊計(jì)算按鈕（Command1）后，文本框Text2中顯示對(duì)應(yīng)的十進(jìn)制數(shù)。程序的運(yùn)行界面如圖所示。請?jiān)趧澗€上填入合適的代碼。Functionfq(nAsInteger,xAsInteger)AsLong'函數(shù)返回位權(quán)值DimiAsIntegerIfx=1Thenfq=1Fori=1Tonfq=fq*2NextiElsefq=0EndIfEndFunctionPrivateSubCommand1_Click()Dims1AsString,lengthAsInteger,chAsString,xAsIntegerDimsumAsLong,iAsIntegers1=