VisualBasic法度模范设计习题

《VisualBasic法度模范设计习题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

VisualBasic⚪

1VisualBasic᛻ஹ⌱⚪1.VB6.0ᐳᨵ᱐ᢥ!ᑮ#Ḅ%᣸ᑡ()A*᱐ஹ,-᱐./᱐B*᱐ஹ/᱐.,-᱐C*᱐ஹ,-᱐.0-᱐D*᱐ஹ0-᱐.,-᱐2.1234Ḅ᪗6EXE/7,?ᙠ/ᐹBCDEḄFG)஺Aᓫ⌱ᢥ;B<ᱏ᪾CIᵨKL᪾Dᦻ᪾3.NOPQRSᓫTḄUᣩWX஺AF10BF4CF5DCtrl4.YᦻZᑏ“OOP”Ḅ\])oA^G_`ḄabᑴBd᪀ᓄghC☢ᔣKkḄDPlᓄ5.Oᑡ?ᡭnឋpqḄrs)஺A᡻u“l<”SᓫCḄ“nឋpq”xyBᢥF4WCᓫz/ᐹT{Ḅ“nឋp|”ᢥ;DᢥCtrl+T6.OᑡPNᡭ3ᓽpqḄrs)஺ACtrl+DBCtrl+ECCtrl+FDCtrl+G7.ᑭᵨ“”SᓫCḄ“”Ḅ“VBCᦻ᱐”P`VisualBasic,O☢)PN`VisualBasicḄ)஺Aᡭ“ᡃḄᵯᾯ”ᑮVisualBasicᦻGḄᦻGᜳz“VB6.EXE”<᪗B᡻u“”SᓫOḄ“u”xyᐭVisualBasicP᡻uᦻGḄᦻGCᙠDOSpqOWᐭVisualBasicḄ᡻uVisualBasicP᡻uᦻGDA.B8.ᙠVisualBasicCXKk஺Ap|BFGCp|.FGDp|ஹFGஹnឋ9.p|ᦻGḄ᡽)

2AcisBfrmCbasDvbp10.NOᐵ/Ḅ¡Ḅ)஺A/¢£p|ᦻGᓽPB/¢£/ᦻGᓽP0ᐜp|ᦻG¥/ᦻGDᐜ/ᦻG¥p|ᦻG11.NO?u/Ḅrs)___oA᡻u“u”SᓫCḄ“`”xyBᓫz/ᐹTCḄ“`”xy0ᢥOF5WDᢥOCtrl+F5W12.ᵨ§KKkᓫz¨ᡈzª«D¬(®Eᢣ°ḄrsXAPlᓄB^G_`abᑴ0±ᓄ®▭D³±ᓄgh13.NOX´µṹᦻGḄ)஺A/ᦻGBp|ᦻGC᪗6·ᙽᦻGD¹ºᦻG14.NO┯¼Ḅ)oA/¹º½ᳮpqᒹÀ/ᦻGஹ/ÁᦻGஹp|ᦻGஹ᪗6·ᙽᦻGஹ·ᙽᦻGஹ¹ºᦻG஺B/¹º½ᳮpq⚔ÄÅᨵ3ᢥ;ᑖÇX“Èɵṹ”ஹ“ÈÉKk”ஹ.“ᑗᣚᦻGᜳ”஺CᵨVisualBasic(ᵨ¢ÌÍᐜp|¥aᑏ஺D¹ºᦻGCḄᔜÏ“¹º”)ÏPNТᦻஹ<ᱏஹÑÒÓÔϹºḄᦻGᐸ᡽X.res,)´ᦻᦻG஺15.OÖ⌱⚗CnVBḄ)஺A☢ᔣKkஹ%_`B/pqC☢ᔣ±ஹ^G_`D☢ᔣ±ஹ%_`16.VisualBasicᐳᨵஹu.CØÏ·Ù⌕ÛᵨÜÝ/ᐹ(Þ஺Aßᐭ·ÙBßᐭu·ÙCßᐭCØ·ÙD?ᵨßᐭàá·Ù17.NOâÖC┯¼Ḅ)஺AVisualBasic)^G_`ãPlᓄa/ᐹBVisualBasic(ᵨ?ᐹᨵäåḄ.dægç0VisualBasic/ᐹBCḄᡠᨵFGéᐹᨵêë
Width.ìë
HeightnឋDVisualBasicCFGḄíînឋ£ᙠu¢ï

318.NOC?⌨DVisualBasicnឋḄ).஺AᢥAlt+QÁᔠWBᢥOAlt+FÁᔠWᯠ7ᢥEscWCᡭ“ᦻG”Sᓫ᡻u“⌨D”xyDᢥF10Wᯠ7ᢥFW,¥ᢥXW.⚪1.VB6.0óᡂ᛻ᨵ/sõ᝱ᑖÇ)ஹ.஺2.VB6.0Cp|ᦻGḄUᣩW)ᡭ/ᦻGḄUᣩW)஺3.VB)____÷(ᵨḄa/ᐹ஺aøḄᙠ÷rsOuùëúUஹúûᐰýþ〉ᔠᙠ᛻஺4.ឋឋᨵ஺5.ᙠVB6.0Ḅᡂ᛻!ᑏ#$%ṹ'()*ᦋᵨᡝ.☢Ḅ012᝱46.VBᨬ6ᵨᨬ7⌕Ḅ9:4ឋ4ᵨᩭ<=____ḄឋḄ஺7.?@VBAᙠBḄCDᨵEFᐸHᨵIḼVB?@KLMNᩭḄᑁPQR,TU஺8.VBVWX40ᐹZᒹ\!]ஹஹ_`0ᐹZ஺9.aᦻ“Visual”Ḅcd4——஺ஹὃᫀ1⌱g⚪l.C2.C3.A4.C5.D6.D7.D8.C9.B10.C11.D12.B13.C14.C15.C16.C17.C18.B2ij⚪1.

4{|}9:~ᐸ1ஹ⌱⚪1.ᙠ?⌱AᦻḄᑁCḄឋ___஺A)TextB)LengthC)SelTextD)SelStart

510.<=LMᢥOᡂQRSLMᢥO$ᑣ&TUᐸឋW஺A)PictureB)StyleC)DownPictumD)DisabledPictureIL᪗Y>Ḅᦻ☠[\]$ᑣ&^ᐸAlignmentឋTUQ஺A)0B)1C)2D)312.Q_ᙠᢥabcde᡻gh=LMᢥOḄ◤⌕jkLMᢥOḄ<=ឋTUQTrue,l=ឋ<.A)ValueB)CancelC)EnabledD)Default13.n⌕opqr᪗ᨚetᶇᙠ$~ឋoA)MinButtonB)MaxButtonC)CaptionD)Load15.Q_ᙠge:\]vḄᑴ᪾(ᓫ)$oA)jḄControlBoxឋTUQFalse,ᐸឋB)jḄControlBoxឋTUQTrue,jBoderStyleឋTUQ1950jḄControlBoxឋTUQFalse,ejBoderStyleឋTUQ0WD)jḄControlBoxឋTUQTrue,ejBoderStyleឋTUQ0W16.~:ᡭṹḄoA)TᘤḄᙢB)ᢥaF4dC)ᓫ>Ḅ“¡ṹ”ᢥOD)⌱£“¤R”a¥ᓫ>Ḅ“ṹ”17.n⌕^¦ᑁ§ᔂ©$ᐸopḄ____஺A)ShowB)UnLoadC)LoadD)Hide18.n⌕TUᦻ᪾>ᡠ\]Ḅᦻ«⁐$&TUḄឋ<,0A)FillColorB)BackColorC)ForeColorD)BackStyle19.᝞®ᢥaESCd¯᡻gh=LMᢥO>ḄLM$ᑣ&^zLMᢥOḄ—ឋTUQTrue஺A)EnalbedB)CancelC)DefaultD)Value20.LMᢥO~:±&Ḅ஺A)DblClickB)ClickC)MouseDownD)MouseUp21.n⌕᪗Y\]e~⌚³ᐸ´µᑁC$⌕¶gTUḄឋ஺A)BackColorB)BorderStyleC)ForeColorD)BackStyle22.⌕FormlḄ᪗⚪¸\]“¹ºᵨVB”»a¼½¾¿Ḅ஺A)Forml.Text="¹ºᵨVB”B)Forml.Caption=$¹ºᵨVB'C)Forml.Caption=¹ºᵨVBD)Forml.Caption="¹ºᵨVB”23.~ÁÂÃ$ᐳᐹᨵḄឋ஺A)TextB)NameC)ForeColorD)Caption24.qᦻ᪾ḄScrollBarsឋTUᡂ_ÇW$ÈÉᨵᦔ®$ᐸËÌ____஺

6A)ᦻ᪾ÉᨵᑁCB)ᦻ᪾MultiLineឋQFalseC)ᦻ᪾ḄMultiLineឋQTrueD)ᦻ᪾ḄLockedឋQFalse25.¿Í<=ᡈḄᜧÐḄឋ<஺A)WidthᡈHeightB)WidthHeightC)TopᡈLeftD)TopLeft26.Q_h=ᦻ᪾Ñ~:Òᦈᯖ#$&^zḄÔA)TabindexឋTUQTrueB)TabStopឋTUQTrueC)TabStopឋTUQFalseD)EnabledឋTUQTrue27.aᑡឋWQÖ×ØឋḄ஺A)CaptionB)ValueC)WidthD)Height28.nᵨTextboxe$QÙᵨᡝᐭᑁC¶gÛᓽÝ$&ÙTextboxḄÞ=ß____஺A)ChangeB)IntervalC)LeftD)Top29.Ḅ◚áᑤ◀$ᑖåᵨᙠ~Ḅæᔠ$◚áFormlᑤ◀FormlḄLM஺A)HideFormlUnloadFormlB)Forml.HideForml.UnloadC)Forml.HideUnloadFormlD)HideFormlForml.Unload30.ᙠvè<=éêQtextlḄᦻ᪾<=éêQlabel1Ḅ᪗Y$⌕ë᝞aìge$ᙠᦻ᪾>ᐭḄᑁCÛᓽᙠ᪗Y>\]íPrivateSubTextl__()Label1.Caption=Textl.TextEndSubᙠaᑜïvðᐭḄᑁCoA)FocusB)ClickC)ChangD)LostFocusஹ⚪1.ᦻ᪾Ḅñòឋ<$᪗YḄñòឋ—$LMᢥOḄñòឋ—஺2.᝞®^ᦻ᪾ḄឋTUQ20,ᑣᐭᦻ᪾>ḄÖ×ᦪ~:ô20=஺3.᪗YḄ᪗⚪ᑁCõö$◤⌕᪷ø᪗⚪ùúû᦮᪗YḄᜧÐe$&TU᪗YḄឋQTrue஺n◤⌕᪗Yᙠᚖþᔣᓄᜧ᪗⚪〉ឋTrue஺4.ḄLoadᙠᑮᑁ!"#Ḅ஺5.ᙠ$%&'(⌕*+ᵨᢥ.ᡂ01234567ᑣḄឋFalse஺ᙠ$%&'(⌕*+9:ᢥ.ᡂ042ᑣVisibleḄឋo6.;<=!>?@AB=C:DEFC:;<ḄGHᢥ.ḄDE3ᨬJᵨᨵLMḄDEGHᢥ.ᨵLMḄDENOOP஺7.VB6.0QRST☠ḄSTḄឋ8.᝞W⌕XḄᨬᜧᓄᢥ.Yᨬᓄᢥ.Z[ᣵ]ḄYឋ

7ᡂFlaseo9.fg;Wordwrap4.@A5.EnabledஹFalse6.Command1Cmd7.Name8.MaxButtonMinButton9.¾$ஹ¾$1ឋஹqᵨஹForml.show10.Ctrl11.ឋ¿12.Àஹ$%&'Áᡈ&'¥13.ScrollbarsFÅÆᦪÈÉᐸ&Ëஹ⚪1.ᙠVB6.0(ᔠÎḄÏ᦮ÑÒ_____oA)123456B)0&C)31276!D)345#2.ÖᑡØ:⌱⚗(4VBᦪÙÑÒḄ____oA)2E8B)2E0.6C)1234D)1.5E-43.ᨵ᝞ÖÒÛÜDimTestDateAsDateÒTestDateÝÞßÙḄ⊤áâã.A)TextDate=#l/l/2002#B)TestDate=#T/l/2002”#C)TextDate=date(l/l/2002/)D)TestDate=Format("m/d/yy",“1/1/2002")4.VB6.0ëì4ḄᦪÈᓰᵨḄî°4Ḅ஺ÖᑡᔜðᦪÈ(ᓰᵨî°ñᑮᜧò%᣸ᑡḄ஺

8A)Byte,Integer,Long,DoubleB)Byte,Integer,Double,BooleanC)Boolean,Byte,Integer,LongD)Boolean,Double,Long,Integer5.Ö☢ÒD4ᔠÎḄ____«A)aB)abedC)a$xD)C_E6.VB6.0(᡻'Ö☢ḄØ:}~!ö÷┯ùḄ____.A)x=C0S(0)B)x=SQR(-4)C)x=L0G(2)D)x=SIN(0)7.Ö☢ḄØ:⊤áã}ÎÝÞḄ_____஺A)a>b.AND.bOcB)a>bcC)a>bAND<>cD)a>bANDbOc8.VB(⊤áãCOS(0)+ABS(-1)+INT(RND(1))+SGN(-5)ḄÙ_A)1B)-30-2D)29.ᙠÖ&Ë(úᐜüᨬýḄ____oA)/B)\C)ModD)*10.Ö☢þÿ⊤
ḄᎷḄ____஺A)"Ab"<"a"B)"a">"95"C)"123"ு"45"D)123>4511.᡻Ḅ____ola=22lb=20la=Ib-Iaa=Ltrim(Str(lb)+Str(la)+STR(lb))PrintaA)20-220B)18020-220D)"18”12.a᦮!⊤
ᦪ#ᐵ%&10=10Ora<=15B)a>=10Anda<=15C)a>10Anda<15D)a>10AndNot(a>=15)13.᡻☢)*Ia=12Ib=10Ia=Ib-IaIb=Ib+IaIa=-Ib'2laḄ«A)64B)-64C)100D)-10014.⊤
3-2*2+3MOD10\4Ḅ«A)18B)1019D)015.☢Ḅ,ᔠ.ḄoA)knameB)kameC)nameD)k-name16.0a=4,b=5,ᑣᑡ⊤
3ḄoA)(True+a)>0Andb>10B)a>bOrb>10-aC)(False-b<0)Eqv(a>b)D)a>bXorb+3>5

