浙江技术选考复习VB自定义函数调用专题.doc

《浙江技术选考复习VB自定义函数调用专题.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB自定义函数专题练习行政班：教学班：姓名：学号：（1）阅读下面程序，填入划线处代码通过调用函数，使程序功能完善Functionfx(xAsInteger)AsBooleanIfxMod5=0Thenfx=TrueElsefx=FalseEndIfEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)IfThenLabel1.Caption="是5的倍数"ElseLabel1.Caption="不是5的倍数"EndIfEndSub（2）阅读下面程序，程序的功能是计算1+1+2+1+2+3+1+2+3+

2、4+1+2+3+4+5的值，并在Text1上显示，填入划线处代码Functionfact(nAsInteger)AsIntegerDimiAsIntegerfact=0Fori=1Tonfact=fact+iNextiEndFunctionPrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5NextiText1.Text=EndSub（3）阅读下面程序，程序功能是在Text2和Text1分别输入数据，Text3显示两个数据中较大的数据，填入划线处代码通，使程序功能完善Functionmax(xAsIntege

3、r,yAsInteger)AsIntegerIfx>yThenmax=xElsemax=yEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimcAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Text3.Text=Str(c)EndSub（4）阅读下面程序，程序功能是在Text1分别输入一串字符数据，Label1显示字符串中数字字符的个数，填入划线处代码通，使程序功能完善Functionf(tAsString)AsIntegerDimiAsInteger,cAsS

4、tringf=0Fori=1ToLen(t)c=Mid(t,i,1)Ifc>="0"Andc<="9"ThenEndIfNextiEndFunctionPrivateSubCommand1_Click()DimaAsString,sAsIntegera=Text1.TextLabel1.Caption=Str(s)EndSub（5）下列VB程序的功能是将二进制数转换为十进制数。采用位权展开的方法：。程序运行时，在文本框Text1中输入一个二进制数，单击计算按钮（Command1）后，文本框Text2中显示对应的十进制数。程序的运行界面如图所示。请在划线上填入合适的代码。Funct

5、ionfq(nAsInteger,xAsInteger)AsLong'函数返回位权值DimiAsIntegerIfx=1Thenfq=1Fori=1Tonfq=fq*2NextiElsefq=0EndIfEndFunctionPrivateSubCommand1_Click()Dims1AsString,lengthAsInteger,chAsString,xAsIntegerDimsumAsLong,iAsIntegers1=Text1.Textsum=0Fori=1Tolengthch=Mid(s1,i,1)x=Val(ch)NextiText2.Text=Str(sum)E

6、ndSub