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

命题：杜宗飞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+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(xAsInteger,yAsInteger)AsIntegerIfxyThenmax=xElsemax=yEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimcAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Text3.Text=Str(c)EndSub（4）阅读下面程序，程序功能是在Text1分别输入一串字符数据，Label1显示字符串中数字字符的个数，填入划线处代码通，使程序功能完善Functionf(tAsString)AsIntegerDimiAsInteger,cAsStringf=0Fori=1ToLen(t)c=Mid(t,i,1)Ifc=0Andc=9ThenEndIfNextiEndFunctionPrivateSubCommand1_Click()DimaAsString,sAsIntegera=Text1.TextLabel1.Caption=Str(s)EndSub命题：杜宗飞（5）下列VB程序的功能是将二进制数转换为十进制数。采用位权展开的方法：10012342(29)2120212121(11101)。程序运行时，在文本框Text1中输入一个二进制数，单击计算按钮（Command1）后，文本框Text2中显示对应的十进制数。程序的运行界面如图所示。请在划线上填入合适的代码。Functionfq(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)EndSub