917.Ꮇboolx4567(9:)Ḅᑣ☢!Ḅ<)*A)bool_x="False'B)boolx=.False.C)bool_x=#False#D)bool_x=False18.=>)*?┯AḄߟoA)Constvarl=123B)Dimvar2='ABC'C)Deflnta-zD)Staticvar3AsInteger19.ᑡC5DE⌕GḄ!⊤
&HIᙠ20ᑮ60LM(ᒹOHI20P60ᙠᑁ)ᡈSTUV500Ḅ᝕XS__஺A)20ீ=HIீ=60andST[500orឋ]="᝕"B)20ீHI;=60andST[500orឋ]="᝕"C)20ீ=HIீ=60andST[500andឋ]="᝕"D)(20;=HIandHI;=60orSTீ500)andឋ]="᝕"20.^,_.!Ḅ஺A)`abcdᜮᦪbᡈᐸgbhB)VisualBasicḄiᶇbC)kᒹlbcஹᦪbஹᑜoP᪗qhrD)st2555bh21.a=1,b=3,C=3,d=4,☢9:⊤
Ḅ3ḄA)Sqr(d)>bB)d>cAndb>aC)Abs(a-d)

10C)x=INT(RND*m)+nD)x=INT(RND*(n-m))+m28.ᵨVᣵ45bhḄḄ¡¢ᑖḄ¤ᦪoA)RTrimOB)Right()C)Asc()D)Time()29.!⊤²ᩩ´“µ5᦮APBL40,·¸¹0”Ḅ67⊤
______oA)A*B=OandA+BOOB)(A=0orB=0)and(AOOOrBOO)C)not(A=0AndB=0)and(A=0orB=0)D)A*B=0and(A=0orB=0)30.ᨵ᝞=>&DimXAsInteger᝞Sgn(X)ḄT,ᑣXḄ______஺A)᦮ᦪB)ᜧV0Ḅ᦮ᦪC)ÂV0Ḅ᦮ᦪD)ÃV0Ḅᦪ31.ᑡ᡻Ḅ4X=l&y=3&z=5Print"A("x+z*y;X>YA)A(16)FalseB)A(16)0C)A(1+5*3)FalseD)A16True32.2="Ð1$Ò1Basic",☢Ób="Basic”Ḅ)*஺A)b=Left(a,8,12)B)b=Mid(a,8,5)C)b=Rigth(a,5,5)D)b=Left(a,8,5)33.ØᵨConstAAsInteger=9.8ÙÚᑡÛÜ!Ḅ__A)A᦮ÝᦪB)A᦮C)AbhÝᦪD)AÞßḄÝᦪ34.⊤
InStr("ABCDEFG","DE")+"100"Ḅ஺A)4100B)10040104D)┯35.ᦪ#⊤
Cos?(a+b)+5e2ᑏᡂVisualBasicḄ⊤
ᐸ!Ḅå஺A)Cos(a+b)-2ᓝ5*Exp(2)B)Cos"2(a+b)+5*Exp(2)C)Cos(a+b)"2+5*Ln(2)D)Cos"2(a+b)+5*Ln(2)36.ᙠçṹè:ᘤ?04ᩩ)*tê◤⌕᡻ìᑏ)*¹kᵨíîh஺A)45ᑜoB)45ïð45ᑜo045ñr"4"D)45ïð45ñr஻4”37.kᙠÝḄ☢ðóß_>hô²ÝḄßkᵨ⊤²bhÝ஺DA)%B)#C)!D)$38.hr%=>ßḄßÙÚh஺A)IntegerB)VariantOSingleD)String39.ᙠVisualBasic?kᙠ_____?øù¤ᦪᡈ⊤
Ḅ஺A)úûüB)^ýþÿᘤC)ᓽD)ឋ40.᡻cḄ஺

11a஻VisualBasicProgramingzb="Quick"c=b&UCase(Mid(a,7,6)&Right(a,11)A)VisualBASICProgramingB)QuickBasicProgramingC)QUICKBasicProgramingD)QuickBASICPrograming41.Mid("HelloEveryone”,7,3)Ḅ᡻JKL___஺A)ongB)everyC)EveD)one42.ᙠPQ.RSTUVCommandlḄWXᢥZ[ᑏᑡ^PrivateSubCommand1Click()DimaAsIntegerStaticbAsIntegera=a+bb=b+4Printa,bEndSub`ᓫbcWXᢥZdefgQhiḄLoA)412B)04C)48D)81243.ᙠPQ.R•TUVCommandlḄWXᢥZᯠ[ᑏ᝞:PrivateSubCommandl_Click()DimxAsIntegerStaticyAsIntegerCisx=x+5y=y+3Printx,yEndSub`qreᓫbWXᢥZCommandlPhiḄJKLSA)106B)56C)53D)10344.ᙠPQstSTWXᢥZu[ᑏ᝞^PublicEnumworkdaysSunday=0MondayTuesdayWednesdayThursdayFridaySaturday

12invail=-1EndEnumPrivateSubCommand1ClickODimmydayAsworkdaysmyday=SaturdayPrintVai(myday)EndSub`ᓫbWXᢥZ|}ḄJKLOA)SaturdayB)6C)FalseD)-1ஹ⚪1.~T"d"ஹ"E"ஹ"9"ḄAḄIIṹᨬḄL___஺2.ᦪChr(65)+Chr(66)L.3.⊤Abs(-5)+len("ABCDE")+Int(-5.6)+ABS(-D+SQR(4)ḄL஺4.᝞K⌕aᙠ☟᝱Ḅ᦮ᵨḄL5.᪷Ḅᵨ¡ᑖd£¤¥Lஹ6.¦§ST¨ᦻªᒹ¬STPPQᨵrTᦻ®᪾°STWXᢥZᓫbWXᢥZ,ᡭ²³ṹ[´ᙠtᐭᑡ¶ª^PrivateSubCommandl_Click()Textl.Text="abcde”Text2.Text=Textl.TextTextl.Text="edcba”EndSub`ᓫbWXᢥZTextl°Text2Ḅᑁ¸ᑖ¹°஺7.⊤6.4Mod34\3_2ḄL____⊤3\3*3/3MOD3ḄL஺8.ᨵ᝞^DefStrX-ZPrivateSubcommandl_Click()X="123":Y="456"Z=X+YPrintZEndSub`ᓫbWXᢥZÁÂḄJKLO9.Ã@="ᓅÆ"b="Shanghai",ᑣ⊤LEFT(a,2)+STRING(3,"Ë')+LEFT(b,8)᪀ᡂḄL஺10.⊤"Flying"+""+Lcase("lS")+""+UCASE("funny!")ḄL஺

1311.⊤VAL(123E2CD")ḄL______஺12.᦮ÐMÑÒÓSTrÔᦪ⌕rÔᦪÕᣚÔ×Ø᝞24ᡂ42,ÙÚḄ⊤஺13.⊤String஺“Iamstudent")+Replace(z/amharass","rass","ppy")&"\"ḄLoஹὃᫀ1)⌱Þ⚪1.B2.B3.A4.A5.C6.B7.D8.A9.C10.C11.A12.A13.B14.C15.A16.D17.D18.B19.D20.C21.B22.D23.B24.D25.B26.B27.A28.A29.D30.D31.A32.B33.A34.C35.A36.B37.D38.A39.C40.D41.C42.D43.B44.B2)àá⚪1.92.஻AB஻3.74.StaticaAsInteger5.âãஹäᙽஹᐰâ6.஻edcba஻ஹ“abcde”7.0>18.1234569.஻ᓅÆShanghaiz10.“FlyingisFUNNY"!11.12.312.(Mmod10)*10+M\1013."Iamhappy!"è~éᦪÁᐭêÁÂஹ⌱⚪1.ḄÁÂJKL______oPrintFormat(32548.5,"000,000.00H)A)32548.5B)32,548.5C)032,548.50D)32,548.502.PrintFormat(32548.5,"####,##.##")஺A)#325,48.5#B)325,48.5C)032,548.50D)32,548.53.ᑡ`ᓫbWXᢥZdePhiaஹbḄL஺PrivateSubCommand1Click0DimaAsIntegera=a+1PrintaEndSubA)3B)1C)0D)44.Ãᨵx=InputBox(“Áᐭᦪ”“0”“iØ”)`᝞KìíîQÁᐭᦪ10uᢥïíᑣᑡðñòóḄL

14AôXḄLᦪ10BôᙠInputBoxõö᪾᪗⚪øhiḄL“iØ”00LùúDôXḄL“10”5.☢ðñòóḄL஺AôSpcᦪüýᵨþPrintÿ
ᵨ⊤BSpaceᦪᵨPrint
ᵨ⊤0SpcᦪSpaceᦪᙳᡂ!"ᨵ$%D'()ᙳ*+6.ᙠVB0ṹ
23456ᔠ8ᑏᙠ:;(Ḅ8;=>.AᥗAB’BᑈABECGHABIDJA(*)7.56Print"10+6="P10+6QRḄST>—A)10+6=10+6B)10+6=16C16=10+6D"10+6="10+68.XᑡZ[\;+]^ᓫ`abcdeḄST>PrivateSubForm_ClickDimbAsIntegerStaticcAsIntegerb=b+2Ec=c+2Print"b="b;"c=";cEndSubA)b=2c=2B)b=2c=2b=2c=2b=4c=4C)b=2c=2D)b=2c=2b=2c=4b=4c=2ᨵXᑡZ[PrivateSubCommandl_Click()xl=InputBox(஻zQᐭ஻)Printxl+111;xl+EndSub\;Z[ᓫ`|}ᢥ8Qᐭ123,ᑣᙠab(QRST>.A)123111234B)234123111C)123111123111D)deR┯10.᝞Tᙠᓽa
᡻;'XEa=8B>Xb=9Printa>bᑣQRST>oC

15A)-1B)0C)FalseD)True11.\;X☢ḄZ[cᓫ`abᑣᙠab(QRbḄOPrivateSubFormClick()a=800Lb=30a=a+bLb=a-bLa=a-bprintbEndsubA)30B)800C)770D)830e12.XᑡZPrivateSubCommandl_Click()N=஻AAAAA஻Mid(N,2,3)=஻BBB஻PrintNEndSub\;Z[cᓫ`|}ᢥQRḄST>____OA)஻ABBBA஻B)஻AABBB஻C)ABBBAD)AABBB13.ᙠab(NameឋForml)(]4ᦻ᪾(ᐸNameឋᑖ%Textl£Text2)£•4|}ᢥ(NameឋCommandl),ᯠc¦ᑏ᝞X]4ZEPrivateSubCommandl_Click()a=Textl.Text+Text2.TextPrintaEndSubPrivateSubForm_Load()Textl.Text=”"Text2.Text=""EndSubZ[\;cᙠ§:4ᦻ᪾(Textl)£§¨4ᦻ᪾(Text2)
ᑖ%Qᐭ78£87,ᯠcᓫ`|}ᢥᑣQRSToA)165B)8778C)7788D)788714.\;X☢ḄZ[cᓫ`|}ᢥᑣᙠab(QR___஺PrivateSubCommandl_Click()PrintFormat(4123.479,஻###.##%஻)EndSubA)412347.9B)412347.9%C)4123.48%D)4123.47%15.X☢ª456
ᡭᓺde20*30᪵Ḅ>oA)Print஻20*30஻B)Print20*30C)PnntChr(20)+஻஻+chr(30)D)Printval(“20஻)*val(஻20஻)

1616.᡻;᝞X56:PrivateSubCommandl_Click()a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday”,5)EndSub2de:4Qᐭ°±᪾ᙠ°±᪾ḄQᐭ$
deḄ>OA)TodayB)TomorrowC)YesterdayD)Daybeforeyesterday17.⌕³PrintᙠForm_Load
´ᵨµ2abḄ____ឋ¶·True஺A)BackColorB)ForeColorC)AutoRedrawD)Caption18.᡻;XᑡZ[ᓫ`|}ᢥᑣᙠab(QRoPrivateSubCommand1Click()a$=஻43஻b$¨஻21஻c$=a$&b$d=Vai(c$)Printd\10EndSubA)432B)432.1C)1D)432\1019.ᵨᩭ¶·¹bḄឋ>஺A)FontltalicB)FontNameC)FontBoldD)FontSize20.\;᝞XḄZ[ᓫ`|}ᢥᑣᙠab(QR____oPrivateSubCommandl_Click()a$="This"b$=஻app]e஻Printa$+஻isa஻&஻஻&b$&஻I஻EndSubA)Thisisaapple!B)Thisisaapple!C)This+isa&apple&!D)ThisIsaApple!21.᡻;XᑡZ[ᓫ`|}ᢥcᙠab(QRST>oPrivateSubCommandl_Click()a=3:b=4:C=4a=b=CPrinta;Printa=b=CEndSubA)FalseFalseB)TrueFalseC)TrueTrueD)-10

1722.᡻;XᑡZ[ᓫ`|}ᢥcᙠab(QRST>:PrivateSubCommandl_Click()DimAAsIntegerA%=456:A=232.45B=23.5PrintA%PAEndSubA)456232.45B)232.32232.32C)232232D)deR┯23.᡻;XᑡZ[ᓫ`|}ᢥcᙠab(QRST>oPrivateSubCommand1Click()ConstPI=3.14PI=3.1415PI=3.1415926PrintPIEndSubA)3.14B)3.1415C)3.1415926D)deR┯24.ᙠab(:4|}ᢥ¼½Command1஺ᓫ`|}ᢥ+᡻;᝞XZ:PriVateSubCommand1ClickOa$=z*softwareandhardware”b$=Right(a$,8)c$=Mid(a$,L8)Msgboxa$,,b$,c$,1EndSub\;Z[cᓫ`|}ᢥᑣᙠÈRḄÉ᪾Ḅ᪗⚪Ì
deḄ>OA)softwareandhardwareB)softwareC)hardwafeD)1ஹ⚪1.printformat(32548.5,"##,####.##")ḄQRST>஺2.printformat(32548.5,"000,000.00")ḄQRST>஺3.2ÎÏabQRḄbᦋÑbdeḄ56,2ÎÏabQRḄbÒXᑜÔḄ56஺4.InputBoxᦪÕḄÖ×,MsgBoxᦪḄÕḄÖ×஺

185.᡻;XᑡZ[Qᐭ᪾Ḅ᪗⚪>Qᐭ᪾
deḄØḕ=ÚoPrivateSubCommandl_Click()InputBox஻ok஻஻Qᐭ஻Format(஻&hl2஻)EndSub6.ᎷÝÎÏÞß2002à12ᨴ16ÞJß:ᑣ᡻;'X56cQRSTᑖ%>>16ஹ12ஹ200£oPrintDay(Now)printMonth(Now)printYear(Now)PrintWeekday(Now)7.Print"Visual";"Basic”QRḄST>——஺8.MsgboxᦪḄ§ç4èᦪ>ᵨᩭ¶·°±᪾Ḅo9.InputboxᦪḄ§ç4èᦪ>ᵨᩭ¶·°±᪾Ḅoஹὃᫀ1)⌱ê⚪1.C2.D3.B4.D5.B6.B7.B8.C9.B10.C11.B12.C13.D14.B15.A16.C17.C18.A19.C20.B21.B22.C23.D24.C2)ë⚪1.32,548.52.032,548.503.FontItalic=True>FontUnderLine=True4.=×ஹᦪ×5.Qᐭஹ18(î᪆Ehl2>ᓝñòᑴ,12ôᓝòᑴ=lxd+2X16°=186.27.VisualBasic8.᪗⚪9.÷ø§ùúûᵨ᪗üýஹ⌱⚪1.ᙠab(ᨵ:4ᦻ᪾ý¼½TxtTime,:4þ+ᘤ
Timerl,⌕ᙠᦻ᪾Ḅ!"PrivateSubTimer1()TxtTime.text=TimeEndSubᙠ4ᑜ6789ᐭḄᑁ<=oA)EnabledB)VisibleC)IntervalD)Timer2.GHᩩḄJKLឋ=஺

19A)MinB)MaxC)ValueD)Name3.Rᘤ
᝞UVWXY10[\
ᑣ⌕^IntervalLឋḄ_`a஺A)100B)200C)300D)4004.Check1f⌱᪾Dirlhiᑡ⊤᪾Textlᦻ᪾Optionlᓫ⌱᪾ᑣo4p_qr┯tḄ=A)Checkl.Caption="grayed"B)Dirl="C:'windows\"C)Textl="ᡃḄᦻ᫏"D)Optionl.Value=grayedz5.4ᑡḄ=oA)JK4Rᘤ
ᙠ!ᙠ7B)ᑡ⊤᪾Ḅ⚗h`a⚗⌱C)ᑡ⊤᪾^⚗hHᢥ!ᵫᜧᑮ᣸ᑡD)᪾
ᨵClick¢DblClick\
6.⌕¤Rᘤ
TimerlḄTimer\
¥¦ᵨo4Ḅqr=____஺A)Timerl.Visible=FalseB)Timerl.Enabled=FalseC)Timerl.Inerval=1000D)Timerl.Index=07.^ᦪ¬⚗“China”¯°ᑮᑡ⊤᪾(Listl)ᡂ³⚗8¤ᵨḄqr=஺A)Listl.Additem"China”,஺B)Listl.Additem"China”,1C)Listl.Additem0,"China"D)Listl.Addltem1,"China”8.µᵨᑡ⊤᪾(Listl)ᨬ·[ᦪ¬⚗8¤ᵨḄqr=____஺A)Listl.List(Listl.ListCount)B)Listl.List(Listl.ListCount-1)C)Listl.List(ListCount)D)Listl.List(ListCount-1)9.º»¤ᑴ◞0.25¾¿Timer஺\
,ᑣÀ^IntervalLឋ_`A)Interval=0.25B)Interval=25C)Interval=250D)Interval=250010.ºVWᑖᡂÂäᵨ[OptionButtion
ÄᡂÅÆḄ
=A)PictureBoxB)ImageBoxC)FrameD)Shape1L4ᑡÇÈḄ=_A)ÉÊᢥËḄJKLឋCaptionB)᪗ÍḄJÎLឋCaption0f⌱᪾ḄJKLឋvalueD)GHᩩḄJKLឋvalue12.᝞Uᑡ⊤᪾(List)ÏᨵÐ⌱Ḅ⚗hᑣ᡻Listl.RemoveitemListl.ListindexqrḄÓU=…஺A)ÕÖ³⚗B)ÕÖᨬ·⚗C)ÕÖᨬ·°ᐭᑡ⊤Ḅ⚗D)¿Y┯t13.4☢Ḅ=——஺A)GHᩩḄÙ⌕\
=Change¢ScrollB)᪾ḄÎ⌕¦ᵨ=^
ᑖÃoÄᡂᔜÛÜÝÞḄÆ

