VisualBasic实验指导书程序代码精.docx
- 文档编号:27707687
- 上传时间:2023-07-04
- 格式:DOCX
- 页数:19
- 大小:16.54KB
VisualBasic实验指导书程序代码精.docx
《VisualBasic实验指导书程序代码精.docx》由会员分享,可在线阅读,更多相关《VisualBasic实验指导书程序代码精.docx(19页珍藏版)》请在冰豆网上搜索。
VisualBasic实验指导书程序代码精
9-1
OptionExplicit
OptionBase1
PrivateSubCommand1_Click(
Dimx(10AsInteger,maxvAsInteger,minvAsInteger
DimiAsInteger
Fori=1To10
x(i=Int(90*Rnd+10
Text1.Text=Text1&Str(x(i
Nexti
Callmaxmin(x,maxv,minv
Text2.Text=maxv
Text3.Text=minv
EndSub
PrivateSubCommand2_Click(
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndSub
PrivateSubCommand3_Click(
End
EndSub
PrivateSubmaxmin(a(AsInteger,maxAsInteger,minAsIntegerDimiAsInteger
max=a(1:
min=a(1
Fori=LBound(a+1ToUBound(a
Ifa(i>maxThen
max=a(i
ElseIfa(i min=a(i EndIf Nexti EndSub 9-2 PrivateSubCommand1_Click( DimxAsLong x=Val(Text1.Text Ifverify(xThen List1.AddItemx Else MsgBoxStr(x&"不是自守数。 ",vbInformationEndIf EndSub PrivateSubCommand2_Click( Text1.Text="" EndSub PrivateSubCommand3_Click( End EndSub PrivateFunctionverify(xAsLongAsBoolean DimyAsLong,sAsInteger verify=False s=Len(CStr(x y=x*x Ifx=Val(Right(CStr(y,sThen verify=True EndIf EndFunction 9-3 OptionExplicit OptionBase1 PrivateSubCommand1_Click( DimaAsInteger,bAsInteger,iAsInteger a=Val(Text1.Text: b=Val(Text2.Text Fori=aTob Ifsx(i=TrueThen List1.AddItemi 8EndIf Nexti IfList1.ListCount=0ThenList1.AddItem"无升序数"EndSub PrivateSubCommand2_Click( Text1.Text="" Text2.Text="" List1.Clear Text1.SetFocus EndSub PrivateSubCommand3_Click( End EndSub PrivateFunctionsx(ByValnAsIntegerAsBooleanDima(AsInteger,kAsInteger,iAsInteger Do k=k+1 ReDimPreservea(k a(k=nMod10 n=n\10 LoopUntiln<=0 Fori=1ToUBound(a-1 Ifa(i+1>=a(iThenExitFunction Nexti sx=True EndFunction 9-4 OptionExplicit PrivateSubCommand1_Click( Text1.Text="" Text2.Text="" Text3.Text="" EndSub PrivateSubCommand2_Click( End EndSub PrivateFunctioncommon(ByValaAsInteger,ByValbAsIntegerAsIntegerDimrAsInteger Do r=aModb a=b b=r LoopWhiler<>0 common=a EndFunction PrivateSubOption1_Click(IndexAsInteger DimaAsInteger,bAsInteger DimmAsInteger,dAsInteger a=Text1 b=Text2 m=common(a,b IfIndex=0Then Text3=m Else d=a*b/m Text3=d EndIf EndSub 9-5 OptionExplicit PrivateFunctionJudge(nAsIntegerAsBoolean DimiAsInteger Fori=2ToSqr(n IfnModi=0ThenExitFunction Nexti Judge=True EndFunction PrivateSubCommand1_Click( DimxAsInteger,iAsInteger x=Text1.Text Ifx=4Then Text2="2+2" Else i=3 DoWhileText2="" IfJudge(iAndJudge(x-iThen Text2=i&"+"&x-i Else i=i+2 EndIf Loop EndIf EndSub PrivateSubCommand2_Click( Text1.Text="" Text2.Text="" EndSub PrivateSubCommand3_Click( End EndSub 9-6 PrivateFunctionchange(sAsString,nAsIntegerAsStringDimiAsInteger,kAsInteger,sumAsInteger DimpAsString*1,qAsInteger k=0 Fori=Len(CStr(Text2.TextTo1Step-1 p=Mid(CStr(Text2.Text,i,1 Ifp>="0"Andp<="9"Then q=Val(p Else q=Asc(p-55 EndIf sum=sum+q*n^k k=k+1 Nexti change=sum EndFunction PrivateSubCommand1_Click( DimsAsString,nAsInteger Label2.Caption=Text1.Text&"进制数: " s=Text1.Text SelectCases Case"二" n=2 Case"八" n=8 Case"十六" n=16 EndSelect Text3.Text=change(s,n EndSub PrivateSubCommand2_Click( Text1.Text="" Text2.Text="" Text3.Text="" EndSub PrivateSubCommand3_Click( End EndSub 9-7 OptionExplicit PrivateSubCommand1_Click( DimnAsLong n=Text1.Text IfRight(CStr(n,1="0"Then Text2="尾数为0,无反序数" Else Text2.Text=nx(n EndIf EndSub PrivateSubCommand2_Click( Text1.Text="" Text2.Text="" EndSub PrivateSubCommand3_Click( End EndSub PrivateFunctionnx(nAsLongAsLong DimkAsInteger,stAsString Do k=k+1 st=Mid(CStr(n,k,1&st LoopUntilk>=Len(Text1.Text nx=Val(st EndFunction 9-8 PrivateSubCommand1_Click( DimnAsInteger,iAsInteger,sAsString,a(AsInteger Forn=153To9999 Ifarm(n=TrueThen ReDima(Len(CStr(n Fori=1ToLen(CStr(n a(i=Mid(CStr(n,i,1 Nexti s="" Fori=1ToLen(CStr(n-1 s=s&CStr(a(i&"^"&CStr(Len(CStr(n&"+" Nexti List1.AddItemCStr(n&"="&s&CStr(a(i&"^"&CStr(Len(CStr(nEndIf Nextn EndSub End EndSub PrivateFunctionarm(nAsIntegerAsBoolean Dima(AsInteger,iAsInteger,stAsString,sumAsInteger arm=False st=CStr(n ReDima(Len(st Fori=1ToLen(st a(i=Mid(st,i,1 Nexti Fori=1ToLen(st sum=Val(a(i^(Len(st+sum Nexti Ifn=sumThen arm=True Else ExitFunction EndIf EndFunction 9-9 Dimsco(5AsSingle PrivateSubCommand1_Click( DimiAsInteger Fori=0To5 sco(i=(Int(Rnd*61+40/10 Text1(i.Text=sco(i Nexti EndSub PrivateSubCommand2_Click( DimiAsInteger,sumAsInteger,minAsSingle,maxAsSingleCalla(min,max Fori=0To5 sum=sum+sco(i Nexti Text7.Text=(sum-min-max/4 EndSub PrivateSuba(minAsSingle,maxAsSingle DimiAsInteger,kAsInteger max=sco(0: min=sco(0 Fori=1To5 Ifsco(i>maxThen max=sco(i ElseIfsco(i min=sco(i EndIf Nexti EndSub Fori=0To5 Text1(i="" Nexti Text7.Text="" EndSub PrivateSubCommand4_Click( End EndSub 9-10 PrivateSubCommand1_Click( DimmaxAsLong,minAsLong Callat(max,min Text2.Text=max Text3.Text=min EndSub PrivateSubCommand2_Click( Text1.Text="" Text2.Text="" Text3.Text="" EndSub PrivateSubCommand3_Click( End EndSub PrivateSubat(maxAsLong,minAsLong DimsAsString,iAsInteger,a(AsInteger,kAsInteger,tempAsInteger,stAsString,st1AsStrings=CStr(Text1.Text ReDima(Len(s Fori=1ToLen(s k=k+1 a(k=Val(Mid(s,i,1 Nexti max=a(1: min=a(1 Fori=1ToLen(s Forj=1ToLen(s
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VisualBasic 实验 指导书 程序代码