资源描述：
《4.4过程和函数》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、自定义函数复习任务单姓名：Function函数名(参数表)As类型名<语句块>[函数名=表达式]EndFunction自定义函数相关知识包括自定义函数声明模块和自定义函数调用。声明模块的一般格式是【知识回顾】十进制转二进制PrivateSubCommand2_Click()DimaAsIntegera=Val(Text1.Text)Text2.Text=____________________EndSubFunctioncc(xAsInteger)AsStringDoWhilex<>0r=xMod2x=x2_____________
2、______________LoopEndFunctionPrivateSubCommand1_Click()Dimx,rAsIntegerX=val(text1.text)DoWhilex<>0r=__________x=x2t=__________LoopText2.text=tEndsub【小组大比拼】1.一个程序实现下列功能:在文本框Text1中输入一个数,在文本框text2中输入需要转换数的进制（小于等于16）,点击转换按钮,在标签Label3输出转换后的十进制数，程序运行界面如下：PrivateSubCommand1_C
3、lick()DimsAsString,kAsIntegers=Text1.Textk=Val(Text2.Text)Label3.Caption="对应的十进制数:"+_______________________①EndSubFunctiontoD(sAsString,kAsInteger)AsIntegerDimansAsInteger,xAsIntegerFori=1ToLen(s)IfMid(s,i,1)>="A"AndMid(s,i,1)<="F"Thenx=Asc(Mid(s,i,1))-Asc("A")+10Elsex=
4、Val(Mid(s,i,1))EndIfans=ans*k+xNexti________________________________②_EndFunction(2)根据代码,文本框Text1输入“a2”,单击按钮能否实现转化____________________③2.小李编写了一个程序,用以实现下列功能:在文本框Text1中输入一个十进制数,在文本框Text2中输入需转换数的进制(小于等于16),点击转换按钮,在文本框Text3中输出转换后的数字;点击“退出”按钮,关闭程序。程序运行界面如下图所示:为实现上述功能,请在划线处填入
5、合适的代码。PrivateSubCommand1ClickDimxAsLongDimyAsIntegerx=Val(Text1.Text)：y=Val(Text2.Text)Text3.Text=__________________________①EndSubFunctiontrans(nAsLong,bAsInteger)AsStringDimhexAsStringhex=“0123456789ABCDEF”DoWhilen>0r=nModbn=nb___________________________________②Loop
6、EndFunction【智力大冲浪】编写“不同进制数排序”的VB程序,功能如下,在文本框,text1、text2、text3、text4中分别输入二进制数、八进制数、十进制数、十六进制数，单击“判断大小”按钮command1,在标签label5中显示比较的结果,程序运行界面如图所示,根据上述描述设计了如下VB程序，请回答下列问题。（1）若文本框text1、text2、text3、text4依次输入11110、37、23、2D，则标签label5中显示的结果为_______________________________________
7、_(2)请在划线处填入合适的代码PrivateSubCommandlClickDimcAsstring,sasstringDima(1to4)asstringDimb(1to4)asintegera(1)=Text1.text:a(2)=Text2Tert:a(3)=Text3Text:a(4)=Text4.textb(1)=conv(a(1),2)b(2)=conv(a(2),8)b(3)=conv(a(3),10)b(4)=conv(a(4),16)Fori=4To2Step-1k=iForj=1Toi-1If__________
8、_____①Thenk=jNextjIfi<>kThent=b(i):b(i)=b(k):b(k)=tc=a(i):a(i)=a(k):a(k)=cEndIfNextiFori=1To3_________________