200Ãᔠ᪾=Ãᔠàᦻ᪾¢ᑡ⊤᪾ḄᱯឋâãᡂḄä
D)Rᘤ
ÀoåæÜVisibleLឋḄ`aᙠ!ᙠ714.ᙠ7ç•[Check1f⌱᪾ᙠ!Ḅæº⌱f⌱᪾ᑣCheckl.valueḄ_=_A)TrueB)2C)0D)115.ᙠ7ç[éêGHᩩHScrolll,ìç[ᦻ᪾Texth⌕»¤ᵨGHᩩíᙽḄïᓄñᩭóᵨᦻ᪾ᦻḄᜧᑣÀôõḄqr=஺A)Textl.FontName=HScrolll.MaxB)Textl.FontSize=HScrolll.MinC)Textl.FontSize=HScrol11.valueD)Textl.FontBold=HScrolll.value16.Üö.cis÷Ü
ᨵᦔ஺A)ஹúû᪾B)ஹúᱏ᪾C)ýþஹD)úû᪾ஹúᱏ᪾17.4ᑡ
ÏᨵCaptionLឋḄ=____஺A)᪾B)ᑡ⊤᪾C)f⌱᪾D)ᓫ⌱ᢥË18.Ãᔠ᪾Combolÿ
ᦪ⚗“”ᑡḄ஺A)Combo1.Text=""B)Combol.Listindex="”C)Combol.Additem”"D)Combol.Additem="”19.᝞/⌕ᙠ234ṹ678ᱏ᪾;᝱=>?◀8ABCᑭᵨ஺A)InputBoxB)InputC)LoadPictureD)PaintPicture20.O⌕?◀ᑡ⊤᪾ḄᡠᨵᑁTBᵨᩭVWḄXY
A)RemoveitemB)ClsC)ClearD)C\ᙳ^BC21._`ᔠ᪾Ḅ____cឋe72f;^ᐕiᵨᡝᙠ`ᔠ᪾6kᐭmnᦻp஺A)ListB)TestC)ListCountD)Style22.stᓫvw;ᩩyz{ᜮfw;ᩩk}Ḅ~ᓄe5,ḄcឋA)SmallchangeB)LargechangeC)valueD)Fast23.ᙠ234ṹ6?◀8ᱏ᪾Picturel6Ḅ8Ḅ஺A)Picturel.PictureB)Picturel.Picture=LoadPicture("")C)Picture.Image=""D)Picture.Picture=null

21ஹ⚪1.ᓫ⌱᪾ᔲ⌱6Ḅcឋ___,_cឋe7f⊤⌱᪾⌱6஺2.`ᔠ᪾ᨵ3^Ḅ3ᑡ⊤᪾ஹᓫ`ᔠ᪾>
ᑖ¡¢£¤cឋ72ஹ1ஹ0ᩭVW஺3.ᦻ¥ᑡ⊤᪾>¦§ᑡ⊤᪾¨¥Ḅ©ªcឋ«___,¬;ᘤᑡ⊤᪾Ḅ©ªcឋ.
஺4.ᙠ¯☢f,⌕±ᔣᑡ⊤᪾6¢£Listcឋkᐭ³´ᦻµᙠkᐭ
´¶·ᵨ.¸VWᦻpḄᣚ´஺5.º;w;ᩩ6»ᙽ½¾¿w;ᩩḄ.À¥஺6.7ÂÃᑡ⊤᪾6Ḅ⚗¦ᑖ7³ᑡÄ◤⌕Ḅcឋ஺7.?◀ᑡ⊤᪾ᡠᨵᑁTḄXY___,?◀ÇÈᡈ8ᱏ᪾\ᡠᨵᑁTḄXY_____஺8.Ꮇ᝞ᑡ⊤᪾(L1)ᨵ3ᦪ⚗Ìͤᦪ⚗“Apple”Îᑮᑡ⊤᪾Ḅᨬ·ÃᵨḄo9.8ᱏ᪾6=8ᱏf7ÂÃ8ᱏ᪾〉8ᱏḄᜧÓÔ8ᱏ᪾Ḅcឋ7True஺ÕᙠÖ8×᪾6=8ᱏf7ÂØ8ᱏ½〉8×᪾ḄᜧÓÕÙ;ÚÛÔ8A᪾Ḅcឋ7True.10.
Ü7pic2.gifḄ8ᦻ¥⌕ᙠÞ´ßà¤ᦻ¥áᐭ•8ᱏ᪾(Pictured,᡻´Ḅo11.ÇÈ\ä
ᑡ⊤᪾>
ᦻp᪾ᯠ·æᑏ᝞yÀ¥£2èPrivateSubForm__Load()Listl.Additem"357"Listl.Additem"246”Listl.Addltem"123"Listl.Additem"456"Textl.Texté஻஻EndSubPrivateSubListl_DblClick()M=Listl.TextPrintM+Textl.TextEndSub23Þ´·ᙠᦻp᪾6kᐭ“123”ᯠ·ïvᑡ⊤᪾6Ḅ“456”ᑣk}ñ/7ஹὃᫀ1)⌱ò⚪

22l.D2.C3.A4.D5.C6.B7.A8.B9.C10.Cll.A12.D13.D14.D15.C16.B17.B18.C19.C20.C21.D22.A23.B2)ôõ⚪1.ValueTrue2.`ᔠ᪾ஹStyle3.path>Drive4.Ctrl+Enter5.Scroll6.Columns7.clear>cis8.LI.Additem"Apple஻Listl.ListCount9.AutosizeStretch10.Picture௃.Picture=LoadPicture(஻pic2.gif")11.456123úûü¨ᑴñ᪀ஹ⌱⚪1.a=8,ᑣ᡻´x=IIF(a>10,-1,0)xḄA)5B)6C)0D)-12.☢PrivateSubForm_Click()b=3:a=2:C=4PrintIIF(a>=b,a,IIF(Ob,C,b))EndSub45ᓫ789:;Ḅ<=>OA)0B)3C)2D)43.☢PrivateSubForm_Click()k=2Ifk>=lThena=3Ifk>=2Thena=2Ifk>=3Thena=lPrintaEndSub45ᓫ789:;Ḅ<=>஺A)1B)3C)2D)44.☢PrivateSubFormClick()k=2Ifk>=lThena=3Elselfk>=2Thena=2

23Elselfk>=3Thena=lEndIfPrintaEndSub45ᓫ789:;Ḅ<=>CA)1B)2C)3D)45.☢PrivateSubForm_Click()K=2Ifk>=lThena=3:GoToabIfk>=2Thena=2:GoToabIfk>=3Thena=lab:Printk;aEndSub45ᓫ789:;Ḅ<=>oA)21B)22024D)23ᱯHIJKLMNH3ஹ4ஹ5⚪Ḅ᡻5R஺6.TᨵᑡWXKx=5Ifx>0Theny=5y=1045ᑣᑡ[\]^_Ḅ>oA)`ayḄ>5B)`ayḄ>10C)`axḄ>5,`ayḄ>5D)`ayḄbc_d7,᡻5ᑡWX᦮g`aaḄ>.If(3-2)>2Thena=10Elself(10/2)=6Thena=20Elsea=30EndIfA)10B)20C)30D)b_d8.ᑡPrivateSubForm_Click()Dima,b,xAsIntegera=InputBox(஻a=?஻)b=InputBox(/zb=?")

24x=a+bIfa>bThenx=a-bPrintxEndSub45ᓫ789qrst:ᐭ2v4,:;Ḅ>A)6B)-2C)2D)249.ᑡxḄ᡻5<=_____஺X=Int(Rnd()+4)SelectCaseXCase5Print஻{|஻Case4Print஻}~஻Case3Print஻R஻CaseElsePrint”bR஻EndSelectA){|B)}~C)RD)bR10.☢PrivateSubForm_Click()s=Val(InputBox(^inputvalueofs:஻))SelectCasesCaseIs<6f=s+lCaseIs<5f=s+2CaseIs<4f=s+3CaseElsef=s+4EndSelectPrints;fEndSub45ᓫ789qrst:ᐭ6,:;<=oA)67B)68C)69D)61011.☢PrivateSubForm_Click()score=Int(Rnd*10)+80

25SelectCasescoreCaseIs<60஻஻a=rCase60To69a஻D஻Case70To79a=஻C஻Case80To89a=஻B஻CaseElsea=஻A஻EndSelectPrintaEndSub45ᓫ789:;Ḅ<=>஺A)AB)BC)CD)D12.ᎷTxḄ5,ᑣᙠ᡻5WXᐸ:;<=“0K”ḄSelectcaseWX>A)SelectCaseXB)SelectCaseXCase10to1CaseIs>5,Is<5Print஻0K஻Print஻0K஻EndSelectEndSelectC)SelectCaseXD)SelectCaseXCaseIs>5,1,3to10Case1,3,Is>5Print"OK"Print஻0K஻EndSelectEndSelect13.ᙠ89Cᢥ,Commandl஺ᦻ᪾ᑖHTextlஹText2ஹvText3஺C᪗Labell஺ᑡ45,ᦻ᪾TextlஹText2>vText3ᑖH:ᐭḄᑁ>23,67,12,ᯠᓫ7ᢥᑣᙠ᪗]¡JḄᑁ>஺PrivateSubCommand1_Click()Dima!,c!,d!a=Vai(Textl)Kb=Vai(Text2)Kc=Vai(Text3)Ifb>aThend=a:a=b:b=dEndIfIfb>cThenx=b

26Elselfa>cThenx=cElsex=aEndIfLabel1.Caption=xEndSubA)67B)23C)12D)b_d14.☢45ᓫ789:;Ḅ<=>______஺PrivateSubForm_Click()x=100:a=10:b=20:okl=True:ok2=FalseIfa15ThenIfNotoklThenX=-lElseIfok2Thenx=10x=~1EndIfEndIfEndIfPrintxEndSubA)-1B)10C)1D)b_dḄ15.DoUntil...Loop¦§Ḅ¨c>஺A)ᐜªᐭ¦§᡻5WXx«¬ᑨ®>ᔲ¬ªᐭ¦§B)ᐜªᐭ¦§᡻5WXx«¬ᑨ®>ᔲb¬ªᐭ¦§O᡻5°ᐜᑨ®>ᔲb±²ᩩ´µb±²¶ªᐭ¦§D)᡻5°ᐜᑨ®>ᔲb±²ᩩ´µ±²¶ªᐭ¦§16.☢45ᓫ789:;Ḅ<=>oPrivateSubFormClickOs=0:n=5Fori=1Tons=s+iNextiPrints·iEndSubA)155B)201C)156D)30517.ᑡ

27PrivateSubFormClick()Forj=1To20a=a+jmod5NextjPrinta;jEndSub45ᓫ789:;ḄoA)4021B)3421C)2134D)342018.᡻5☢ḄXḄox=50Foxi=lTo20Step2x=x+i\5NextiA)66B)16C)68D)6919.ᑡPrivateSubForm_Click()Forj=1To20step2Ifj\3=j/3Orj\5=j/5ThenSum=Sum+jEndifNextjPrintSumEndSub45ᓫ789:;Ḅ<=>OA)27B)15C)32D)2020.ᑡPrivateSubForm_Click()m=lFork=3To1Step-1xString(k,")Printm;xm=m+lNextkEndSub45ᓫ789:;Ḅ<=>஺A)1*B)1*C)3*D)1***2**2*2**2**3***3*1***3*21.ᑡxḄ᡻5<=—o

28X=l:Y=1Fori=lTo3F=X+YX=Y:Y=FPrintF;NextIA)236B)222C)234D)23522.☢PrivateSubForm_Click()Sum=0:P=1Forj=1To6IfJMOD2=0ThenSum=Sum+jELSEP=P*JEndIfNextjPrintSum,PEndSub45ᓫ789:;Ḅ<=>OA)1215B)2115C)¡J┯¿ÀÁD)151223.ᑡPrivateSubForm_Click()b=1Ka=1DoWhileb<100a=2*aIfa>6ThenExitDob=a*2+b*2LoopPrintbEndSub45ᓫ789:;Ḅ<=>஺A)40B)41C)42D)4324.☢᡻5ᓫ789q:ᐭ32v24,:;Ḅ<=>—oPrivateSubForm_Click()Dimm,nAsIntegerDima,b,rmValQnputBox(஻Ä:ᐭCᦪ஻))

29n=Vai(InputBox(“Ä:ᐭCᦪ஻))a=m:b=nr=aModbDoWhiler<>0a=bKb=rr=aModbLoopprintbEndSubA)2B)4C)6D)8LKƨc>ÇÈᦪḄᨬᜧËÌᦪ஺25.☢PrivateSubFormClick()c=4x=Vai(InputBox(“Ä:ᐭCᦪ஻))Whilex<>-999Ifx>cThenc=xx=Vai(InputBox(஻Ä:ᐭCᦪ”))WendPrintc;:PrintAbs(x)EndSub45ᓫ789q:ᐭ9,8,2,-999,:;Ḅ<=>oA)98B)92C)9999D)299926.ᙠ89CᢥᯠÍᑏ᝞дRKPrivateSubCommandl_Click()x=0DoUntilx=-1a=InputBox(஻Ä:ᐭaḄ”)a=Vai(a)b=InputBox(஻Ä:ᐭbḄ஻)b=Vai(b)x=InputBox(஻Ä:ᐭxḄ஻)x=Vai(x)a=a+b+xLoopPrintaEndSub45ᓫ7ᢥÑÒᙠ:ᐭÓÔ᪾]:ᐭ10ஹ8ஹ9ஹ2ஹHஹT,ᑣ:;<=o

30A)12B)13C)14D)1527.ᙠ89ᓃCᢥᯠÍᑏ᝞дRKPrivateSubForm_Click()K=l:n=263Dok=k*(nMod10)n=n/10LoopWhilenPrintkEndSub45ᓫ7ᢥᑣ:;Ḅ<=>CC஺A)0B)0.1C)D)10LKWX"LoopWhilen”×ØÙ"LoopWhilen<>0"26.3mod10=6,2.63mod10=328.ᙠ89ÈᑖHTextlஹText2Ḅᦻ᪾vCCommandlḄᢥᯠÍᑏ᝞дRKPrivateSubCommandl_Click()DimxAsInteger,nAsIntegerx=lKn=0DoWhilex<20x=x*3Kn=n+1LoopTextl.Text=Str(x)Text2.Text=Str(n)EndSub45ᓫ7ᢥᙠÈᦻ᪾]¡JḄᑖH>oA)15v1B)27v3C)195v3D)600v429.☢PrivateSubFormClick()a="54321":b="abcde"Forj=1To5PrintMid(a,6-j,1)+Mid(b,j,1);NextjPrintEndSub45ᓫ789:;Ḅ<=>OA)alb2c3d4e5B)a5b4c3d2elC)eld2c3b4a5D)la2b3c4d5e30.ᑡx]c^Ú<Û¦§Ḅ>o

31A)I=1B)I=5DoDo1=1+21=1+1LoopUntilI=10LoopUntilI<0C)I=10D)I=6DoDo1=1+11=1-2LoopUntilI>0LoopUntilI=L.DoUntil¦§WX]Üᩩ´“Ý”<Û¦§஺31.᡻5Þ☢ßᔠ᪾]ᦪá⚗Ḅ>_____oPrivateSubForm_Click()Fori=lto6Combol.AdditemiNextIFori=1to3Combol.RemoveIterniNextiEndSubA)156B)1350456D)24632.☢PrivateSubForm_Click()S=0Dos=(s+l)*(s+2)Number=Number+1LoopUntils>=30PrintNumber;sEndSub45ᓫ789:;Ḅ<=>OA)01B)3030C)430D)318233.☢For1=1to3Forj=5to1Step-1PrintI*jNextjNextI45ᑣWXPrintI*jḄ᡻5ÒᦪãIஹjḄᑖH>CA)1540B)1631C)1740D)1831

3234.ᑡ45ᓫ789ᑣᙠ89¡JḄᑁ>.PrivateSubForm_Click()Forn=1to3Form=1tonPrintm;NextmPrintNextnKEndSubA)1B)12303D)112122221231133335.☢PrivateSubFormClick0Forx=1To2a=0Fory=1Tox+1a=a+lNextyPrinta;NextxEndSub45ᓫ789:;Ḅ<=>CA)11B)00C)12D)2336.ᑡPrivateSubForm_CLICK()Fori=1To4m=0Forj=1To5m=1Fork=1To6m=m+5NextkNextjNextiPrintmEndSub45ᓫ789:;Ḅ<=>A)11B)12C)31D)4137.ᙠ89CᢥCommandl஺ᯠÍᑏ᝞:

