VB期末考试复习题

《VB期末考试复习题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

VBὃ
1ஹᦻ᪾⌱ᦻḄᑁḄឋOASelStartBSelLengthCSelTextDTextὃᫀC2ஹᙠᦻ᪾ᐸ"#$Textl,$%ᙠ&'()*◚,-ᦻ᪾./0ᵨḄ23$஺ATextl.Enabled=FalseBTextl.HideCTextl.ClearDTextl.Visible=FalseὃᫀD3ஹ4523Ifx=lTheny=l,6ᑡ89:;Ḅ஺Ax=l=y=lᙳ$?@23Bx=l=y=lᙳ$ᐵB⊤DECx=l$?@23y=l$ᐵB⊤DEDx=l$ᐵB⊤DEy=l$?@23ὃᫀD4ஹF6GH"IJᔠVisualBasicḄL"MḄ஺A_mnu_Open_234BAbc901Cprice_DKὃᫀA5ஹMsgBoxOᦪQR@ḄSToAᦪ@ᡈVJWBVJWCGD᦮Tᦪ@ὃᫀD6ஹVBᐳᨵ[\ஹ()=]^_`E⌕0ᵨb
cᐹ.-஺Aeᐭ]`E

1Beᐭ()`ECeᐭ[\`EDIᵨeᐭgh`EὃᫀA7ஹ[a=6,ᑣ᡻)x=IIF(a>5,-l,0)*xḄ@$஺A-1B6C0D5ὃᫀA8ஹkFlmᑤ◀VJpq=rstuḄOᦪAMidBRtrimCTrimDLtrimὃᫀC9ஹF623Ḅvwxy஺PrintFormat$("32548.5","000,000.00")A32,548.5B32548.5C032,548.50D32,548.50ὃᫀC10ஹ[ᨵ᝞6{|:DimXAsInteger᝞ySgn(X)Ḅ@$-1,ᑣXḄ@஺A~50Ḅ᦮ᦪBᜧ50Ḅ᦮ᦪC᦮ᦪD50Ḅ᦮ᦪὃᫀD11ஹᙠLᢥᯠ*ᑏ᝞6&:

2PrivateSubCommand1_C1ick()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextkNextjNextiPrintxEndSub&'()*ᓫLᢥvwxyoὃᫀ15#15#15#1512ஹ᡻)6☢Ḅ&'*SḄ@$os=5Fori=2.6To4.9Step0.6s=s+lNextiὃᫀ913ஹ6ᑡ⊤DEᨵ┯:;Ḅᑏ9.-o[(a+b)+c]/80-5-(d+e)ὃᫀ(a+b+c)/805/(d+e)#(a+b+c)/80-5/(d+e)14ஹ⊤x5Ḅᦪᡈ9ḄᦪḄ⊤DE$ὃᫀxMod5=0OrxMod9=0#xMod9=0OrxMod5=015ஹF6&'Ḅ:vᐭᦪV/vᐭᦪmxvᐭ\wᦪVḄᙳ@vwxy஺t஺PrivateSubForm_click()Dimx,yAsSingleDimzAsIntegerx=InputBox(MEnterascore0)Dowhilex>=0y=y+xz=z+1x=InputBox(nEnterascore11)LoopIfz=0Then

3z=1EndIfy=______PrintyEndSubὃᫀy/zVBὃ
¡1ஹᑡ⊤᪾Ḅᑡ⊤⚗Ḅᦪ£kF¤F6¥ឋḄ@OAListindexBListCountCCountDIndexὃᫀB2ஹᙠ"#$ListlḄᑡ⊤᪾"#$Label1Ḅ᪗§஺ᑡ⊤᪾¨©ªḄ"#஺/ᓫᑡ⊤᪾Ḅ«©ª"mᙠ᪗§¨⌱©ªḄ"#஺6ᑡ:;¬®Ḅ&'oAPrivateSubListl_Click()Label1.Caption=List1.TextEndSubBPrivateSubListl_Click()Label1.Name=List1.ListindexEndSubCPrivateSubListl_Click()Label1.Name=List1.TextEndSubDPrivateSubListl_Click()Label1.Caption=List1.ListindexEndSubὃᫀA3ஹᙠᑡ⊤᪾/p⌱Ḅᑡ⊤⚗Ḅ'¯ᵫ6ᑡ¥ឋ⊤஺AListindexBIndexCListDTabindexὃᫀA4ஹ$%±◀ᑡ⊤᪾Ḅᡠᨵᑁ.0ᵨḄ³9஺

4AClearBRemoveCRemoveitemDCisὃᫀA5ஹᙠ"#$ListlḄᑡ⊤᪾$%4ᑡ⊤᪾Ḅ´⚗£µe)ᜐᳮ.0ᵨḄ¸¹23$oAFori=lToListl.ListCountNEXTBFori=0ToListl.Count-1NEXTCFori=0ToListl.ListCount-1NEXTDFori=lToListl.CountNEXTὃᫀC6ஹ[ᨵ᝞6&'OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(l,2,3,4,5,6,7,8,9)Fori=0To3Printa(5-i);NextEndSub&'()*ᓫᑣᙠ¨ḄOA6543B5432C4321D7654ὃᫀA7ஹ[᡻)F6&'mº»vᐭ1ஹ3ஹ5,᡻)xy$Dima(4)AsInteger,b(4)AsInteger

5ForK=0To2a(K+1)=Val(InputBox(”vᐭᦪ¼”))b(3K)=a(K+1)NextKPHntb(K)A0B3C5D1ὃᫀD8ஹᙠ"#$Command1ḄLᢥᯠ*ᑏ᝞6&':PrivateSubCommandl_Click()DimiAsInteger,jAsIntegerDima(10,l0)AsIntegerFori=lTo3Forj=lTo3a(ij)=(i-l)*3+jPrinta(i,j);NextjPrintNextiEndSub&'()*ᓫLᢥ¨ḄOA123456789B234345456C147258369D123246369ὃᫀA9ஹᵨ6☢Ḅ23ᡠ¿ÀḄᦪÁḄᐗÃᦪ஺Dimarr(3To5,-2to2)A24

6B12C15D20ὃᫀC10ஹ6ᑡ23kF$Ä᝱ᦪÁᑖǬ▭ᐗÃᦪ஺Astatic23BDim23Cpublic23DReDim23ὃᫀD11Ꮇ¿&'ᨵF623answer=MsgBox(,,Stringl,,„"String2",,,String3H,2)᡻)-23*ʨËÌ᪾Ím᝞yᓫ“;¿“ᢥᑣanswei•Ḅ@$AString3BString2CString1D1ὃᫀD12ஹ[ᨵ23x=InputBox("vᐭᦪ@Ñ”)&'()*᝞yvᐭᦪ@10ÒᢥRÓᑣ6ᑡÔ®:;ḄA0ÕÖ@BGHXḄ@VJW“10”CᙠInputBox4×᪾᪗⚪Ù¨Ḅ“Ñ”DGHXḄ@ᦪ@10ὃᫀB13ஹF6&'()ḄxyoDima(-lTo5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsIntegerDoUntilflag=TrueFori=-1To5j=j+1Ifa(i)=FalseThen

7a(i)=TrueExitForEndIfIfi=5Thenflag=TrueEndIfNextLoopPrintjA20B7C8D35ὃᫀD14ஹ[a=5,b=6,c=7,d=8,ᑣ᡻)6ᑡ23*xḄ@$஺x=IIF((a>b)And(c

8FunctionFunc(ByValxAsInteger,yAsInteger)y=x*yIfy>0ThenFunc=xElseFunc=yEndIfEndFunctionPrivateSubCommandl_Click()DimaAsInteger,bAsIntegera=3b=4c=Func(a,b)Print"a="ÞaPrintHb=M;bPrint"c="ÞcEndSub&'()*ᓫLᢥᐸvwxy$Aa=3b=4c=12Ba=13b=12c=12Ca=3b=4c=3Da=3b=12c=3ὃᫀD⚪ᑖ63ஹᓫLᢥm6ᑡ&'ßṹḄ᡻)xy$—PublicSubProcl(nAsInteger,ByVaimAsInteger)n=nMod10m=m/10EndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=34CallProcl(x,y)

9Printx;yEndSubA123B23C1234D234ὃᫀD⚪ᑖ64ஹF6ᐵ5Oᦪ&ḄÔ®:;Ḅ஺AᙠOᦪ&&ḄQR@kFᨵâBOᦪ&ãḄSTäOᦪQR@ḄSTåᨵᐵBC/ᦪÁæ$Oᦪ&ḄᦪmçFè@³Eè⌴êFèᙬ³Eè⌴D᝞yIᢣ|Oᦪ&ᦪḄSTᑣ-ᦪåᨵᦪ¼STὃᫀB⚪ᑖ65ஹF689┯Ḅ஺AOᦪ&kFíᦪBî&åᨵQR@COᦪ&åᨵQR@Dî&kFíᦪὃᫀC⚪ᑖ66ஹᙠLᢥ("#$Command])ᯠ*ᑏ᝞6&PrivateSubCommandl_Click()DimbAsIntegerb=b+1EndSub()&'^»ᓫLᢥ*GHbḄ@OA2B1C0D3ὃᫀB⚪ᑖ67ஹᎷ¿ᨵF6Oᦪ&FunctionFun(SAsString)AsStringDimsiAsStringFori=1ToLen(S)sl=UCase(Mid(S,i,l))+slNexti

10Fun=siEndFunctionᙠLᢥᯠ*ᑏ᝞6&PrivateSubCommand1_Click()DimStrlAsString,Str2AsStringStrl=InputBox("vᐭVJW”)Str2=Fun(Strl)PrintStr2EndSub&'()*ᓫLᢥ᝞yᙠvᐭ4×᪾vᐭVJW"abcdefg”ᑣᓫ“;¿”ᢥ*ᙠḄvwxy$OAGFEDCBABABCEDFGCgfedcbaDabcdefgὃᫀA⚪ᑖ68ஹSub&äFunction&ᨬ᪷Ḅðñ஺Aò_&ᦪḄè⌴³EIlBFunction&kFᨵᦪSub&IkFCSub&kF0ᵨCall23ᡈóô0ᵨ&"bᵨõFunction&IkFDSub&Ḅ&"IQR@õFunction&¤&"QR@ὃᫀD⚪ᑖ69ஹᙠßṹ¿À%î&SubP(a,b)EndSub6☢bᵨ-&ḄöE:;Ḅ஺ACallPBCallP10,20CP(10,20)DCallP(10,20)ὃᫀD⚪ᑖ610ஹᙠ"#$CommandlḄLᢥᯠ*ᑏ᝞6&'PrivateSubCommandl_Click()StaticXAsIntegerStaticYAsIntegerCisY=1

11Y=Y+5X=5+XPrintX,YEndSub&'()m^»ᓫLᢥCommandl*¨Ḅxy$஺A1515B156C1516D56ὃᫀB⚪ᑖ611ஹ[ᨵF6¸¹x᪀Do¸¹LoopWhilevᩩ,ᑣF6Ô®┯ḄOA¸¹kF0ᵨExitDo23B”ᩩ”kFᐵB⊤DEஹ⊤DEᡈúᦪC"ᩩ”$0Ḅúᦪᑣ»êI᡻)¸¹D᝞y”ᩩ"û$True,ᑣIüᙢ᡻)¸¹ὃᫀC⚪ᑖ612ஹᙠ"#$CommandlḄLᢥᯠ*ᑏ᝞6¤ᵨ&=LᢥḄ&PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSub&'()*ᓫLᢥᙠ¨஺A7B6

12C8D9ὃᫀ⚪ᑖ6AVBὃ
ÿ1ஹ
ᑏ᝞ᵨᩭ10᦮ᦪ(᦮ᦪᐭ)ḄᨬᜧPrivateSubCommandl_Click()Dima(l0)AsInteger,maxAsIntegerFork=lTo10a(kInputBox("ᐭ᦮ᦪ”)Nextkmax=0Fork=lTo10Ifa(k)>maxThenmax=a(k)EndIfNextkPrintmaxEndSub!"#$%&ᐭ10'ᦪ#()*ᑮ',-./ᐭ100ᦪ#-.1┯3Ḅ◤⌕6ᦋ஺☢Ḅ6ᦋ()*ᑮ',!"-.Ḅ1OA;max=a(k)ᦋmaxThenᦋ?@AFork=lTo10ᦋ

13Form2.VisibleEndSubCPrivateSubCommand1_Click()LoadForm2EndSubDPrivateSubCommand1Click஺Form2.ShowEndSubBὃDᫀD4ஹᙠijq|k

14Listl.RemoveitemEndSubBὃDᫀc6ஹijqᨵkl

15BAllFiles(*.*)CExecutableFiles(*.exe)D«,¬BὃDᫀC10ᙠijq|kl

16EndSub!"Lᓫw"Y¸"ᢥu᪗µᙠij¼p஺¤½¾)HI┯3Ḅ1oAᓫw"¹º"ᢥuL¿ᓫw"Y¸"ᢥu᪗µ¹ºḄÀ£Á¼pB᪗µḄ¼pÃᔣ<ÄÅᔣÆC&᪗µᐰȼijL§ijḄÉÊ%¦Ë̼pD᪗µᢥᢣ¬Ḅ##◞¼pBὃDᫀB12ஹ᡻"ᑡ@AstrInput=InputBox("ÎᐭÏÐ""ÏФ¥᪾","ÏÐ")§xyᐭ¤¥᪾஺g#᝞.ÒÓᓫw",¬"ᢥuᑣÔÕstrinputḄᑁ®1஺A"ÎᐭÏÐ"BÖÏÐC"ÏÐ"D"ÏФ¥᪾"BὃDᫀC13ஹᎷ¬ᙠᱏ᪾Picture1ᐭ<Ø◀K(«ᑤ◀ᱏ᪾){ÙᵨḄ',ÃÚ1oA᡻"@APicture[.PictureB᡻"@APicture1.Picture=LoadPicture("")C⌱Ûᱏ᪾ᯠLᢥDelD⌱Ûᱏ᪾ᙠ¡ឋiÜ⌱ÛPicture¡ឋᩩᯠLᢥÞßBὃDᫀB14ஹᙠijq|-rsᢥu·ᦻà᪾klᑖnOAnda<=1஺"éê","")_&IIf(a>10Anda<=20,"ᦑí_&IIf(a>20Anda<=31"⚢·ïText1.Text=tEndSub!"L᝞.qᐭ16,ᑣᙠᦻà᪾xyḄᑁ®1oAåæçèéê⚢·ïBåæçèéêᦑíCåæçè⚢·ïDåæçèᦑí

17BὃDᫀD15ஹcÔÕaðzᐜ¬òóÒÓôᵨ(õ᝞a=0),ᑣÔÕaḄ©ª1஺AVariantBStringCBooleanDIntegerBὃDᫀA16ஹᨵ᝞PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod200AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub!"Lᓫwij-.

18BὃDᫀC19ஹFa=5,b=10,ᑣ᡻"c=Int((b-a)*Rnd+a)+1LcḄû<஺A6â10B6â9C5â10D5â9BὃDᫀA20ஹᙠijqᨵ1k

1923>ᙠijq|kl
?@AoAPrivateSubListl_Click()PrintForml.TextEndSubBPrivateSubForml_Click()PrintList1.TextEndSubCPrivateSubListl_Click()PrintList1.TextEndSubDPrivateSubForml_Click()List1.PrintList1.TextEndSubὃᫀC25ஹᙠ"#$CDᑮFᨵTextlஹText2G'ᦻ᪾(IJ)L⌕1MN@O5ᙠTextlPᐭ1'ᑖᦪTᢥVWXLᑣᑨ[ᑖᦪḄᔠ]ឋL+ᑖᦪ0~100Ḅ1'ᦪLᑣᐝ᪗`ᑮText2aᔲᑣᐝ᪗cdLefg᪾“ᑖᦪ┯”஺i☢@O<=ḄAoAPrivateSubText1KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then,VWkḄASCIIṹA13a=Val(Text1)Ifa<0Anda>100ThenText2.SetFocusElseText1.SetFocus:MsgBox(“ᑖᦪ┯”)

20EndIfEndIfEndSubBPrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then,VWkḄASCIIṹA13a=Val(Textl)Ifa>=0Ora<=100ThenText2.SetFocusElseText1.SetFocus:MsgBox(“ᑖᦪ┯”)EndIfEndIfEndSubCPrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then,VWkḄASCIIṹA13a=Val(Textl)Ifa>=0Anda<=100ThenText2.SetFocusElseTextl.SetFocus:MsgBox("ᑖᦪ┯”)EndIfEndIfEndSubDPrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenfVWkḄASCIIṹA13a=Val(Textl)Ifa>=0Anda<=100ThenTextl.SetFocusElseText2.SetFocus:MsgBox("ᑖᦪ┯”)EndIfEndIfEndSubὃᫀC26ஹᎷoᵨ᪾ḄqCommonDialogl,rsᢥtḄqCommand1Lᑣᓫ3rsᢥtTLuvᡭḄ᪾Ḅ᪗⚪“NewTitle”Ḅ>
?@A஺APrivateSubCommandl_Click()CommonDialogl.DialogTitle="NewTitle”CommonDialogl.ShowPrinterEndSubBPrivateSubCommandl_Click()

21CommonDialog1.DialogTitle="NewTitle”CommonDialogl.ShowColorEndSubCPrivateSubCommand1_Click()CommonDialogl.DialogTitle="NewTitle”CommonDialog1.ShowOpenEndSubDPrivateSubCommandl_Click()CommonDialog1.DialogTitle="NewTitle”CommonDialogl.ShowFontEndSubὃᫀc27ஹᙠ"#$w&'oᵨ᪾L@OMNTLo?ShowOpenx]89"ᡭ"᪾L⌕1ᙠ᪾Ḅ"ᦻ
"z{89᡽}DOCḄᦻ
Lᑣoᵨ᪾ḄFilter
ឋḄ<=A»A"(*DOC)*.DOC"B"(*.DOC)|(.DOC)"C"(*.DOC)|*.DOC"D"(*.DOC)||*.DOC"ὃᫀC28ஹi]<=ḄAoA{ᨵ4'"#d"#5LuᡭᓫᘤB5᎛o?᡻N"ᐹ"ᓫḄ"ᓫᘤ"rsᡭᓫᘤC5᎛o?ᓫ3᪗ᐹz$Ḅ“ᓫᘤ"ᢥtᡭᓫᘤD{ᨵṹ"d"5LuᡭᓫᘤὃᫀA29ஹᨚ5ᐵ5ᘤL75ᘤḄ4'ឋFalse,'ឋA஺ATimerBVisbleCEnabledDIntervalὃᫀC30ஹ4ᙠ"#$w&'qTimerlḄ5ᘤ&'qLabellḄ᪗L5ᘤḄឋEnabled=True,Interval=O,e@᝞i஺¡ᙠ@OMN5L¢2£ᙠ᪗$89&¤¥¦5§஺PrivateSubTimerl_Timer()

22Label1.Caption=Time$EndSubᙠ@O᡻N5¨©ªu«©$¬.ḄL®L¯°Ḅ±ᦋA஺Ao?ឋ"75ᘤḄEnabledឋFalseB7>
?@ḄLabell.Caption=Time$³´ᦋLabel1.Caption=Timerl.TimeCo?ឋ"75ᘤḄIntervalឋ2000D7>
?@ḄLabell.Caption=Time$³´ᦋTimer1.Interval=Time$ὃᫀC31ஹ+ᦻ᪾ḄឋPasswordChaµ"$",ᑣMN@O5ᔣᦻ᪾Pᐭ8'¸¹kTLᦻ᪾89ḄA஺Aºᑁ¼B1'"$"C8'"*"D8'"$"ὃᫀD32ஹᙠ"#$ᨵ᝞iJᡠ9Ḅ¿
Lᔜ¿
ḄqÁᐸ᪗⚪ÂÃLeᨵ᝞i@OPrivateSubForm_Load()Command?.Enabled=FalseCheck1.Value=1EndSubÄMN@O5LÅᑮḄ"#᜜ÇA஺ABCDὃᫀD33ஹ⌕vG'ᓫ⌱ᢥtÉÃ&'᪾ÊL<=ḄËÌAoAᐜw&'᪾ÊLÎᙠ᪾Ê᜜wG'ᓫ⌱ᢥtLᯠT7ᓫ⌱ᢥtÐᑮ᪾ÊBᐸ¯⌱⚗x]<=Cᐜw&'᪾ÊLÎᙠ᪾ÊwG'ᓫ⌱ᢥtDᐜwG'ᓫ⌱ᢥtLÎw᪾ÊÑᓫ⌱ᢥt᪾ÒᩭὃᫀC

2334>ᙠ"#$w&'ᑡ⊤᪾&'rsᢥt,ᐸqᑖÔwst1Command1,ᯠTᑏ᝞i>
?@PrivateSubForm_Load()List1.Additem"Iteml"Listl.Addltem"Itcm2"List1.Additem"Item3"EndSubPrivateSubCommandl_Click()Listl.List(Listl.ListCount)="AAAA”EndSub@OMNTLᓫ3rsᢥtLᐸÖ×OA7ᑡ⊤᪾ØᨵḄᨬT&⚗ᦋ“AAAA”B7¹kÚ”AAAA"ÛÜᑮᑡ⊤᪾ḄᨬT(ᓽ"Item3”ḄT☢)C7¹kÚ“AAAA”ÛÜᑮᑡ⊤᪾LÞßcu=D7¹kÚ“AAAA”àᐭᑮᑡ⊤᪾Ḅᨬ☢(ᓽ“Iteml”Ḅ☢)ὃᫀB35ஹᙠ"#$w1'rsᢥá(qCommand1)1'ᦻ᪾(qTextl),ᯠTᑏ᝞i>
?@PrivateSubCommand1_Click()x=Val(Textl.Text)SelectCasexCase1,3y=x*xCaseIs>=10,Is<=-10y=xCase-10To10y=-xEndSelectEndSub@OMNTLᙠᦻ᪾Pᐭ3,ᯠTᓫ3rsᢥáLᑣiâ¬<=ḄAoAᐜ᡻Ny=x*x,Î᡻Ny=-xB᡻Ny=-xC᡻Nkx*xD@Og┯ὃᫀC36ஹicuPg"Program”Ḅ³´A஺APrintLeft(,,VBProgramn,7)BPrintRight("VBProgramn,7)

24CPrintMid(HVBProgramM,3)DPrintMid("VBProgramn,3,7)ὃᫀA37ஹ"#$ᨵ1'qTextlḄᦻ᪾1'qCommand1Ḅrsᢥt஺⌕1@OMN5Lᓫ3rsᢥtLã7ᦻ᪾Ḅᑁ¼ᑏᑮᦻ
out.txtL¢¤ᑏᐭḄᑁ¼▬Üᑮᦻ
Øᨵᑁ¼åT஺i☢uæ<=«©$¬çuḄ@OAoAPrivateSubCommandl_Click()Open”out.txt"ForAppendAs#1Print#1,Textl.TextClose#1EndSubBPrivateSubCommandl_Click()OpenHout.txt"ForOutputAs#1Print#1,Textl.TextClose#1EndSubCPrivateSubCommandl_Click()Open"out.txt”ForInputAs#1Print#1,Textl.TextClose#1EndSubDPrivateSubCommandl_Click()Opennout.txt"ForRandomAs#1Print#1,Textl.TextClose#1EndSubὃᫀA38ஹᨵ᝞Jᡠ9"#i@OPrivateSubCommand1_C1ick()Text1.Text=,*VisualBasic”EndSubPrivateSubTextl_LostFocus()IfTextl.text<>MBASICr,ThenTextl.Text=MMTextl.SetFocusEndIfEndSub@OMN5LᙠTextlᦻ᪾Pᐭ"Basic"(᝞Jᡠ9)LᯠTᓫ3Command1ᢥtLᑣèéḄÖ×A»Aᦻ᪾"Basic",ᯖëᙠᦻ᪾

25Bᦻ᪾ºᑁ¼Lᯖëᙠᦻ᪾Cᦻ᪾"Basic",ᯖëᙠᢥt$Dᦻ᪾"VisualBasic",ᯖëᙠᢥt$ὃᫀB39ஹv&'"#CìíîᜫÞðᙠᑁñLᡠvᵨḄx]ᡈ³´.AUnloadBLoadCShowDHideὃᫀD40ஹ4óô1'@LᐸḄ"#qFormlaåTõÛÜ&'Form2Ḅ"#Le¡@O᡻N5ᐜ89Form2"#L®L¯◤⌕°ḄÌA஺A7Form2ḄTabindexឋ1,7FonnlḄTabindexឋ2BᙠFormlḄLoad>
?@Üᐭ³´LoadForm2CᙠFonn2ḄLoad>
?@Üᐭ³´Forrn2.ShowDᙠ@ឋ᪾7“÷dø”Form2ὃᫀD41>CommonDialog¿
89ù᪾஺A4ùB5ùC7ùD6ùὃᫀD42ஹ©ᨵ³´y=IIfx>0,xMod3,0x=10,ᑣyḄúA஺A³´┯ûB1C3D0üḄᫀBὃᫀB43ஹᎷᨵi⊤ᡠᑡḄᓫÖ᪀:᪗⚪qÿ
appear1ᓫᜧ᪗bigicon2ᓫ

26᪗smallicon2ᓫ⌕᝞ᓫᓫ⚗"ᜧ᪗"ᑣᙠᓫ⚗!""#஺%&'(Ḅ*+,-oA.PrivateSubbigicon_Click()Me.appear.bigicon.Checked=TrueEndSubB.PrivateSubbigicon_Click()bigicon.Checked=FalseEndSubC.PrivateSubbigicon_Click()bigicon.Checked=TrueEndSubD.PrivateSubbigicon_Click()appear.bigicon.Checked=TrueEndSub/ὃ1ᫀ.C44ஹ4ᦪ,FlḄ67-.᝞/ᦪb8᜻ᦪᑣ:;<81,ᔲᑣ:;<80஺%>7'(?@AB67ḄCṹḄ-oA.FunctionFl(bAsInteger)IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunctionB.FunctionFl(bAsInteger)IfbMod2=0ThenFl=lElseFl=0EndIfEndFunctionC.FunctionFl(bAsInteger)IfbMod2=0ThenFl=0ElseFl=1EndIfEndFunctionD.FunctionFl(bAsInteger)IfbMod200ThenReturn0

27ElseReturn1EndIfEndFunction/ὃ1ᫀ.C45ஹ⌕E!"ᦻG᪾I%
JᦻGKLM8TrueḄNឋ-—A.MultiLineB.EnabledC.MaxLengthD.Width/ὃ1ᫀ.A46ஹ%&ᐵRᱏ᪾T+(PictureBox)ḄVWX┯ZḄ-A.ᵨStretchNឋI%\]^᦮ᱏ᪾X`ḄᜧB.abᱏ᪾T+X`ḄcWd-ᡃ!•"b`C.ᱏ᪾T+I%g8hᘤEᵨD.I%j,PrintcWᙠᱏ᪾XklᦻG/ὃ1ᫀ.A47ஹ%&ᨵᐵᦪnopḄqrᑡX┯ZḄ-஺A.Staticarrl(3)arrl(l)=100arr1(2t"Hello”arrl(3)=123.45B.OptionBase1PrivateSubCommand3_Click()Dimarr3(3)AsIntegerEndSubC.Dimarr2()AsIntegerDimsizeAsIntegerPrivateSubCommand2_Click()size=InputBox("kᐭ:“)ReDimarr2(size)EndSub

28D.DimnAsIntegerPrivateSubCommand4_Click()Dimarr4(n)AsIntegerEndSub/ὃ1ᫀ.D48ஹᵨWriteyPrintqrᔣᦻ+XᑏᐭJ"ᦪ|Ḅ}~ᙠR஺A.Printqrᑏᐭ\]AᑏᐭḄ'ᦪ☢ᨵbB.Printqr\]ᙠᦪ|⚗dᐭ⌹C.Writeqrᑏᐭ\]AᑏᐭḄ'ᦪ☢ᨵbD.Writeqr\]ᙠᦪ|⚗dᐭ⌹/ὃ1ᫀ.C49%&qrᵨRᡭ!"ᦻ+Open"C:\MyFile.txt"ForOutPutqrḄ!"⌕┯Z-ᨵ஺A.ᢣoᡭᦻ+B.ᢣoᦻ+C.ᢣoᡭcD.ᢣoᦻ+/ὃ1ᫀ.B50ஹLᨵ᝞&qr.Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#%&ᐵRCṹḄBX┯ZḄ-A.cXḄᦪ|-B.bop8IntegerC.aop8IntegerD.dXḄᦪ|-II/ὃ1ᫀ.C1.ᙠCṹXᵨ!"T+KEᵨT+Ḅ(b)Nឋ஺A.CaptionB.NameC.TextD.Index2.Lx=4,y=-l,a=7.b=-8,&☢⊤¢(a)Ḅ<8"ᎷA.x+a<=b-yB.x>0ANDy<0C.a=bORx>yD.x+y>a+bANDNOT(y

29A.(10,80)B.(10,81)C.[10,80]D.[10,81]4.4ᦪSgn(3.1416)Ḅ:;<-(c4A.-1B.0C.1D.%Aª«5.67890NR(d)ᦪ|஺A.᦮B.ᓫ¬®¯ᦪC,°±D.²᦮6.&ᑡX'(Ḅ-(d)஺A.3SB.PrintC.SelectMyNameD.Selectl7.&ᑡ´b>=cANDavb>=dḄ<8஺6.⌕E᪗ÑḄᜧ\]Òᡠ
ḄᦻGÔ〉KI%j,LMNឋ8Trueᩭ?@஺7.¸⌕ᙠ!ÖᑏJᩩqrᑣᔜqrKᑖ◞VisualBasicḄqrᑖ◞8஺8.⌕Úᑴ
ÜÝEᵨqrÞᡂ஺9.ᙠVBXᵨᡝopáEᵨqrÜÝEᵨqr஺âஹã&ᑡᦪä⊤¢åᣚ8VB⊤¢஺(6ᑖ)1.a2+2ab+b2___________________________2.___________________________3.8exlnl0___________________________4.2sin(450)cos(450)________________________________5._____________________________________________6._____________________________________________çஹᑨé⚪ᡭ7”,┯Zᡭ“x”(ioᑖ)

301.ᙠVBXT+Ḅ*+ê7j,ᵨᡝḄëgìí஺2.ᦪ|%g8oîklGï
ᙠðñA஺3.òóôÇõᦻ+yôᦻ+Ḅᦻ+7ÔÅ஺4.ᦋT+ḄᜧI%Eᵨ÷᪗yøùúI%j,ûᦋCṹ஺5.Å!,XᦪnyüᓫI%Å஺6.VB4ᦪXḄ/ᦪI%-áஹஹ⊤¢úI%-ý!"4ᦪ஺7.CṹConstNumberl=15.Numberl=10ᔠW஺8.ᐕ
ᙽIf-Then᪀Ḅᡠᨵᑏᙠ