33PrivateSubCommand1Click()For1=1to2ForJ=1toIPrintString(I,"Hello");NextJPrintNextIEndSub45᝞=ᓫ7ᢥᑣᙠ89¡JḄᑁ>OA)HB)HOHHHHHD)HelloHHHHHHHHelloHelloHello38.▅å☢ḄxKFori=lTo3Forj=lToiFork=jTo4a=a+lNextkNextjNexti᡻5☢Ḅ榧aḄ஺A)9B)14C)20D)2139.ᙠ89CTextlḄᦻ᪾vCCommandlḄᢥᯠÍᑏ᝞дRKPrivateSubCommand1_C1ick()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+lIfi>10ThenExitforNextTextl.Text=Str(n)EndSub45ᓫ7ᢥᙠᦻ᪾]¡JḄ>஺A)2B)3D)4D)540.ᨵ᝞çKPrivateSubForm_Click()DimcheckAsBoolean,nAsIntegercheck=False

34n=0DoDoWhilen<10n=n+1Ifn=5ThencheckTrueExitDoEndIfPrintn·LoopLoopUntilcheck=TrueEndSub45:;Ḅ<=>______஺A)123B)1234012345D)12345641.ᙠ89Command1Ḅᢥ•LabellḄ᪗ᯠÍᑏ᝞дRKPrivateSubCommandl_Click()s=0Fori=1To15X=2*i-1IfXMod3=0Thens=s+1NextiLabell.Caption=sEndSub45ᓫ7ᢥᑣ᪗]¡JḄᑁ>஺A)1B)5C)27D)4542.ᙠ89CCommand1ḄᢥᑖHText௃ஹText2Ḅᦻ᪾CList1ᑡ⊤᪾ᯠÍᑏ᝞дRKPrivateSubCommandl_Click()Fori=0ToListl.ListCount-1s=s+Listl.List(i)NextiTextl.Text=sText2.Text=Listl.ListCountEndSubPrivateSubForm_Load()Listl.AdditemListl.Addltem஻2஻

35Listl.Additem஻3஻Listl.Additem஻4஻Listl.Additem஻5஻EndSub45ᑣᙠᦻ᪾TextlஹText2]Ḅ:;<=>஺A)04B)155C)123455D)12345443.ᙠ89CëìíîᩩvCᢥᯠÍᑏ᝞дR:PrivateSubCommand1Click()Fori=1ToHScrolll.ValueIfiMod2=0Thens=s+iNextiPrintsEndSubPrivateSubForm_Load()HScrolll.Max=20EndSub45ïëìíîᩩrðñòᑮôñᯠᓫ7ᢥᑣ89:;Ḅᑁ>A)20B)110C)210D)10044.ᙠ89CᢥᯠÍᑏ᝞дRKPrivateSubCommandl_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextkNextjNextiPrintxEndSub45ᓫ7ᢥ:;Ḅ<=>஺A)7B)15C)157D)53845.õö÷øCḄASCHṹ>67,ᙠ89]úûCᢥqÍᑏ᝞üṹ:PrivateSubCommandl_Click()m=67:a="C"

36PrintTab(10);aFori=1To3m=m+1a=Chr(m)+a+Chr(m)PrintTab(10);aNextiEndSub45ᓫ7ᢥ:;Ḅ<=>A)AB)AC)CD)AABBABDCDBABABCCBABCEDCDECBABCABCDDCBABCDFEDCDEFDCBABCD46.ᙠ89ᨵCᦻ᪾TextLᯠÍᑏ᝞üṹKPrivateSubForm_Load()TextLText=”“Fork=1To5t=t*kNextkTextl.Text=tEndSub45:;Ḅ<=>஺A)ᙠᦻ᪾]¡J0B)ᦻ᪾ýᯠþ0ᙠᦻ᪾]¡J1D);┯47.ᙠ89Cᑡ⊤᪾vCᦻ᪾ᯠÍᑏ᝞дRKPrivateSubFormLoad()Listl.AdditemTListl.Additem஻2஻Listl.Additem஻3஻Listl.Additem஻4஻EndSubPrivateSubListl_dblClick()Fori=1ToListl.ListindexListl.Listindex=is=s+Vai(Listl.Text)Prints

37NextiTextl.Text=sEndSub45ÿᑡ⊤᪾Ḅᨬ⚗ᙠᦻ᪾TextlḄoA)3B)6C)9D)10$%⚪'ᑡ⊤᪾Ḅᨬ⚗(ᵫ*ᑡ⊤ᨵ4⚗ᡠ./(Listl.Listlndex=37839:i=l(᡻<=>Listl.Listindex=i⊤?⌱AB2⚗᡻ᓽIJB2⚗,s=2,1=2(,IJB3⚗ᑁM,ᓽs=2+3,1=3(,IJB4⚗ᑁMᓽs=2+3+4=9ஹ⚪1.N☢PQPrivateSubFormClick()For1=1To10Step2PrintINextIEndSub`<ᓫbcFor7878Ḅ9ᦪo2.᡻=4PrintsEndSub3k.☢PQ`<Ḅ᝞k.%DCDBCDABCDmPQno᦮qᙠNᑜsᜐuvwPQo᦮஺PrivateSubCommandl_Click()a=஻ABCD஻Form=1To4PrintTab(5-m):

38NextmEndSub4.ᙠbc|}~CommandlḄᢥ~Listlᑡ⊤᪾ᯠᑏ᝞NPPQḄᙠbc|ᑡ⊤᪾ListlḄᦪ⚗Ḅᨬᜧfᨬf஺qᙠNᑜsᜐuᐭ〉:ḄᑁMPQ⊡ᐙo᦮PrivateSubFormLoad()Listl.AdditemTListl.Additem஻2஻Listl.Additem஻3஻Listl.Additem஻4஻Listl.Additem஻5஻EndSubPrivateSubCommandl_Click()Listl.Listindex=0Max=Vai(Listl.Text)Min=Vai(Listl.Text)Fori=1ToListl.ListCount-1IfVai(Listl.Text)>MaxThenMax=Vai(Listl.Text)IfVai(Listl.Text)

39X=Int(________*101+200)If=0ThenPrintxS=S+_________EndIfNextiPrint“Sum³”%SEndSub7.NᑡPQ`<(:ᓫbc¶·¸ᐭ~¹ºᑨ¼½¹º¹¾¹ºஹᦪ¹¹ºÀᐸÁ¹º«ÂÃÄḄÅ?஺bc|ÆÇÈÉ«ἭᵨAsc¯ChrÌᦪSelectCase=>ἭᵨÍÎf஺qᙠNᑜsᜐuᐭ〉:ḄᑁMPQ⊡ᐙo᦮஺PrivateSubForm_LoadÏÐDimxAsString*1X=Ï"qᐭᓫ~¹º”“¹º”ÐSelectCaseUcaseCase___PrintX+"¹¾¹º”Case________PrintX+"ᦪ¹¹º”CaseElsePrintX+”ᐸÁ¹º”EndSelectEndSub8.N☢PQPrivateSubCommandl_ClickÏÐx=0n=InputBoxÏz/ÐFori=1TonForj=1ToIx=x+1NextjNextIPrintxEndSub`<,ᓫᢥ,᝞ᐭ3,ᑣᙠbc|Å?ḄᑁMo9.NᑡPQ¬Sn=a+aa+aaa+..+aa…aÏn~aÐ,ᐸa~¦§ᦪ×Ḅ1~9Ïᒹ

40Ú1ஹ9)Ḅ~Û᦮ᦪn~¦§ᦪ×Ḅ5Ü10(ᒹÚ5ஹ10)Ḅ~Û᦮ᦪ,qᙠNᑜsᜐuᐭ〉:ḄᑁMPQ⊡ᐙo᦮஺PrivateSubFormLoad()DimaAsInteger,nAsInteger,SAsDouble,SnAsDoublea=Fix(9*Rnd)+ln=Fix(6*Rnd)+5Sn=0S=0Fori=ltoS=S+a*10^(i-l)printSnNextiEndSub10.ᙠbc|}~CommandlḄᢥᑏ᝞NPPRiVateSubCommandl_ClicK()DimAsStringa=________Fori=lTo5PrintMid$(a,6-i,2*iT)NextiEndSubPQ`<ᓫᢥbc|Å?ḄO5456345672345678123456789quv஺12.N☢~ÝÞᜧßàᑖPQ஺10âàã◀ä~ᨬåᑖ¯~ᨬæᑖçèéᙳᑖ(ëìᑖ10ᑖ)஺qᙠNᑜsᜐuᐭ〉:ḄᑁMPQ⊡ᐙo᦮஺PrivateSubForm_Click()Max³0%Min=10Fori=1To10x=Val(InputBox(஻qᐭᑖᦪ஻))IfThenMax=xIfThenMin=xs=s+xNexti

41s=________p=s/8Print஻ᨬåᑖ஻íMax,஻ᨬæᑖ஻íMinPrint஻ᨬîᑖ஻;pEndSub13.ᙠbc|}-~ᢥ¯~᪗ðᐸᑖñCommand1¯Labell,ᯠᑏ᝞NP%PrivateSubCommandl_Click()Counter=0Fori=1To4Forj=6To1Step-2Counter=Counter+1NextjNextiLabel1.Caption=Str(Counter)EndSubPQ`<ᓫᢥ᪗ðÅ?ḄᑁMo14.ᙠbc|}~ᢥஹ~ᦻ᪾¯~᪗ðᙠᢥḄᓫPᑏN☢PQqᙠNᑜsᜐò|ÛóᑁM⚪Ḅᙠᦻ᪾ᐭôõᦻöᦻ÷çöᦻḄᓫøᦪᙠ᪗ðÅ?Ꮇúû~ᓫønᒹüõᦻ¹¾.᜜ḄᐸÁºþ஺PrivateSubCommandl_Click()x³________n=Len(x)Fori=1Tony=UCase(Mid(x,i,1))Ify>=஻A஻Andy<=஻Z஻ThenIfp=0Thenm=m+1:p=p+1Elsep=0EndIfNextiLabel1.Caption=EndSub15.*AḄ,-+BḄ,-=CḄ,-/ᑣA,B,C123456ᦪ஺9☢;<Ḅ=>?@A100BᑁḄᡠᨵ56ᦪ(᦮ᦪ)/GᢥA,B,CI

42Fora=2To99Forb=a+lTo100c=__________IfAndc<=100ThenPrinta,b,cEndIfNextbNextaLEndSubஹὃᫀ1)⌱\⚪1.C2.D3.C4.C5.D6.B7.C8.D9.B10.D11.B12.C13.B14.A15.C16.C17.A18.A19.C20.D21.D22.A23.B24.D25.C26.A27.A28.B29.D30.C31.C32.D33.A34.A35.D36.C37.B38.C39.B40.B41.B42.C43.B44.B45.C46.A47.C2)QM⚪1.52.103.Right(a,m)ᡈMid(a,5~m,m)4.Listl.Listindex=iஹMin=Vai(Listl.Text)5.216.RndஹxMod5>x7.InputBoxஹX^஻A"To"Z஻ஹ஻0஻To஻9஻8.69.nஹSn=Sn+S10.”123456789஻11.1To2-1ஹPrint12.x>Max\x}~cdḄef?___஺123246

43369A)DimA(9)AsIntegerB)DimA(3,3)AsIntegerC)DimA(-lto1,-3to-1)AsSingleD)DimA(-3to-1,1to3)AsInteger4.BDimx(6,2to5)ᩭcd3mᦪ4/┯Ḅ⌱⚗?஺A)Lbound(x,2)Ḅ?1B)Ubound(x,2)Ḅ?5C)Ubound(x,1)Ḅ?6D)Lbound(x,1)Ḅ?05.B9ughḄ?____oA)ᵨReDimefBᦋᦪ4ḄᦪB)ᵨReDimefBᦋᦪ4ḄC)ᵨReDimefBᦋᦪ4Ḅ3ḄᜧD)ᵨReDimefBᦪ4PḄᡠᨵᐗl¡¢£ᓄ6.9ᑡ;<¦┯Ḅ?oA)DimaAsIntegerB)Dima(),b()a=array(1,2,3,4)a=array(1,2,3,4):b=aC)DimaAsVariantD)Dima()AsVarianta=array(1,஻asd஻/true)a=array(1,2,3,4)7.9ᑡᦪ4cdghḄ?oA)n=5B)Dima(10)AsIntegerDima(lton)AsIntegerReDima(lto12)C)Dima()AsSingleD)Dima()AsIntegerReDima(3,4)AsIntegern=5ReDima(lton)AsInteger8.ᙠª«|¬3m12TextlḄᦻ¯᪾±3m12Command1Ḅ²³ᢥ´/ᯠ¶·ᑏ᝞9¹º»;¼PrivateSubCommandl_Click()Dimarray1(10,10)AsIntegerDimi,jAsIntegerFori=lTo3Forj=2To4

44array1(i,j)=i+jNextjNextiTextl.Text=arrayl(2,3)+arrayl(3,4)EndSub;<¿¡¶/ᓫÁ²³ᢥ´/ᙠᦻ¯᪾PÂÃḄ?OA)12B)13C)14D)159.ᨵ᝞9;

45Ifi=3Thena(i+l)=a(t-4)a(4)=1Printa(i)NextiEndSub;<¿¡¶/ᓫÁ²³ᢥ´/ᑣJAḄÆÇ?OA)11141B)12141C)12142D)1212112.ᙠª«|¬3m²³ᢥ´/ᯠ¶·ᑏ᝞9¹º»;¼OptionBase1PrivateSubCommand1Click()Dimaa=Array(1,3,5,7,9)J=1Fori=5to1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub¿¡|☢Ḅ;

46Printa(i,j);NextjPrintNextiEndSub¿¡;<¶/ᓫÁ²³ᢥ´/ᑣ᡻¡ḄÆÇ2A)1234B)87653456654356784321C)5678D)4321345665431234876515.ᨵ᝞9Ḅ¹º»;¼PrivateSubCommandl_Click()DimA(1To4)ForI=1To4A(I)=INextIX=1ForEachXInA()Print2*X;NextXEndSub¿¡;<¶/ᓫÁ²³ᢥ´/ᑣ᡻¡ḄÆÇ2—஺A)1234B)2468C)0000D)222216.9ᑡ;<¼Dima()AsIntegerPrivateSubForm_Click()N=-5:m=6ReDima(nTom)Forj=Lbound(a,1)ToUbound(a,1)A(j)=lNextjPrintLbound(a,1);Ubound(a,1)EndSub¿¡¶/ᓫÁª«/ᑣJAḄÆÇ?OA)00B)-50C)-56D)0617.9ᑡ;<:

47OptionBase1Constupl=10PrivateSubFormClick()Dima(upl)AsIntegerk=-lForj=lToupla(j)=j*kk=-l*kNextjForj=lTo10Printa(j)ÐNextjEndSub¿¡¶/ᓫÁ²³ᢥ´/ᑣJAḄÆÇ?—A.135910B)-1-3_5_7_90-12-34-56-78-910D)1-23-45-67-89-1018.9ᑡ;

4820,ᑣJAÆÇ2A஺19.ᙠª«|.ᵨÙᑴஹÛÜḄ-ÝÞß3m²³ᢥ´ᦪ4/ᦪ42à஺᪫FormlḄ᪗⚪2“hello”/åÁæºᦪ4Ḅ`çmᢥ´/ᡭéêṹ·ìᘤ/·ᑏ᝞9êṹ¼PrivateSubCommand1Click(IndexAsInteger)Forml.Caption=஻ok஻EndSub¿¡¶/ᓫÁᢥ´ᦪ4PḄ`3mᢥ´/ª«᪗⚪2—A)helloB)okC)formlD)Me20.9ᑡ;<¦Ḅ᡻¡ÆÇ?oDimm(5,6),s(5)Fori=lTo5sপ0Forj=lTo5m(i,j)=i*jNextjNextiForEachxInsPrintx;NextxA)2025303540B)4035302520C)2030102535D)0000021.9ᑡ;<Ḅ᡻¡ÆÇ?____஺PrivateSubCommandl_Click()Dimscore(3)AsInteger,totalAsIntegerDimaaAsVariantscore(1)=50:score(2)=14:score(3)=36total=0:1=0ForEachaaInscore1=1+1total=total+aaPrintI,aa,totalNextEndSubA)100B)000C)100DïA┯25050150502505031464214642141443610033610033636

49¿¡;<¶/ᓫÁ²³ᢥ´/ᑣ᡻¡ḄÆÇ222.·ᑏ᝞9¹º»;¼PrivateSubCommand1Click()Dimscore(1To3)AsIntegerDimiAsInteger,tAsVariantFori=3To1Step-1score(i)=2*iNextiForEachtInscorePrintt;NextEndSub;<¿¡¶/ᓫÁ²³ᢥ´/ª«|ÂÃḄ?A)642B)24602D)623.ᨵ᝞9;<¼OptionBase1PrivateSubCommand1ClickODimx,y(3,3)x=Array(1,2,3,4,5,6,7,8,9)Fori=1To3Forj=1To3y(i,j)=x(i*j)If(j>=i)ThenPrinty(i,j);NextjPrintNextiEndSub¿¡ð/ᓫÁ²³ᢥ´/JAḄÆÇ?OA)123B)123C)1D)1232462462446468369369924.áᨵ᝞9ḄñòTypeStudentNumberAsstringnameAsStringageAsInteger

50EndTypeᑣghóᵨôñòõḄêṹ?—A)Student,name=”ö÷஻B)DimsAsStudents.name஻ö÷஻C)DimsAsTypeStudentD)DimsAsTypes.name஻ö÷஻s.name஻ö÷஻25.9ᑡ;<¦Ḅ᡻¡ÆÇ?Dima(3,3)Form=lTo3Forn=lto3Ifn=mOrn=3-m+lThena(m,n)=lElsea(m,n)=0NextnNextmForm=lTo3Forn=lTo3Printa(m,n)ÐNextnPrintNextmA)100B)111C)000D)10101011100001000111100010126.ᨵ᝞9Ḅ;<êṹ¼OptionBase1PrivateSubCommandl_Click()DimtAsIntegerDima()AsVarianta=Array(2,4,6,8,10,1,3,5,7,9)ForI=1To10\2t=a(I)a(I)=a(10-I+1)a(10-I+1)=tNextIForj=1To10Printa(j);Nextj

51EndSub¿¡;<¶/ᓫÁ²³ᢥ´/ÂÃḄÆÇ?—OA)24681013579B)13579246810097531108642D)1086429753127.ᨵ᝞9;<¼PrivateSubForm_Click()Staticx(4)AsIntegerFori=1To4x(i)=x(i)+i*3NextiPrintFori=1To4Print"xC;i;஻)=஻Ðx(i)NextiEndSub;<¿¡¶/ᓫÁª«çÍ/ᐸᨬûÆÇ?——஺A)x(l)=3x(2)=6x(3)=9x(4)=12B)x(l)=9x(2)=18x(3)=27x(4)=36C)x(1)=6x(2)=12x(3)=18x(4)=24D)x(l)=12x(2)=24x(3)=36x(4)=4828.ᨵ᝞9;<¼Privatex(4)AsIntegerPrivateSubFormClickOFori=1To4x(i)=x(i)+i*3NextiPrintFori=1To4Print"x(';i;")=";x(i)NextiEndSub;<¿¡¶/ᓫÁª«Í/ᐸᨬûÆÇ?3஺A)x(l)=3x(2)=6x(3)=9x(4)=12B)x(l)=9x(2)=18x(3)=27x(4)=36C)x(1)=6x(2)=12x(3)=18x(4)=24D)x(l)=12x(2)=24x(3)=36x(4)=48Ѽ|☢ým⚪?☟᝱
ᦪᙽᦪḄᵨ஺29.᝞ᡂḄᵫ"ஹ$%ஹ&'(ᡂ)*ᑖᑴ-ᡂ஺

52TypeStudnoAsIntegernameAsString*10score(1to3)AsSingleEndTypeIJKLḄᔜᦪN⚗PQRSᑡUVḄWX஺A)DimSAsStudB)DimSAsStudStud,no=0201S.no=0201Stud.name\஻^_஻S.name=”^_஻Stud.score=78,88,96S.score=78,88,96C)DimSAsStudD)DimSAsStudS.no=0201Stud.no=0201S.name=”^_஻Stud,name=”^_஻S.score(1)=78Stud.score(1)=78S.score(2)=88Stud.score(2)=88S.score(3)=96Stud.score(3)=9630.ᙠghij&Lᓫ⌱ᢥn,ᡂXL%ochkOptionḄstᦪ஺ᵨu᪗wᔜLstᦪᐗyḄzᦪWoA)TagB)IndexC)ListindexD)Name31.ᙠghi.j•Lᢥn%oCommandsᯠᑏ᝞tOptionBase0PrivateSubCommand1Click()DimcityAsVariantcity=Array(஻ᓅ஻஻i஻஻ᜩ஻஻஻)Printcity(1)EndSubQ᝞ᓫᢥnᑣᙠghiḄᑁWoA)B)┯C)ᓅD)iஹ⚪1.¡¢Dima(-2to1,1to3,2)AsLongḄWX¤ᦪᦪoXᦪᐗyᨵXL஺2.¦᝱ᦪ◤⌕ᑖª«PQ✌ᐜᙠᙽᡈXL¯ᨵ᪗Ḅᦪᯠᙠ°±ᵨ¡¢ᦪḄᜧ³஺3.´µṹW·᦮¦᝱ᦪXº»oᐹᨵ20LᐗyḄᦪ½¾ᦪḄᡠᨵᐗyRS1,ÀᙠᑜÂᜐÄ஺Dimx()AsIntegerPrivateSubCommand1Click()

53Fori=1To20x(i)=1Printx(i)Nexti4.ᙠghijXLᢥn(ᐸNameÈឋoCommandl),ᯠᑏ᝞µṹ:PrivateSubCommandl_Click()DimM(10)AsIntegerFork=1To10M(k)=12-kNextkx=6PrintM(2+M(x))EndSubQᓫᢥnÎÏÐWO5.´WᑨÓXL᦮ᦪ(>=3)Wᔲoyᦪ஺ÀᙠᑜÂᜐÄ஺PrivateSubCommandl_Click()DimnAsIntegern=InputBox(“ÀÎᐭXL᦮ᦪ(>=3)஻)k=Int(Sqr(n))i=2Flag=FalseWhilei<=kAndFlag=FalseIfnModi=0ThenElseEndIfWendIfFlag=FalseThenPrintn;஻WXLyᦪ஻ElsePrintn;஻ÝWXLyᦪ஻EndIfEndSub7.´ᑨÓÞᦻà᪾Textl°ÎᐭḄᦪN᝞âᦪNãäᩩt◀´3ç2,◀´5ç3,ᑣÎÏèᔲᑣ·ᯖêëᙠᦻà᪾Textl°⌱°ᐸ°ḄᑁÀÄ஺

54PrivateSubCommand1ClickOx=Val(Textl.Text)IfThenPrintxElseTextl.SetFocusTextl.SelStart=OTextl.SelLength=EndIfEndSub8.´WXL“ìᦪ”ÞíîÎᐭ஺ï99ðñḄXLᦪòóôᙠõöiâᦪḄ÷ø஺ÀᙠᑜÂᜐÄ·⊡ᐙû᦮஺PrivateSubCommandlClick(IndexAsInteger)Dimaa=Array(ling,yi,er,san,si,wu,liu,qi,ba,jiuèDox=InputBox(zenteranumber:z)LoopUntilx>=0Andx<=99Ifx<=9ThenPrintElsen2=x-10*nlPrinta(nl);a(n2)EndIfEndSub9."ᦪ$aᒹ&10'᦮)ᐗ+஺-☢/0Ḅ23456a7ᔜ9:;'ᐗ+Ḅ<=>?@A

55Printb(i);IfiMod=0ThenPrintNextiEndSub10._☢/0Ḅ234`6abḄ10'ᦪ7ᨬᜧḄe'ᦪ=ᨬfJ6@'ᦪghiᙠjᩭ10'ᦪ7Ḅlm=Mᙠ_ᑜoᜐqᐭ〉tᑁL=?/0⊡ᐙP᦮஺OptionBase1PrivateSubCommandl_Click()Dimaa=Array(23,-5,17,38,-31,46,11,8,5,-4)Max=l~k=110k=k+1Ifa(k)>a(Max)ThenEndIfIfk<10ThenGoTo10PrintMax,amEndSubIL_☢/0Ḅ234~J6100gᑁ33᦮◀'lᦪ4Ḅᡠᨵ᦮ᦪ=Mᙠ_ᑜoᜐqᐭᑁL஺PrivateSubCommandl_Click()Fori=0Toj=i*10+4IfThenPrintjEndIfNextiEndSub12.-.☢/0Ḅ234~Jᐭ;'᦮ᦪᯠfJ6Ḅᨬᜧᦪ஺M?/0⊡ᐙP᦮PrivateSubCommandl_Click()M=Vai(InputBox("Enter:'))n=Vai(InputBox(z=Enter:=z))Whilen<>IfM>nThenW=MElseW=nIfM>nThenM=nElseM=Mn=___________WendPrintM

56EndSub13._☢4ᵨᑈ?n'ᦪᢥ0I᣸0Ḅ/0=Mᙠ_ᑜoᜐq=/0P᦮஺OptionBase1PrivateSubCommandl_Click()Dima()n=Val(InpulBox(஻MJᐭ⌕᣸0ḄᦪḄ'ᦪ஻))Form=1Tona(m)=Vai(InputBox("Enter:'))NextmFork=1TonFori=1ToIfa(i)jThen

57t=a(j):a(j)=a(k):a(k)=tEndIfNextjForm=1TonPrinta(m)NextmEndSub15._☢/0Ḅ234¨©100'ª100ᑮ1000¬(®100<1000)Ḅ¯°᦮ᦪ=⌕5±²635᦮◀Ḅᦪ=>ᙠ³´7ᢥEFJ610'ḄµIJ6=¶·ᙠ³´¥J6ᐸ75Ḅ¹ᦪᡠᓰḄ»¼=Mᙠ_ᑜoᜐqᐭ〉tᑁL=?/0⊡ᐙP᦮஺Dima()AsIntegerPrivateSubCommand1Click()Dima(100)Forj=lTo100a(j)=_____________________Ifa(j)Mod5=0Thenk=k+lPrinta(j)¾Ifj_______10=0ThenPrintNextjPrintPrintk/100EndSub16._☢/0PrivateSubFormClick()Dimarr(5)AsStringFori=lTo5arr(i)=Chr(Asc(஻A஻)+(iT))NextiForEachbInarrPrintb;NextbEndSubÀFf=ᓫ³´=ᑣJ6ḄÄ4O17._☢/0Ḅ234ÅÆ>J6◀ÇÈÉo¥Ḅᐗ+0᜜=ᐸËᐗ+Ì1Ḅ▣=ᙠÎoᜐqᐭ〉tᑁL=?/0⊡ᐙP᦮஺OptionBase1PrivateSubCommandl_Click()Dima(10,10)

58Fori=1To10Forj=—If________Thena(i,j)=0Elsea(i,j)=1EndIfNextjNextiFori=1To10Forj=1To10Printa(i,j);NextjPrintNextiEndSub18.ᙠ³´¥Îe'ÐÑCommands᪗⚪“²Õ”Ḅ×ØᢥÙ¾Î;'ᦻÛ᪾=ÐÑᑖÞTextlLabel2>Label3

59Case஻+஻Result=Val(Textl.Text)+Val(Text2.Text)Case-Result=Val(Textl.Text)-Val(Text2.Text)Case஻*“Result=Val(Text.Text)*Val(Text2.Text)Case஻/“Result=Val(Textl.Text)/Vai(Text2.Text)EndSelect]ResultEndSubஹὃᫀ1)⌱¤⚪l.B2.B3.D4.A5.B6.A7.D8.A9.D10.C11.B12.D13.C14.A15.B16.C17.C18.B19.B20.D21.A22.B23.D24.B25.D26.C27.B28.C29.C30.B31.D2)q⚪1.3ஹñ᦮)ஹ362.ò/ó=ReDim3.ReDimx(lTo20)4.45.Flag=Truesi=i+16.author(n)ஹconcerm(n)ஹEnd7.XMod3=2AndXMod5=3ஹLen(Textl.Text)8.a(x)ஹnl=Int(x/10)ᡈnl\109.a(i)+a(i-l)ஹ310.K=Maxஹam=a(Max)11.9ஹjMod3=012.0ஹWModM13.ReDima(n)ஹn-kஹa(i+1)14.k=jஹk=i15.Int((1000-100+1)*Rnd+100)ஹMod16.ABCDE17.1to10ஹi=j18.Optionl(i).ValueஹOptஹLabel4.Captionøùúò/ஹ⌱⚪1._☢ûò/üýþÿᔠ
Ḅ஺A)Subfl(ByVain()AsInteger)B)Subfl(n()AsInteger)AsInteger

60C)Functionfl(flAsInteger)AsIntegerD)Finctionfl(ByVainAsInteger)2.⌕!ᙠ#$%ᵨ'()*+ᦪ-./0ᙢᙬ3⌴56☢Ḅ#$89:;ᔠ
ḄA)SubProd(Byvaln,Byvalm)B)SubProd(ByRefn,Byvalm)C)SubProcl(n,m)D)SubProd(Byvaln,m)3.6ᑡᐵE#$FGHIJḄ஺A)#$Ḅ3K%ᵨLM+ḄᐹOK3K⌴PQ+B)#$Ḅ3ᙬ%ᵨLM+ᙠᑁSḄᙢᙬ3⌴PQ+0#$Ḅ3K%ᵨ+ᦪᓫᔣ3⌴Ḅ5#$Ḅ3ᙬ%ᵨ+ᦪWᔣ3⌴ḄD)XY#$3K%ᵨZ#$3ᙬ%ᵨ5+ᦪ3⌴-WᔣḄ4.ᙠ\ᵨ#$]5⌕89^+ᦪ_`+ᦪ5ᙠab+ᦪc⌕dḄᐵefoA)OptionalB)ByvalC)ByRefD)ParamArray5.j#$Sub...EndSubḄQl+ᦪ_m___oA)oᦪஹqᓫ`rஹᦪs`rtuvlB)qᓫ`rஹᦪs`rtᦪsᐗxC)oᦪஹqᓫ`rஹᦪs`rD)qᓫ`rஹᦪs`rtuvl6.zᦪ#$(ᵨFunction89){j$|#$(ᵨSub89)Ḅᨬᜧ஺A)zᦪ#$ᨵKB)j#$ᨵK0zᦪ#$_m+ᦪD)j#$_m+ᦪ7.m6GIJḄ஺A)#$Ḅ89_mᝅ5#$Ḅ%ᵨHᝅB)#$Ḅ89H_mᝅ5#$Ḅ%ᵨ_mᝅ0#$Ḅ89t#$Ḅ%ᵨᙳ_mᝅD)#$Ḅ89t#$Ḅ%ᵨᙳHᝅ8.m6ᐵE#$#$+ᦪḄG]5┯Ḅ——oA)#$Ḅ+ᦪ_mB)ᵨᦪs0#$Ḅ+ᦪ'5ᵨḄ“3ᙢᙬ”l0ᨵzᦪ#$L#$]ᜐᳮḄ3ᑮ%ᵨḄ$|]D)¢O_m0#$Ḅ+ᦪ9.m6FG]┯ḄoA)᝞¥#$¦890Static§¨5ᑣª#$]Ḅ«¬`r-Static§¨B)Sub#$]Hᝅ89Sub#$

610Sub#$]_mᝅ%ᵨSub#$D)#$_m®\ᵨ#$¯᪵ᵫᵨᡝ89#$10.Ꮇ8ᨵ᝞6ḄSub#$µSubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSubᙠ¢Oº»¯*¼½ᢥ¿5ᯠÁÂᑏ᝞6#$µPrivateSubCommandl_Click()DimaAsSingleDimbAsSinglea=5:b=2Sa,bPrinta,bEndSub$|uÆÁ5ᓫǼ½ᢥ¿5ÈÉÊ¥_____஺A)52B)11C)1.254D)2.5111.ᙠËṹ]89ͯ*j#$µSubP(a,b)EndSub6☢%ᵨª#$ḄÎlIJḄ____OA)CallPB)CallP10,20C)CallP(10,20)D)P(10,20)12.ᙠ¢Oº»¯*0CommandlḄ¼½ᢥ¿t•*0TextlḄᦻÒ᪾5ᯠÁÂᑏ᝞6$|µPrivateSubCommand1_C1ick()Dimx,y,zAsIntegerx=5:y=7:z=0Textl.text=஻஻CallPl(x,y,z)Textl.Text=Str(z)EndSubSubPl(ByVaiaAsInteger,ByVaibAsInteger,cAsInteger)c=a+bEndSub$|uÆÁ5᝞¥ᓫǼ½ᢥ¿5ᑣᙠᦻÒ᪾]×ØḄᑁÙA)0B)12C)Str(z)D)Úᨵ×Ø

6213.Âᑏ᝞6#$µPrivateSubForm_Click()DimaAsInteger,bAsIntegera=10:b=20Callpl(a,b)Print஻a=஻Ûa;஻b=஻ÛbEndSubPrivateSubpl(ByVaixAsInteger,yAsInteger)x=5y=x+yEndSub$|uÆ'5ᓫÇ¢OÁ5¢Oº×ØḄKOA)a=10b=20B)a=10b=25C)a=5b=25D)a=5b=2014.6☢$|µPrivateSubss(ByVaix,ByRefy,z)x=x+l:y=y+l:z=z+lEndSubPrivateSubFormClick()a=l:b=2:c=3Callss(a,b,c)Printa;b;cEndSubuÆÁ5ᓫǼ½ᢥ¿5ᑣÈÉḄÊ¥OA)123B)134C)224D)13315.Ꮇ8ᨵ᝞6)*#$µPrivateSubPPP(aAsSingle,bAsSingle)a=a+bPrinta,bb=a+bPrinta,bEndSubPrivateSubFormActivate()DimyAsSinglex=18:y=10CallPPP((x),y)Printx,yEndSubuÆ$|Á5ᓫǼ½ᢥ¿5ᑣÈÉÊ¥O

63A)2810B)281002810D)281028382838283828381838181028102838ݵÞßḄ`r(x)ᢥK3⌴஺16.6☢$|:Dimx,y,zPrivateSubss()x=x+lµy=y+lµz=z+lprintx;y;zEndSubPrivateSubFormClick()Dimx,y,zx=1µy=2µz=3CallssPrintx;y;zEndSubuÆÁ5ᓫÇàá¼½ᢥ¿,ᑣÈÉḄÊ¥A.111B.111C.123D.11112311112312322222212311112322212333333311112333312317.ᙠ¢Oº./âãḄ,äᙠËṹ¢åÂᑏ6ᑡ$|:PrinteSubFormClick()DimaAsLong,bAsLonga=InputBox(஻çÈᐭéê*᦮ᦪ஻)CallP(a,b)PrintbEndSubPrivateSubP(xAsLong,yAsLong)DimnAsInteger,jAsString*1,sAsStringk=Len(Trim(Str(x)))s=Fori=KTo1Step-1j=Mid(x,i,1)s=s+jNextIy=Val(s)

64EndSubuÆ$|5ᙠInputBox᪾]Èᐭ஻123456஻5ᯠÁᓫÇ“J8”ᢥ¿5ᑣÈÉÊ¥—A)123456B)654321C)135246D)24613518.Ꮇ8ᨵm6zᦪ#$µFunctionFun(SAsString)AsStringDimsiAsStringFori=lToLen(S)sl=UCase(Mid(S,i,l))+slNextiFun=siEndFunctionᙠ¢Oº»¯*¼½ᢥ¿5ᯠÁÂᑏ᝞6#$µPrivateSubCommmldl_Click()DimStrlAsString,Str2AsStringStrl=inputbox(“çÈᐭ•*fòó஻)Str2=Fun(Strl)PrintStr2EndSub$|uÆÁ5ᓫǼ½ᢥ¿5᝞¥ᙠÈᐭ(ô᪾]Èᐭfòó“abcdefg”5ᑣᓫÇ“J8”ᢥ¿Áᙠ¢OºḄÈÉÊ¥0஺A)abcdefgB)ABCDEFGC)gfedcbaD)GFEDCBA19.ᙠ¢Oº»¯*0CommandlḄ¼½ᢥ¿5ᯠÁÂᑏ᝞6$|µPrivateSubCommandl_Click()StaticXAsIntegerStaticYAsIntegerCisY=lµY=Y+5µX=5+XPrintX,YEndSub$|uÆ'5àáᓫǼ½ᢥ¿CommandlÁ5¢Oº×ØḄÊ¥0A)1516B)156C)1515D)5620.▅ù$|µFunctionF(aAsInteger)b=0Staticcb=b+1c=c+2

65F=a+b+cEndFunctonPrivateSubCommand1ClickODimaAsIntegera=2Fori=1to3PrintF(a);NextiEndSubuƺ☢Ḅ$|5ᓫǼ½ᢥ¿5ÈÉÊ¥0oA)456B)579C)468D)47921.ᙠ¢Oº»*0CommandlḄ¼½ᢥ¿5ú»)*ᑖ0Label1ஹLabel2Ḅ᪗ý5ᯠÁÂᑏ᝞6$|ËṹµPrivatexAsIntegerPrivateSubCommand1ClickOX=5µY=3Callproc(x,Y)Label1.Caption=XLabel2.Caption=YEndSubPrivateSubproc(ByVaiaAsInteger,ByVaibAsInteger)X=a*aY=b+bEndSub$|uÆÁ5ᓫǼ½ᢥ¿5ᑣ)*᪗ý]×ØḄᑁÙᑖOA)5t3B)25t3C)25t6D)5t622.Ꮇ8ᨵ6☢Ḅ#$µFunctionFunc(aAsInteger,bAsInteger)AsIntegerStaticmAsInteger,iAsIntegerm=0:i=2i=i+m+1m=i+a+bFunc=mEndFunctionᙠ¢Oº»¯*¼½ᢥ¿5ᯠÁÂᑏ᝞6#$µPrivateSubCommandl_Click()DimkAsInteger,mAsIntegerDimpAsIntegerk=4:m=l

66p=Func(k,m)Printp;p=Func(k,m)PrintpEndSub$|uÆÁ5ᓫǼ½ᢥ¿5ÈÉÊ¥0OA)817B)816C)820D)88ݵmþᯠ0☟᝱
ᙠᵫᨵ,ᦑ⌱D.m=0ᑣ⌱B23.☢PrivateSubForm_Click()s=p(l)+p(2)+p(3)+p(4)Prints;EndSubPublicFunctionp(nAsInteger)StaticsumFor1=1Tonsum=sum+INextIp=sumEndFunctionDEFᓫHIJᢥLᑣMNḄPQR______OA)20B)35C)115D)13524.ᨵ᝞ḄPrivateSubForm_Click()DimaAsInteger,bAsIntegera=8:b=3Calltest(6,a,b+1)Print஻Z“6,a,bEndSubSubtest(xAsInteger,yAsInteger,zAsInteger)Print஻^஻x,y,zx=2:y=4:z=9EndSub`DEFabḄPQROA)^643B)Z643C)Z684D)^684Z684^684^643Z643cdefgஹ⊤jklm⌴eᦪlᢥpm⌴஺

6725.☢:PrivateSubInvert(ByVaixstrAsString,ystrAsString)DimtempstrAsStringDimnAsIntegeri=Len(xstr)DoWhilei>=1tempstr=tempstr+Mid(xstr,i,1)i=i-1Loopystr=tempstrEndSubPrivateSubForm_Click()DimsiAsString,s2AsStringsi=஻abcdef஻CallInvert(si,s2)Prints2EndSubDEFᓫHrsᑣMHlḄPQRoA)abcdefB)afbecdC)fedcbaD)defabc26.tᑏ᝞vwxyᦪPrivateFunctionp2(ByVainAsInteger,number()AsSingle)AsIntegerp2=number(1)Forj=2TonIfnumber(j)

68x(i)=i+1NextiFori=1To2Callproc(x)NextiFori=0To4Printx(i);NextiEndSubPublicSubproc(a()AsInteger)StaticiAsIntegerDoa(i)=a(i)+a(i+1)Print஻a(஻{i;஻)|஻{a(i)i=i+1LoopWhilei<2EndSubA)34756B)35745023445D)4567828.rszᨵText1ஹText2}~ᦻ᪾~IJᢥLCommand1,tᑏᑡ:DimyAsIntegerPrivateSubCommandl_Click()DimxAsIntegerx=2Textl.Text=P2(Pl(x),y)Text2.Text=Pl(x)EndSubPrivateFunctionPl(xAsInteger)AsIntegerx=x+y:y=x+yPl=x+yEndFunctionPrivateFunctionP2(xAsInteger,yAsInteger)AsIntegerP2=2*x+yEndFunction`ᓫH1xᓫH2IJᢥLFᦻ᪾TextlxText2ᑁḄpᑖR.A)24B)24C)1010D)44244858588829.☢:

69Functionfirproc(xAsInteger,yAsInteger,zAsInteger)firproc=2*x+y+3*zEndFunctionFunctionsecproc(xAsInteger,yAsInteger,zAsInteger)secproc=firproc(z,x,y)+xEndFunctionPrivateSubFormClick()DimaAsInteger,bAsInteger,cAsIntegera=2:b=3:c=4Printsecproc(c,b,a)EndSubDEFᓫHrsᑣMNḄPQROA)21B)19C)17D)3430.▅Subinc(aAsInteger)StaticxAsIntegerx=x+aPrintx;EndSubPrivateSubForm_Click()inc2inc3inc4EndSubDEFᓫHIJᢥLᑣMNḄPQR______OA)259B)11141803610D)471131.▅Functiontotal(aAsInteger,bAsInteger)AsIntegerForj=lTobs=s+a(j)Nextjtotal=sEndFunctionPrivateSubForm_Click()DimaAsInteger,bAsIntegerDimcAsIntegerb=5a=Array(1,2,3,4,5)c=total(a,b)

70PrintcEndSubDEFᓫHIJᢥLᑣMNḄPQR_____0A)15B)10014D)N┯(ᓛ)32.▅☢Functiontotal(aAsInteger,bAsInteger)AsIntegerForj=1Tobs=s+a(j)Nextjtotal-sEndFunctionSubw(aAsInteger,bAsInteger)StaticmAsInteger,jAsIntegerJ=2j=j+m+1m=j+a+ba=mEndSubPrivateSubFormClick()DimkAsInteger,mAsIntegerk=4:m=1wk,m'ᵨwPrintk;wk,m'ᵨwPrintkEndSubDEFᓫHIJᢥLᑣMNḄPQR_____OA)817B)816C)820D)8833.▅SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1Click()Dima(lTo4)AsIntegera(l)=5:a(2)=6a(3)=7:a(4)=8subPa()

71Fori=1To4Printai;NextiEndSubDEz☢ḄᓫHIJᢥLMNPQf______°A2468B5678C10121416DN┯34.ᑡ┯ḄR____oA
Rᢣᙠᡈyᦪᑁ¡¢Ḅ
£¤
Ḅ¥ᵨ¦R᦮~¤ᡈyᦪs¨©ᙠªᡈªyᦪs«¬ᵨByᦪ⌕¬ᵨᙠᐸ°yᦪ¡¢Ḅ
¨⌕±
¡¢fStaticᓽ³0rs
ᙠªrsḄ´~µ³¬ᵨD⌕ᙠrsᑁ¡¢Ḅrs
©¶ᙠ·rsᑁ¸ᵨ¨◤ºPublic»¼35.⌕ab`½Ḅᡠᨵ
¿ÀḄÁp³ÂᑭᵨrÄ஺AᦪÅBᵨᚮ᪘CÈᓽDᙢஹ⚪1.☢ḄDEPQf1111221222331323334ÊᙠËÌᜐÎz〉`ḄᑁÐÑÒÓÔ᦮OOptionBase1PrivateSubCommandl_Click()PEndSubPrivateSubp()Fori=1To4Forj=1Toa=(i-1)*10+PrintTab((j-1)*5+1);a;NextjPrintNextiEndSub2.ᙠrszzË~IJᢥLᐸÖ×fCommandsᯠFtᑏ᝞:FunctionMxAsInteger,yAsIntegerAsInteger

72M=IIf(x>y,x,y)EndFunctionPrivateSubcommand1Click()DimaAsInteger,bAsIntegera=100b=200PrintM(a,b)EndSubDEFᓫHIJᢥLMNPQfO3.Ûᨵ᝞PrivateSubForm_Click()DimaAsInteger,bAsIntegera=20:b=50pla,bp2a,bp3a,bPrint஻a|஻{a,஻b|஻{bEndSubSubpl(xAsInteger,ByVaiyAsInteger)x=x+10v=v+20EndSubSubp2(ByValxAsInteger,yAsInteger)x=x+10y=y+20EndSubSubp3(ByValxAsInteger,ByVaiyAsInteger)x=x+10y=y+20EndSubªDEFᓫHrsᑣᙠrszabḄᑁÐRa=_____xb|4.▅☢Subm(xAsInteger,yAsInteger)x=x+yy=y+xEndSubPrivateSubForm_Click()DimxAsInteger

73DimyAsIntegerx=4:y=5mx,y'ᙬm⌴Printx;y{m(x),(y)'pm⌴Printx;y:EndSubDEFᓫHIJᢥLᑣMNḄPQR_____஺5.☢Ḅß©RàáMᐭᦪḄ▤äÊᙠËÌᜐÎz〉`ḄᑁÐÑÔ᦮஺OptionBase1PrivateSubCommandl_Click()n=Vai(InputBox(஻ÊMᐭ~ᜧ0Ḅ᦮ᦪ஻))Printfact(n)EndSubPrivateFunctionfact(m)Fact=____Fori=2Tomfact=NextIEndFunction6.☢RᡭᓺNEᩰéêëìDEPQf111121133114641151010511615201561ÊᙠËÌᜐÎz〉`ḄᑁÐÑÒÓÔ᦮஺OptionBase1PrivateSubCommand1Click()Dima()n=Vai(InputBox(஻ÊMᐭ~᦮ᦪ஻))ReDima(n,n)Callp(a(),n)EndSubPrivateSubp(a(),n)Fori=1TonForj=1To

74Ifj=1Ori=jThenElsea(i,j)=a(i-1,j-1)+a(i-1,j)EndIfPrintTab((j-1)*6+1);a(i,j);NextjPrintNextiEndSub7.ᙠrszË~IJᢥLᯠFtᑏ᝞PrivateFunctionfun(ByVainumAsLong)AsLongDimkAsLongk=1num=Abs(num)DoWhilenumk=k*(numMod10)num=num\10Loopfun=kEndFunctionPrivateSubCommand1_C1ick()DimnAsLongDimrAsLongn=InputBox(“ÊMᐭ~ᦪ”)n=CLng(n)r=fun(n)PrintrEndSubDEFᓫHIJᢥLᙠMᐭ¿ó᪾Mᐭ“234”ᑣMNḄPQR8.Ûᨵ᝞(03.4ᨴὃ⚪)PrivateSubsearch(a()AsVariant,ByVaikeyAsVariant,index%)Dimi%Fori=LBound(a)ToUBound(a)Ifkey=a(i)Thenindex=iExitSub

75EndIfNextiindex=-1EndSubPrivateSubFormLoad()ShowDimb()AsVariantDimnAsIntegerb=Array(1,3,5,7,9,11,13,15)Callsearch(b,11,n)PrintnEndSubDEFMNPQR________஺9.ᑡPrivateSubp(x,y)x=2*x+y:y=3*yPrintx=\x;,y=;y,EndSubPrivateSubForm_Click()a=1:b=1Print஻A|஻{a;஻B=஻{b,Callp((a),b)Print஻A=஻{a;஻B=஻{b,EndSubDEFᓫHrsᑣMNḄpROஹὃᫀ1)⌱⚪l.D2.C3.D4.D5.B6.A7.B8.C9.D10.D11.C12.B13.B14.B15.A16.A17.B18.D19.B20.B21.B22.D23.B24.D25.C26.A27.B28.C29.A30.A31.D32.C33.A34.B35.D2)Îù⚪1.iஹj2.2003.30ஹ704.9149145.1ஹfact*i6.iஹa(i,j)=l7.248.59.A=l,B=1X=3,Y=3A=1,B|3

76úûüᦻwýþìஹ⌱⚪1.VisualBasic᪷
ᦻḄᦻᑖᡂᐸᒹ—A)ᦻB)UnixᦻC)"#ᑴᦻD)&ᦻ2.)*+,-./012Ḅᑁ4ᑏᐭᦻᢣ8Ḅ9:ᡠ<ᵨ>?Ḅ@)஺A)GetᦻE./F12EB)GetᦻF12E./F0PutᦻF12E./FD)PutᦻF./F12E3.KL>?ᵨMᡭO,-ᦻOperTC:\MyFile.txt"ForOutPut,]^_>?Ḅ,-`⌕┯c^dᨵ____஺A)ᢣ8ᡭOB)ᢣ8ᦻFC)ᢣ8ᡭOᦻED)ᢣ8ᦻ04.KLhᑨj^ᔲᑮmᦻnḄoᦪ^஺A)BOFB)LOCC)LOFD)EOF5.⌕tuvwxᐭ,-ᦻE)“c:\filel.txt”ḄᦻL☢~Ḅ^_______OA)F="c:\filel.txt"B)F="c:\filel.txt”OpenFForInputAs#1Open'F"ForInputAs#2C)Open"c:\filel.txt"ForOutputAsit2D)Openc:\filel.txtForInputAs#16.ᢥᦻḄᑁ4ᑜᑖᨵ___oA)ᦻ&ᦻB)ASCHᦻ"#ᑴᦻ0~ᦻᦪᦻD)uvᦻᡭᓺᦻ7.᡻>?Open"Tel.dat"ForRandomAs#1Len=50ᦻTel.datḄᦪh᡻Ḅ^஺A)hᑏhxB)hxhᑏ0KxKᑏD)hxhᑏ8.KL¡Ḅ^___஺A),-./ᡠᒹ¢Ḅᔜ-ᐗ¥Ḅᦪ0¦§¨©

77B)&ᦻª-./Ḅ«¬^8Ḅ0Open®¯Ḅᵨ^ᡭO,-°±²ᙠḄᦻD)<ᵨInput#>?Kt&ᦻx´ᦪ9.Lᑡ~᡻Ḅ·¸¹º)஺PrivateSubCommand1Click()Open"D:\F1.TXT"ForInputAs#1PrintFileAttr(1)CloseEndSubA)0B)1C)2D)410.ᙠL☢ᔣᦻᑏᐭᦪḄ®¯>?Ḅ^_A)Print#ᦻF·¸⚗ᑡ⊤B)Write#ᦻFUNSING;·¸⚗ᑡ⊤0Write#ᦻF·¸⚗ᑡ⊤D)Print#ᦻFUNSING;·¸⚗ᑡ⊤11.Ꮇ88Ç*,-./0EÈ)Student,©ÉÊË*,-E)FLTXTᦻᯠ᡻L☢Ḅ~ᑣ12n²ÎḄ^_____oPrivateSubCommandl_Click()DimReAsStudentL=LEN(Re)Open"D:\F1.TXT"ForRandomAs#1X=LOF(1)N=X\LClose#1EndSubA)ᦻÈÏᦪB)ᦻÈ⁚ᦪ0ᦻᦪD)ᦻḄ./ᦪ12.Ñᨵ>?Open"c:\Test.Dat"ForOutPutAs#lᑣKL┯cḄ¡^஺A)_>?ᡭOCv᪷Ó/L,-Ô²ᙠḄᦻTest.DatB)_>?ᙠCv᪷Ó/LÊË,-E)Test.DatḄᦻC)_>?ÊËḄᦻḄᦻF)1D)᡻_>?ÕKÖ×Print#>?ᔣᦻTest.DatᑏᐭØÙ13.ÚoᦪEOF()ḄÛÜÝ)-1É⊤ßᦻḄᢣ┐ᢣᔣ஺A)OᜮB)¹nC)â,-./D)ᨬ,-./14.ᑤ◀Dv᪷Ó/ᡠᨵDATᦻḄ®¯^o

78A)Kill“*.DAT"B)Kill"D:\*.DAT"C)Kill"D:\?.DAT"D)KillD:\*.DAT15.®¯“Circle(1000,1000),500,8,-6,-3”æᑴ_A)ᙊB)èᙊC)ᙊéD)ᡧë16.®¯“Line(1200,1200)-Step(1000,500),,B”æᑴA)ᙊB)ìíC)îïðëD)ñïðë17.Dv᪷Ó/LḄᦻT1.TXTòᑴᑮCvḄ᪷Ó/LᦻE)T2.TXT,ó᡻Ḅ®¯^_____.A)FileCopy"D:\T1.TXT","C:\T2.TXT"B)FileCopy"D:\T1.TXT,"T2.TXT”C)FileCopy"D:\T1.TXT""C:\T2.TXT"D)FileCopy"C:\T2.TXT","D:\T1.TXT”18.Lᑡ~Ḅ·¸¹º^oPrivateSubCommand1Click()PrintFreefile(O)EndSubA)0B)1C)l~255D)256a511819.Ó/ᑡ⊤᪾ḄPathõឋḄᵨ^஺A)÷ßÚøùúᘤᡈᢣ8ùúᘤwḄÓ/¹᪀B)÷ßÚøùúᘤᡈᢣ8ùúᘤwḄþÓ/LḄᦻE0÷ß᪷Ó/LḄᦻED)÷ß_ÿ
Ḅᦻ20.ᦻᑡ⊤᪾Ḅ⚗ᦻᑡ⊤᪾FilelḄ•⚗ᑁḄA)PrintFilel.Listl(0)B)PrintFilel.Listl(1)C)PrintFilel.textD)PrintFilel.Listindex22.ᙠᨵ᪗!ᙽᐸ$%&᝞
()*+TypeBooksNameAsString*10TelNumAsString*20EndTypeᙠ,-./--12CommandlḄ34ᢥ6஺⌕9:᡻<=>Commandl_Click?,ᙠABᦻPerson.txtᑏᐭᩩ(),
ᑡFGᡂIJKḄ=>஺A)PrivateSubCommandl_Click()

79DimBAsBooksOpen"c:\Person.txt"ForOutputAs#1B.Name=InputBoxj"ᐭk1”mB.TelNum=InputBoxj"ᐭᵯqrṹ”mWrite#1,B.Name,B.TelNumClose#1EndSubBmPrivateSubCommandl_ClickjmDimBAsBooksOpen"c:\Person.txt"ForInputAs41B.Name=InputBoxj"ᐭk1”mB.TelNum=InputBoxj"ᐭᵯqrṹ”mPrint#1,B.Name,B.TelNumClose#1EndSubCmPrivateSubCommandl_ClickjmDimBAsBooksOpen"c:\Person.txt"ForOutputAs#1B.Name=InputBoxj"ᐭk1”mB.TelNum=InputBoxj"ᐭᵯqrṹ”mWrite#1,BClose#1EndSubDmPrivateSubCommandl_ClickjmOpen"c:\Person.txt"ForInputAs#1Name=InputBoxj"ᐭk1”mTelNunpInputBoxj"ᐭᵯqrṹ”mPrint#1,Name,TelNumClose#1EndSub23.ᙠᨵ᪗!ᙽᐸ$%&᝞
*+TypestudtypeinoAsIntegerstrnameAsString*20strsexAsString*1smarkAsSingleEndTypeᙠ,-./12Command1Ḅ34ᢥ6⌕9:᡻<=>Command1Click?,ᙠc:\Ḅᦻstudent,datᑏᐭᩩ()஺
ᑡFGᡂIJKḄ=>:

80A)SubCommandl_Click()DimstudentAsstudtypeDimrecond_noAsIntegerrecord_no=1Withstudent.ino=12.strname="smith”.strsex=஻ᵱ஻.smark=89EndWithOpen'c:\sludent.dat"ForinputAs#1len=len(student)Put#1,record_no,studentClose#1EndSubB)SubCommand1Click()DimstudentAsstudtypeDimrecondnoAsIntegerrecord_no=1Withstudent.ino=12.strname="smith”.strsex=஻ᵱ஻.smark=89EndWithOpen'c:\student.dat"ForRandomAs#1len=len(student)Put#1,record_no,studentClosett1EndSubC)SubCommand1_C1ick()DimstudentAsstudtypeDimrecond_noAsIntegerrecord_no=1Withstudent.ino=12.strname="smith”.strsex="ᵱ"

81.smark=89EndWithOpen'c:\student.dat“ForrandomAs#1len=len(student)Write#1,recordno,studentClose#1EndSubD)SubCommandl_Click()DimstudentAsstudtypeDimrecond_noAsIntegerrecord_no=1Withstudent.ino=12.strname="smith”.strsex=஻ᵱ஻.smark=89EndWithOpen'c\student.dat"ForoutputAs#1len=len(student)Put#1,recordno,studentClose#1EndSubஹ⚪1.ᐵᡠᨵᡭḄᦻᵨ஺2.:ᵨᡭᦻ᝞¡ᦻ¢<ᑏJKᑣᑏᐭḄᦪ¥▬§ᑮ©ᩭᦻḄ«☢஺3.®¯°"VisualBasic”ᑏᐭ#1rABᦻḄ஺4.Open"wj.txt"ForRandomAs#1Len=20⊤µᦻwj.txtḄ¶()Ḅ·¸¹º®⁚஺5.ᙠᵨOpenᡭᦻ?᝞ḕᶍ“For”ᑣIᦻḄ¿À஺6.ÂᦋᦻஹÅ)Ḅ1ÆÇᵨ஺7.VisualBasicÉÊḄ¡ᦪ¥ᦻḄËÌÍÎ2ÍÎஹÏТᑴÍÎ஺8.ᦻᢥ2ᓫÓÔТᑴᦻᢥ2ᓫÓÔ஺9.LOFÕᦪÖ×ᦻḄ஺

8210.Ç
BḄØ:ÙÅ)
ḄABᦻsmtextl.txtḄᑁÔᐭᑁ¿ÚᙠᦻÛ᪾Textlܵᩭ஺Ýᙠ
ᑜßᜐáâ஺PrivateSubCommand1Click()DiminDataAsStringTextl.TextÐ஻஻Open"smtextLtxt“As#1DoWhile__________Input#1,inDataTextl.Text=Textl.Text&inDataLoopClose#1EndSubIL
ᑡBᵨ12Filelᦻᑡ⊤᪾ᩭäåBæç?ᑡCè᪷Å)
Ḅᡠᨵ஻*.exe஻ᦻÝᙠ
ᑜßᜐáâêB⊡ᐙG᦮஺PrivateSubFormLoad()Filel.=஻C:\஻Filel.:exe”Filel.RefreshEndSub12.34“Line(1200,1200)-Step(1000,500),,B”᡻<«CurrentxḄï—13.
☢ñṹḄØêCè᪷Å)
“old
at”Ḅᑁòᑴᑮóᦻ“new
at”,ÚᑭᵨᦻJKêᦻ“old.dat”õöè.ᑤ◀஺Ýᙠ
ᑜßᜐáâêB⊡ᐙG᦮஺PrivateSubCommandl_Click()DimstrlOpen'c:\old.dat”Open"c:

83ew.dat”DoWhileNotEOF(l)LineInput#1,strlLoopClose#1,#2EndSub14.ùúᦻcj.dat¿ûüýk1Ïþᑖᯠᦻᦪ,⊡ᐙ᦮஺PrivateTypeStudentstrnameAsString*20

84scoreAsSingleEndTypePrivateSubFormClick()DimreAsstudentOpen஻cj.dat஻ForAs1Len=Len(re)Re.strname=/LiPing/:Re.Score=582close#1Open஻cj.dat஻ForRandomAs#1len=len(re)Print஻name:re.strnamePrint஻score:",re.scoreClose#1EndSubஹὃᫀ1)⌱H⚪l.B2.1)3.B4.D5.A6.C7.C8.B9.B10.B11.D12.A13.B14.B15.D16.C17.A18.C19.A20.A21.C22.A23.B2)PQ⚪1.Close2.Append3.Print#1zVisualBasic”4.205.UVWXYZ6.Name7.(\]^YZ)8._`ஹb⁚9.b⁚ᦪ10.ForInputஹNotEOF(l)11.Path.Pattern12.220013.ForInputAs#1ஹForOutputAs#2ஹPrint#2,strl>Kill“c:\old.dat"14.Random>Putitl,1,re>Get#l,1,rekᓝmnᓫpqr᪾ஹ⌱⚪1.tᑡvwᡭynᓫz{ᘤḄ~AᢥCtrl+EBᓫᐹḄ“nᓫz{ᘤ”ᢥ0᡻“ᐹ”nᓫḄ“nᓫz{ᘤ”DᢥShift+Alt+M2.tḄoA᎛ᵨ᪗ᐹḄ“nᓫz{ᘤ“ᢥᡭynᓫz{ᘤB᎛ᵨ“ᐹ”nᓫtḄ”nᓫz{ᘤ“ᡭynᓫz{ᘤ

850ᨵ¡¢£¤¥¦¡§¨©¤¥ªwᡭynᓫz{ᘤDᨵ¡¢£«ṹ¤¦¡§¨©¤¥ªwᡭynᓫz{ᘤ3.Ꮇ¯ᨵ£nᓫ⚗±¦Menuitem,¦²ᙠ´nᓫ⚗ᜫᦔ·¸ᮞºᵨḄ»¼¦஺AMenuitem.Enabled=FalseBMenuItem.Enabled=TrueCMenuitem.Visible=TrueDMenuitem.Visible=False4.ᙠtᑡᐵ¾nᓫḄ┯ÀḄ___஺A£nᓫ⚗£ÃpᐸÅÃ᪵ᨵÇÈḄÉឋËÌB◀²ClickÌÎ᜜nᓫ⚗ÐwѺᐸÅḄ᝞DblClickÓÌÔ0nᓫ⚗ḄÕᣩ×vØÙÚDᙠ᡻᝞Ûnᓫ⚗ḄEnabledÉឋ¦False,ᑣnᓫ⚗¸ᡂᮞ⁐vwßᵨᡝ⌱H5.táâ┯ÀḄ___஺Aᙠ㤥Ḅnᓫ⚗vᐕåæ᪗⚪çãḄnᓫ⚗BᙠnᓫḄ᪗⚪“&”ᡠêëḄbìᢣî²]^nᓫ⚗Ḅ]^×0´ÔïðÙÚnᓫḄVisibleÉឋDñZnᓫòᙠnᓫz{ᘤ¯ó6.᝞Û⌕ᙠ£ñZnᓫõö⌕÷ᵨVisualBasicøùḄY஺APrintBMoveCRefreshDPopupMenu7.ᎷÙᙠnᓫz{ᘤ¯ó²£nᓫ⚗±¦Menul஺¦²ᙠ´◚ûnᓫ⚗ºᵨḄ»¼__஺AMenul.Enabled=TrueBMenul.Enabled=FalseCMenul.Visible=TrueDMenul.Visible=False8.᝞Û⌕ᔣᐹýþᐭ

ᑭᵨ“”ḄᓫḄ஺AᵨB
CឋD9.CommonDialog
*+,-᪾஺A40B50C60D7010.678┯:Ḅ;0Aᙠ=>?@Aᵨ,-᪾
;BCḄBᙠDE•G=ᵨBDḄHIJ᝞ShowOpenᡈShowSaveTᡭVḄAᵨ,-᪾ᐹᨵBDḄYᵨ0ZᵨAᵨ,-᪾
ḄShowOpenHI[\ᡭVᙠ]Aᵨ,-᪾ᢣ_Ḅᦻ
DZᵨAᵨ,-᪾
ḄShowColorHIᡭVb⁐,-᪾

8611.6ᐵeᓫḄ78┯:Ḅ;____஺A)ᙠ=>?hiᡈjkᓫ⚗B)᝞mnEGᓫḄEnabledឋrstFalse,ᑣᑤ◀]ᓫ⚗0{|}ᓫᙠᓫ~ᘤrD)ᑭᵨ
ᦪᓫ⚗Ḅiᡈjk12.ᙠᵨAᵨ,-᪾
“ᡭV”ᡈ“”ᦻ
,-᪾@᝞m◤⌕ᢣ_ᦻ
ᑡ⊤᪾ᡠᑡ|Ḅᦻ
;ᦻᦻ
(ᓽ.txtᦻ
)ᑣḄ8};஺A)“text(.txt)|(*.txt)”B)“ᦻᦻ
(,txt)|C)“text(.txt)||(*.txt)"D)"text(.txt)(*.txt)”13.VisualBasicAhᓫ~ᘤᩭrs£ᵨ=Ḅᓫ¤⌕¥ᙠ=>?Ḅh⌱]@ᙠ]§ᨵ“Ḅ᪗©ᑣ£]ᙠᓫ~ᘤ_______஺AA)⌱“ª⌱”B)“ª⌱”B«⌱C)⌱“ᨵᦔ”D)“ᨵᦔ”B«⌱14.ᙠ®EG¯°tCommonDialoglḄAᵨ,-᪾EG¯°tCommand1Ḅᢥ²஺⌕¥ᓫ³ᢥ²@ᡭVEGᦻ
ḄAᵨ,-᪾஺]´Ḅ᪗⚪t஻Save஻·ḕᦻ
¯t“SaveFile”ᙠ“ᦻ
”¹*+*.txt஺ᑣº»¼½8⌕¥Ḅ=;A)PrivateSubCommandClick()Commondialogl.FileName=/zSavefiCommondialogl.filter="AllFiles|*.*|(*.txt)|*.txt|(*.doc).|*.doc”CommonDialogl.Filterindex=2Common!)ialogl.DialOg.title="Save"CommonDialogl.Action=2EndSubB)PrivateSubCommand1Click()CommonDialogl.FileName=஻SaveFi1e஻CommonDiaLogl.Filter=zAllFiles|*.*|(*.txt)|*.txt|*.doc|*.doc”COmmonDialogl.FilterIndex=1CommonDialogl.DialogTitie=஻Save”CommonDialogl.Action^EndSubC)PrivateSubCmmandl_Click()CommonDialogl.FileName=஻Save஻CommonDialogl.FiLter=AllFiles|*.*|(*.txt)|*.txt|(*.doc)doc”

87CommonDialogl.Filterindex=2CommonDialogl.DialogTitle=SaveFile/zCommonDialogl.Action=2EndSubD)PrivateSubCommandl_Click()CommonDialogl.FileName=஻SaveFi1e஻CommonDialogl.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc”CommonDialogl.Filterlndex=lCommonDialogl.DialogTitle=஻Save”CommonDialogl.Action=lEndSub15.Aᵨ,-᪾ḄFilenameឋ஺A)ÊËᨵᦻ
¯ḄÌÍÎB)ËᨵÏ,eЧᦻ
ᜳḄÒÓᦻ
¯ḄÌÍÎC)ËᨵÏ,eЧÔḄÕ,ÒÓᦻ
¯ḄÌÍÎD)ËᨵÔÍஹÕ,ÒÓᦻ
¯ḄÌÍÎ16.ᎷrᙠØEGAᵨ,-᪾ᐸ¯°tCommonDialogl,ᯠÛ®EGᢥ²Command1,Ü~ᑏ᝞6Þ
hßPrivateSubCommandlClickOCommonDialogl.Flags=4CommonDialogl.Filter="allfiles(*.*)|*.*|textFiles(*.Txt)|*.txt|BatchFilse(*.bat”*.bat”CommonDialogl.Filterindex=1CommonDialogl.ShowOpenMsgBoxCommonDialogl.FileNameEndSub=>?Ûᓫ³ᢥ²á*+EG“ᡭV”,-᪾â@ᙠ“ᦻ
”,-᪾*+Ḅ;_____OA)AllFiles(*.*)B)textFiles(*.Txt)C)BatchFiles(*.bat)D)B_17.Ꮇ_ᙠEGAᵨ,-᪾ᐸ¯°tCommonDialogl,ᵨ6☢ḄäåEG,-᪾ßæäåCommonDialongl.Action=4TçḄäå;஺A)CommonDialong1.ShowOpenB)CommonDialongl.ShowFontC)CommonDialong1.ShowColorD)CommonDialongl.ShowSave

88ஹ⚪1.᝞mᓫ᪗⚪ḄèGÌé§êᐭEGÍìíî]ÌéïᡂØñòÌéó᝞mᓫ@ᙠ᪗⚪ᦻ᪾êᐭEG,íî*+@áôᡂE?ᑖ◞Í஺2.ᙠᓫ~ᘤØEGᓫ¯tpmenu,ᵨ6☢Ḅäån÷Yt{|}ᓫ{|øùú஺Forml.Pmenu3.ᨵEGAᵨ,-᪾CommonDiloglEGᢥ²Commandl,Ðᓫ³ᢥ²ᑣᡭV“b⁐,-᪾”ᙠᢥ²Ḅᓫ³Þ
hêᐭrsឋûṹ—ᡈᵨHIûṹ஺4.ᓫᑖtᓫᓫᓫþæÏᐵὶ
ᓫ◤⌕ᙠߟߟ
஺5.ᓫᘤᓫᨵᑁ⊤ᓫ⚗oஹὃᫀ1⌱"⚪l.D2.C3.A4.B5.A6.D7.D8.B9.C10.C11.B12.A13.A14.A15.D16.A17.B212⚪1.&ஹ-2.PopupMenu3.CommonDialogl.action=3>CommonDialogl.showcolor4.HIJஹKLJஹMNஹᓫᘤ5.Oᓫ⚗PᓝRSTUMNVW᛻Yᵨஹ⌱⚪1.ᐵ\MDIMNHᑡ_`abḄ஺ARdYᵨefghᨵTdMDIMNBiMNghjkMDIMNh᜜0mghᙠMDIMNnopᢥrstDMDIMNḄiMNmghuᨵᓫ2.H☢ᐵ\TUMNḄwxabḄoBAyz{k|}ḄMaini~eoᙠMNᙽB᝞{k|}Maini~eᑣef{kmMNhᵫ~e᪷mᔲRdMN

890ᨵ{kMNefmDhnm|3.᝞RdeᨵTdMN᪗ᙽᑣhHwx┯Ḅ஺A᝞eᨵSubMain~eᑣefR✌ᐜ᡻~eBm£᪗ᙽ
pz{kᙽ0ᵨHide¤`◚¦RdMNm§ᑁ¨©◀MND«ᨬTᨵRdMNkMN4.hHwx┯ḄoA®¯°᪗gh±²DblCLick³tBMNᡈstḄ³tḄµ¶ghᵫe·ᕒbCjk°᪗¹±²MouseMove³tDstḄµ¶ghᵫe·ᕒ
5.hHwx┯Ḅ___஺Aᡭ¼Rdeᦻt¾¿ÀkÁᐭVeᨵᐵḄMNஹ᪗ᙽÃᦻtBĨVisualBasicefYᑖÆĨMNᦻteᦻt0VisualBasicYᵨefhÇȤJ᡻D³tghᵫᵨᡝʲËghᵫ¾¿Ê²6.hHwx┯Ḅ___஺ARdeghᒹTdMNᦻtBᙠRdMNᦻtᵨPrivateÍḄÎᵨ~eÏᐸÑMNÒᵨ0ᙠ
VBefMNஹ᪗ᙽஹÓᙽÃ◤⌕ᑖÆĨzmÓÔḄÕÖᦻtDᐰØÙÚÛÜᙠ᪗ᙽÍ7.hHwx┯Ḅ___oA•—deᨵRdSubMain~eBMNḄShow¤`ḄyᵨßᢣḄMNÁᐭᑁ¨áâMN0MNḄHide¤`ãUnload¤`ḄyᵨäᐰåDeᦻtᨵTdMNgh᪷◤⌕ᢣRdMNz{kMNஹ⚪1.ᙠæḕHYᵨefḄÏᢣz{kMN஺᝞èᙠYᵨef{kâᐸÑḄMNᑣ◤⌕Î~ᓫḄUé
p{kMN஺2.ᎷëìíRdeeᒹîïdMNᐸµ¶
NameðឋᑖÆzFormlãForm2,{kMNzForml஺ᙠFormlòRdóôᢥrCommandl,ef⌕õöᓫ¯óôᢥrFormlMN÷ᜫâMNForm2,ùᙠHᑜûᜐ12஺PrivateSubCommand1Click

90FormlForm2.__________EndSub3.ᙠᵨḄᐸᑖ✌ᐜᐵḄ᪾!"᪾஺$%&'ᐵ()ᑗᣚᑮᵨᐸᑖḄ᪾!"o4./Forml"456᪾789:",/Forml"56᪾789:"஺5.=>?ᨵABCDFormlஹForm2.GB᪗I5ᙽModulel,ᙠForm2ḄNṹCP?ᨵ&QᑁSTSubaaa(x,y,z)z=x^2+y^2EndSubᙠModulel?ᨵ&QᑁSTSubbbb(x,y,z)z=x^3+y^3EndSubᙠFormlCD?ᨵGB`aᢥcdeBᦻg᪾(Textl>Text2>Text3dText4),Q☢Ḅl)mnᓫp`aᢥcqᙠᦻg᪾TextlஹText2?rᐭABᦪuvᵨ&wABxyzTextldText2?ABᦪḄ{|d}~|dᑖ/78ᙠᦻg᪾Text3dText4?/Q☢⊡ᐙ᦮஺PrivateSubCommandl_Click()a=Val(Textl.Text)b=Val(Text2.Text)CallText3.Text=clbbbText4.Text=c2EndSubஹὃᫀ1)⌱⚪l.C2.B3.A4.B5.C6.B7.C2)⚪1.G■BCDஹ>ஹ>ឋ2.UnloadஹShow3.56ஹ4564.Forml.show0ஹForml.show15.Form2.aaa(a,b,cl)ஹa,b,c2

91ᓝ¤¥¦§}¨᪗©ªxஹ⌱⚪1.VisualBasic?«ᨵ¬Qᑡ©ª஺A)MouseDownB)MouseUpC)MouseMoveD)MouseExit2.CDḄMouseDown©ªxForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)ᨵ4B¯ᦪᐵ°±²¯ᦪ³´Ḅµ¶m.A)·xButton¯ᦪᑨ¹nᢥQḄmºGB¨᪗¦஺B)Shift¯ᦪ»)ᵨᩭ´¹mᔲᢥQShift¦0Shift¯ᦪ»)ᵨᩭ´¹mᔲᢥQAltdCtrl¦D)¯ᦪx,yᵨᩭ=¾¨᪗n¿¾Ḅᙶ᪗3.ᨵ᝞QḄ©ªxPrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPrint"Hello”EndIfEndSubPrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print'Ok"EndSubÂÃu᝞ᓫp¨᪗ĦᑣrÆ"_____஺A)okB)HelloC)HelloD)OkOkHello4.ᙠCDwÇGBᦻg᪾ᯠuÉᑏ᝞Q©ªxoPrivateSubTextl_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAscii)KeyAscii=Asc(UCase(char))Textl.Text=String(6,KeyAscii)EndSubÂÃu᝞ᙠᦻg᪾?rᐭËÌ“a”bᑣᦻg᪾?78ḄᑁS"_____o

92A)aB)AC)aaaaaaD)AAAAAA5.ᨵ᝞QTPrivateSubFormKeylJp(KeyCodeAsInteger,ShiftAsInteger)PrintChr$(KeyCode+3)EndSubÂÃu᝞ᢥ“a”¦ᑣrÆḄ"G,oA)AB)BC)dD)D6.&Q׶?┯ÙḄm___oA)ᙠKeyUpdKeyDown©ªx?Ú¦§wrᐭAᡈaÜÝÞḄËÌ(ᓽᐹᨵÝÞḄKeyCode)B)ᙠKeyUpdKeyDown©ªx?/¦§wḄ“1”dÄá⦧wḄ'TÜ'ÞḄᦪË(ᐹᨵ'ÞḄKeyCode)0KeyPress©ª?')䦧wåB¦ḄᢥQ}æçD)KeyPress©ª?%&䦧wåB¦ḄᢥQ}æç7.Ꮇ¹ᨵ᝞Q©ªxTPriVateSubFormMouseDown(buttonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)IfButton=2thenPopupMenupopFormEndifEndSubᑣ&Qµ¶?┯ÙḄm____஺A)êxḄl)mëÆGBìᓫB)popFormmᙠìᓫÉíᘤ?¹ïḄëÆ6ìᓫḄð!0¯ᦪXஹYᢣó¨᪗Ḅn¿¾D)Button=2⊤8ᢥQḄm¨᪗õ¦8.⌕ᑨøᙠᦻg᪾ᑁmᔲᢥQùúû¦%&ᙠᦻg᪾Ḅ©ªx?üÃᑨøA)ChangeB)LostFocusC)KeyPressD)GotFocus9.ᑡᙠᢥF2,PrivateSubForm_KeyDoTO(KeyCodeAsInteger,ShiftAsInteger)Print஻F2Down”;EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)Print஻F2Press”;EndSub

93A)F2DownF2PressB)F2PressF2DownC)F2PressD)F2Down10.ᙠ?@ᦻB᪾ᐸEFTextl,ᯠJKᑏ᝞NOPQPrivateSubTextl_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerstr=UCase(Chr(KeyAscii))n=Len(str)Text1=String(n,str)EndSubUVJ᝞ᙠWᐭYZ஻a஻ᑣᙠᦻB᪾Textl\]^ḄᑁaoA)aaB)aAC)AAD)Aa11.ᙠ\bcd@ᢥef?@ᦻB᪾gᑖiKᑏ᝞jṹQPrivateSubCommandl_Click()Textl.Text=UCase(Textl.Text)EndSubPrivateSubCommand2Click()Textl.Text=LCase(Textl.Text)EndSubPrivateSubCommand3_Click()Textl.Text=Textl.TagEndSubPrivateSubTextl_KeyUp(KeyCodeAsInteger,ShiftAsInteger)Textl.Tag=Textl.TextEndSubUVJᙠᦻB᪾\ᐭ“efg”,ᑖipqCommandlஹCommands>Command3,ᦻB᪾\]^஺A)efgEFGEFGB)efgEFGefgC)EFGabcabcD)EFGEFGefg12.uᨵ᝞NOPQPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=6AndButton=2ThenPrint஻BBBBB஻EndIfEndSubUVJ{ᙠ“BBBB”|᡻VḄ~oA)ᢥShiftf᪗ᢥeB)ᢥCtrlஹAltf᪗ᢥe

94C)ᢥShiftf᪗ᢥeD)ᢥCtrlஹAltf᪗ᢥe13.W~ᨵᐵḄNOᨵKeyPress>KeyUpfKeyDownNOᵨᡝᢥg@Jd@NOḄ_____OA)KeyDown>KeyPress>KeyUpB)KeyDownஹKeyUp>KeyPressC)KeyPressஹKeyDown>>KeyUpD)ᨵ14.Kᑏ᝞jṹQOptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,587,48,498)ml=a(l)Lm2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenml=a(i)Lm2=iEndIfNextiEndIfPrintml;m2EndSubUVJᢥ஺A)484B)2371C)5873D)498415.᡻VᑡJᙠᦻB᪾\ᐭY“d”஺PrivateSubForm_Load()Textl=஻஻EndSubPrivateSubTextl_Change()PrintTextl.TextEndSubPrivateSubTextl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubTextl_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)EndSubA)DB)dC)dD)D

95ddDdDDddᑖ᪆QᐭY“d”JᐜKeyDownNOᯠJKeyPressஹChange()ஹ⚪1.ᙠ¡ḄKeyDownfKeyUpNOP\ᵨᡝᢥShift,¢ᦪShiftḄ¤ᵨᡝᢥCtrl¢ᦪShiftḄ¤ᵨᡝᢥAlt¢ᦪShiftḄ¤—?o2.¦ḄKeyPreview§ឋu©True,ᯠJKᑏ᝞ª@NOPQPrivateSubFormKeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubFormKeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)EndSubUVJ᝞«¬ᢥWḄ“A”(ᓽᐭ®ᑏYZ“a”)ᑣᙠḄYᑖif஺3.¦ḄKeyPreview§ឋu©True,gKᑏ᝞ª@NOPQPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintKeyCode;EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintKeyAsciiEndSubUVJ᝞ᢥaᑣᙠḄᦪ¤fo4.¯ḄKeypreview§ឋu©True,ᯠJ᡻VᑡᢥWYa,ᑣᙠᦻB᪾\]^ḄYZ,ᙠ\஺PrivateSubTextl_KeyPress(KeyAsciiAsInteger)Char=Chr(KeyAscii)KeyAscii=Asc(UCase(Char))PrintChar;KeyAscii;EndSubPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Print"Down";EndSub

96PrivateSubFormKeyPress(KeyAsciiAsInteger)Print"Press”;EndSubPrivateSubForm_KeyUp(KeyCodeAsInteger,ShiftAsInteger)Print஻UP஻±EndSub²¯ḄKeypreview§ឋu©False,ᯠJ³᡻V☢ᢥWYa,ᑣᙠ0µQḄKeypreview§ឋu©True,ᑣᐜ¶Ḅ·O¬ᦈᑮWNO஺ḄKeypreview§ឋu©FalseᑣºḄWNO஺5.ᙠ᡻VKeyPressNOPKeyAsciiᡠᢥḄ______¤஺¶ᨵ᫏Yf᫏YḄ᡻VKeyDownNOPKeyCode________YḄ________¤஺¶YZ¾¿ᜧᑏÁ®ᑏᐸKeyCodeḄ¤ÂÃYZḄASCIIṹ¤஺6.ᙠĪ@ᦻB᪾ᐸEFᑖiTextlfText2,ᯠJKᑏ᝞NOPQPrivateSubForm_Load()ShowText1.TextÅ஻஻Text2.TextÅ஻஻Text2.SetFocusEndSubPrivateSubText2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Textl.Text=Textl.Text+Chr(KeyCode-4)EndSubUVJ᝞ᙠText2ᦻB᪾\ᐭ“efghi"ᑣTextlᦻB᪾\Ḅᑁa஺7.ᨵ?@ᦻB᪾Textl,ᑡḄᙠᓫq᪗¯TextlËᑮ᪗ᓫqḄᙢÍÎᡂᑡ஺PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Textl.MoveEndSub8.ᨵ?@ᢥe᡻VJᙠᢥeᓫq᪗ᙠᢥeᓫq᪗PrivateSubCommand1_C1ick()Print"Left";EndSub

97PrivateSubCommand1MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print"Right”;EndSubஹὃᫀ1)⌱⚪l.D2.A3.C4.D5.D6.1)7.D8.C9.D10.B11.C12.B13.A14.C15.D2)⚪1.1ஹ2ஹ42.Aஹa3.65ஹ974.AஹDownPressa65UPஹa655.ASCIIஹ᫏ஹASCII>ᜧᑏ6.ABCDE7.X,Y8.RightLeftஹRight9.KeyPressஹCombol.List(i)>Additem