vb期末考试复习资料

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

VISUALBASICḄᱯ᱐1
ḄVisualBasicᨬḄᱯA.᪀ᓄB.᛻C.ᢈD.!"#$%ᑴூᑖ᪆௃Ḅ☢ᔣ-Ḅ./012345᪀ᓄᨵḄ789:;<ᗐḄ>ᡂ᛻@ᢈ.ABCDE1Fᨵ!"#$%ᑴ஺
HIVisualBasicᨬḄᱯJ!"#$%ᑴ஺ூKᫀ௃D2MᑡᡂᕒPQRSTUVḄA.ᨬᜧᓄᢥYB.Z᝱\C.]^ᓫD.`ᐹ\ூᑖ᪆௃TUVᵫ᪗⚪\ஹ^ᓫ\@`ᐹ\᪀ᡂᐸP᪗⚪\Eᨵ]^ᓫghij3kᨬlᓄஹᨬᜧᓄ@ᐵnᢥY஺opᨬᜧᓄᢥYஹ]^ᓫ@`ᐹ\1TUVPḄᡂᕒqTUVPFᨵZ᝱\஺ூKᫀ௃B3ᙠRឋUVPRឋᑡ⊤23ᢥuvw᣸ᑡHuvw@஺ூᑖ᪆௃y:zS{|RឋUV}~}ḄRឋ89:uv᣸ᑡ/vᢥ⊤w/vᢥRឋḄᑖw஺ூKᫀ௃ᢥᡈᢥᑖᢥᑖᡈᢥ4VisualBasic6.0Ḅ>ᡂ᛻ᨵuv/v,v஺ூᑖ᪆௃ᙠMVisualBasic6.0>ᡂ᛻yᦻ᫏☢ᓽMDIᙠHvMUᘤUVḄ஺ᵨ“`ᐹ”^ᓫPḄ“⌱⚗”23>ᡂ᛻¡yᓫᦻ᫏☢ᓽSDIᙠHvMUᘤUV¢#Ḅ஺ூKᫀ௃ᦻ᫏☢ᡈMDIᓫᦻ᫏☢ᡈSDIᐸ1y:£-RឋUVUḄControlBoxRឋ¡yTruegᡈFalse,Mᑡ¤¥Ḅ¦§A.¨©ªᐭTruegᡈFalseB.ᑭᵨ}᪾¡Rឋ¯C.⌱°ControlBox,ᯠ²ᢥ³´ªD.µ¶ControlBoxRឋᩩூᑖ᪆௃ControlBoxRឋ/¸¹º¯ᐸ»¯¼ᨵuvᓽTrue@False,/023£-⌱°½ᐭᓽᓫ¶Rឋᩩ¾iḄ¿ᜮMÁÂÃRឋ¯True@False,ÄP⌱°ᡠ◤⌕Ḅ¯஺ᙠE☢ÈḄKᫀPɸKᫀ1QÊ45ᡠ⌕ËḄ¦§¼ᨵKᫀDÌÊ45஺4▭E}S¼ᨵuv2Ê»¯
TrueᡈFalseஹ0ᡈ1ḄRឋ123£-µ¶Rឋᩩ¡஺ூKᫀ௃D2MᑡÎᵨᩭ¡UFormlḄRឋᐸPᙠÐÑÒQʤ¥¦§ḄÎA.Fonnl.Caplin="FormTest"B.Forml.Name="FormTest"C.Forml.MaxButton=FalseD.Forml.MinButton=Falseூᑖ᪆௃H4¸ÎᵨᩭᙠÐÑÒ¡UḄRឋ஺ᐸPFonnl.Captin="FormTest”ᵨᩭ¡UḄ᪗⚪Forml.Name="FormTest"ᵨᩭ¡UḄÓÔForm1.MaxButton=Falseᵨᩭ◚ÖUḄᨬᜧᓄᢥYForml.MinButton=Falseᵨᩭ◚ÖUḄᨬlᓄᢥY஺Ä×ØEᩭÙÚÛFᨵÜÝÞ⚪ᙠ½ᐭÒ7Qßàá┯ã஺.UḄNameRឋ/¸“¼ä”RឋᙠÐÑÒQÊᦋæopÐѲ~᡻ÑᑮForml.Name="FormTest"ÎÒéß┯஺ூKᫀ௃B3MᑡQÊᡭRឋUVḄ¦§A.᡻Ñ“ëì”^ᓫPḄ“RឋUV”B.ᢥF4ªC.ᢥCtrl+TªD.ᓫ¶`ᐹ\EḄ“RឋUV”ᢥY

1ூᑖ᪆௃ᙠE☢⌱°PCtrl+Tªᵨᩭ᡻Ñ“`”^ᓫPḄ“í!”ᡭḄ“í!”UVQRឋUVᐸî3¸⌱⚗123ᡭRឋUV஺ïKᫀðCi4ஹy:}¸ñ!᡻Ѧ§òó⌱°HIñ!•MᑡQÊ⌱°¸ñ!Ḅ¦§A.ᢥõAltªQ⌕öᯠ²ᓫ¶÷¸⌕⌱°Ḅñ!B.ᢥõShiftªQ⌕öᯠ²ᓫ¶÷¸⌕⌱°Ḅñ!C.ᢥõCtrlªQ⌕öᯠ²ᓫ¶÷¸⌕⌱°Ḅñ!D.ø#ù᪗ú/¸ûüýþᡠ⌱°Ḅñ!ÿ
ᑁூᑖ᪆௃ᦟ⌱ḄᓽᢥShiftᓫ⌕⌱Ḅ"#$%᪗'()஺◀
᜜ᢥCtrlᓫ⌕⌱Ḅ-./0⌱Ḅ123ᢥAltᓫ⌕⌱Ḅ456ᑮ8Ḅ஺ூ9ᫀ௃A;5<ᙠ>?@ABCFormlḄ᪗⚪(CaptionEឋ)HI<"TestProgram",JKᵨḄMN<ூᑖ᪆௃BCḄCaptionEឋᵨᩭHIBCḄ᪗⚪PQRS

2<µ¶Z45KᵨRemᙠ¿ᔠMN?µ¶ÁÂaᨬrPMN45Ãᙠ¿ᔠMN?µ¶MN45ÃᙠÄ?ZḄr☢஺ᙠᡠ²³Ḅ⌱AஹCஹDa4©ªḄ஺ூ9ᫀ௃B;4<¯°BCḄClickÆᓽForm_Click,JᐜᙠṹBḄÈ⌱Form,ᯠrᙠÈ⌱Clickoூᑖ᪆௃ṹBḄ⚔Ë(᪗⚪ÈḄw☢)ᑖ<ÌÍÈÌÎPÈa“ÏДÈÍÎPÈa“”È஺ᙠ“ÏДÈḄwÑᑡ⊤.`⌱BCᡈḄÓÔᙠ“”È.`⌱ÆḄÓÔ஺hi<¯°ÆForm_Click,Jᙠ“ÏДÈ⌱Form,ᯠrᙠ“”È⌱Clickoூ9ᫀ௃ÕPÖT“ÏДᡈÏÐÕ×ÖT“”ᡈ;5ᎷÙBCḄÓÔ?rBCḄ᪗⚪a.ூᑖ᪆௃FormLoada·>?r✌ᐜ⌕᡻?ḄÆ஺ᙠz☢ḄÆᨵ3ÝÞMN
3MNᵨᩭÏÏÐÝÞᓽÏÏÐḄCaptionEឋÝÞßà.`HIBCḄ᪗⚪஺ÕPMNABCḄ᪗⚪HI<“AAAAA"᡻?Õ×MNrBCḄ᪗⚪á<“BBBBB”e᡻?ÕâMNrBCḄ᪗⚪á<“CCCCC”஺ூ9ᫀ௃CCCCC;6ãᑏ·ᵨᩭHIBCḄäI"ᜧæ஺⌕çT·>?rBCḄèéäI<(3000,3000),ᐸèéêë"ìëᙳ<5000ᓫPîBCrBCäIḄXᙶ᪗"Yᙶ᪗ᔜñòPóᐸêë"ìëᙳñòᑮôᩭḄPó஺(ᑖ᪆௃BCḄäIᵫTopEឋ"LeftEឋᩭHIêë"ìëᑖöᵫWidthEឋ"HeightEឋᩭHI஺BCḄèéEឋ.`EឋBHI-.`ᙠForm_LoadÆHIeᓫBCrḄEឋ.`ᙠForm_ClickÆHI஺·᝞wTPrivateSubForm_Load()Top=3000Left=3000Width=5000Height=5000EndSubPrivateSubForm_Click()Form1.Top=Forml.Top/2Form1.Left=Fonn1.Left/2Forml.Width=Forml.Width/2Forml.Height=Forml.Height/2EndSubBCḄèéäI"ᜧæᙠForm_LoadÆHI·>?r÷øBCḄèéäI"ᜧæ஺ᓫPîBCrᐸäIḄXᙶ᪗ஹYᙶ᪗ùBCḄêëஹìëᙳñòᑮôᩭḄPó஺ir᝞yúᓫPîBCᑣûñòPó஺᝞yAForm_ClickÆᦋ?rýþᓫqòîBCBCḄäI"ᜧæaôᩭḄPó஺·ᵨᑮBCḄ4EឋᓽTop.Left.Width"Height஺ᙠHI
lEឋ@BCÓÔ(Forml)

3.`ᨵ-.`ÿᨵ
ᣚᡂᐵMe஺7ᙠVisualBasic
ᑡᐜᨬḄA.*B.\C.?
ᐜᨬḄ@A67(*)஺ூBᫀ௃A8ᐵ&⊤EF
ᐸG/FalseḄA."XYZ"<"XYz"B."VisualBasic"="visualbasic"C."the"<>"there"D."Integer">"Int"ூᑖ᪆௃-HIᐵ&⊤EF2JKL0M஺ᙠVisualBasic
JᦪOᢥᐸASCHṹGKL0M஺ᙠ0MRSJT
✌ᐜ0MRSJḄVWS
ᐸASCHṹGMᜧḄᡠᙠḄJᜧ஺᝞[VWS\]
ᑣ0MV_S……a+"b஺ᙠ-Ḅ4S⌱d
AஹCஹDḄGᙳ/TruefBḄRSJgh\]
iVWSJḄVWSjᜧᑏj
1V_SJḄVWSjlᑏj
VWSJl3V_SJ
ᓽRSJm

4
>?"VisualBasic"="visualbasic”ḄG/Ꮇ,ᓽFalse«ூBᫀ௃B9ᑡqrḄVisualBasicstuvA.Dima(10)AsIntegerRemwWSVBxyB.’wWSVBxyPrivateSubCommandl_Click()...C.a=l:b=2:Remw_SVBxy:c=3D.IfShift=6AndButton=2ThenPrint"BBBB"RemwWSVBxyEndIfூᑖ᪆௃ᙠ|ᵨstuvT
ᨵ“Ἥ”AstᙠWSuvLḄ,☢T
ᵨᥗ/st
m|ᵨRemfᙠᔠuvL
stᨬ,WSuv
mᙠᔠuvLfstuvmᙠLḄ,☢஺ᙠᡠḄ⌱d
AஹCஹDmqrḄ஺ூBᫀ௃B10/ḄClickIx
ᓽForm_C1ick,@ᐜᙠṹḄ______⌱dForm,ᯠ,ᙠ______⌱dClick,ூᑖ᪆௃ṹḄ⚔(᪗⚪Ḅ☢)ᑖ/¢£R
¢¤W“2¥”
£¤W“Ix”஺ᙠ“2¥”Ḅ¦ᑡ⊤⌱dᡈ¨Ḅ©ª
ᙠ“Ix”⌱dḄ©ª஺>?
/IxForm_Click,@ᙠ“2¥”⌱dForm,ᯠ,ᙠ“Ix”⌱dClick஺ூBᫀ௃VWS«“2¥”ᡈ2¥V_S«“Ix”ᡈIx11Ꮇ¬Ḅ©ª/Forml,2-ᑏ᝞ṹPrivateSubForm_Load()Form1.Caption="AAAAA"Me.Caption="BBBBB"Caption="CCCCC"EndSubxyL,
Ḅ᪗⚪஺ூᑖ᪆௃FormLoadxyL,✌ᐜ⌕᡻LḄIx஺ᙠ°☢ḄIx
ᨵ3S±Guv
w3Suvᵨᩭ22¥±G
ᓽ22¥ḄCaption²ឋ±G
´µ¶·Ḅ᪗⚪஺VWSuv¸Ḅ᪗⚪¶·/“AAAAA"
᡻LV_Suv,
Ḅ᪗⚪¹/“BBBBB”
1᡻LVºSuv,
Ḅ᪗⚪¹/“CCCCC”஺ூBᫀ௃CCCCC

512ᑏxy
ᵨᩭ¶·Ḅ»·'ᜧl஺⌕¼xyL,
Ḅ½¾»·/(3000,3000),ᐸ½¾¿À'Àᙳ/5000fᓫÂW+,
»·ḄXᙶ᪗'Yᙶ᪗ᔜÅÆWÇ
ᐸ¿À'ÀᙳÅÆᑮÉᩭḄWÇ஺ூᑖ᪆௃Ḅ»·ᵫTop²ឋ'Left²ឋᩭ¶·
¿À'Àᑖ.ᵫWidth²ឋ'Height²ឋᩭ¶·஺Ḅ½¾²ឋHI²ឋ¶·
ᙠForm_LoadIx¶·f1ᓫÂ,Ḅ²ឋᙠForm_ClickIx¶·஺xy᝞PrivateSubForm_Load()Top=3000Left=3000Width=5000Height=5000EndSubPrivateSubForm_Click()Forml.Top=Forml.Top/2Form1.Left=Form1.Left/2Form1.Width=Form1.Width/2Form1.Height=Form1.Height/2EnclSubḄ½¾»·'ᜧlᙠForm_LoadIx¶·
xyL,
ËÌḄ½¾»·'ᜧl஺ᓫÂW+,
ᐸ»·ḄXᙶ᪗ஹYᙶ᪗ÍḄ¿ÀஹÀᙳÅÆᑮÉᩭḄWÇ஺?,᝞[ÎᓫÂW+
ᑣÏÅÆWÇ஺᝞[¸Form_ClickIxᦋ/PrivateSub,Form_Click()Forml.Top=1500Form1.Left=1500Forml.Width=2500Form1.Height=2500EndSubᑣxyL,
ÑÒᓫÂÓÆ+
Ḅ»·'ᜧlÉᩭḄWÇ஺-xyᵨᑮḄ4S²ឋ
ᓽTopஹLeftஹWidth'Height஺ᙠ¶·wÔS²ឋT
©ª(Forml)ᨵ
Õᨵ
ᣚᡂᐵMe஺ᦪḄᐭ⚪ᑖ᪆1ᙠ°ÖWS×ØᢥÙ(©ª/Commandl),ᯠ,ᑏ᝞IxPrivateSubCommand1_Click()a=4b=5c=6Printa=b+cEndSubxyL,
ᓫÂ×ØᢥÙ
ᐸÚ[/A.a=llB.a=b+cC.FalseD.┯ூᑖ᪆௃PrintÜ7ᐹᨵÞ'ßRàá஺APrintḄß⚗⊤EFT
ãᐜÞ⊤EF
ᯠ,ß⊤EFḄG஺ᡠÞ'ßḄ⊤EF$⊤EF
ᐵ&⊤EFᡈ()⊤EF஺-Ḅa=b+cWSᐵ&⊤EF
ᐸaḄG/4,b+cḄG11,Printa=b+cä▭°᡻LḄPrint4=11,ËᯠWS“Ꮇ”G஺ூBᫀ௃csæ
ᨵçèé/hḄBᫀ@A/D,wm2Ḅ஺2ᑡmqrḄuvA.Printa=10+20B.Printna=u;10+20C.Print,,a,'=M10+20nD.Printa=;10+20ூᑖ᪆௃PrintÜ7Ḅß⚗WS⊤EF
ᒹë$⊤EF(J⊤EF)ஹᐵ&⊤EF'()⊤

6EF஺ᙠᡠḄ⌱d
AᵨPrintÜ7ßWSᐵ&⊤EFḄG
0MRS$⊤EFḄGᔲ

7fBᵨPrintßWSJ'WS$⊤EFḄG
ᐸJ᯿É᪵ß
ᯠ,Þïß$⊤EFḄGfCᵨPrintÜ7ßWSᐵ&⊤EFḄG
0MRSJᔲ

8
wðSuvqrḄ
ßqrḄÚ[
1Dèñòu7┯ó஺ூBᫀ௃D3ᙠ°ÖWS×ØᢥÙ
ᯠ,ᑏ᝞ṹPrivateSubCommand1_Click
a&=InputBox
"ôßᐭVWSᦪ”öb&_InputBox
"ôßᐭV_Sᦪ”öPrintb&+a&EndSubxyL,
ᓫÂ×ØᢥÙ
ᙠRSßᐭ2÷᪾ᐜ,ßᐭ12345'54321,xyḄßÚ[A.66666B.5432112345C.1234554321D.┯ூᑖ᪆௃InputBoxùᦪḄúûGWSJ
iᵫ3a&'b&HI"ü5ýþËFᙢ
᦮ᙠ᡻InputBoxᦪᡠḄᣚ᦮▭!"᡻#$%ᣚᓽ'a&=CLng
InputBox("*+ᐭ-#.ᦪ"//b&=CLng
InputBox("*+ᐭ-0.ᦪ"1᪵!᡻Print3456789+:8;⊤=>b&+a&Ḅ஺@AᫀCAD;ᎷGHIᨵ᝞LMN'answeᔆMsgBox
"-#."vbAbortRetryIgnore_OrvbCritical_OrvbDefaultButton3,_”-0.”/᡻QMN6RS#.TU᪾W5᝞XᢥZ[ᑣanswerḄA.”-0.”B.5C.3D.7ூᑖ᪆௃MsgBoxᦪḄb#.᦮ᦪ1.᦮ᦪcᡠ⌱eḄᢥfᨵᐵ஺hDḄ-0.iᦪᵫklᑖmᡂᐸIvbAbortRetrylgnoreᵨᩭᙠTU᪾IRS3.ᢥfᑖr“tu”ஹ“wx”y"zᶍ"|vbCriticalᵨᩭᙠTU᪾IRSCriticalMessage}᪗|vbDefaukButton3TU᪾Ḅ-k.ᢥf(ᓽ“zᶍ”/ᢣᢥf஺᡻QMNᙠTU᪾IRS3.ᢥf9-k.ᢥfᢥfW5᝞XᢥZ[ᑣbQᢥfᡠḄ•ᵫ"“zᶍ”ᢥfḄb5,WanswerḄ5஺@AᫀCBD5᡻LᑡMNRS+ᐭ᪾,W5᝞Xᓫ“”ᢥf,ᑣstrinputḄᑁb஺strinput=InputBox
“*+ᐭ”“᪾”“”/ூᑖ᪆௃ᙠ᡻InputBoxᦪ5#.+ᐭ᪾Qᦪᨵ7.iᦪk.iᦪb஺ᐸI-#.iᦪᵨᩭᙠ+ᐭ᪾ᑁRS#.Sᵨᡝ+ᐭḄ-0.iᦪb᪾Ḅ᪗⚪-k.iᦪb+ᐭḄTU஺bᙠ᡻InpulBoxᦪ᝞Xᵨᡝᨵ+ᐭTUᑣᵨW+ᐭ஺᝞Xᵨ1.+ᐭᑣᙠ+ᐭ¡¢[ᐭᦪ£¤¥¦஺ᙠQDIRS᪾¡¢ᓫ“”ᢥfW-k.iᦪbḄ+ᐭ஺ூAᫀ௃D6▅¨GH'PrivateSubForm_Click
msgl$="©ªᔩ?"msg2$="᪾"r=MsgBox
msg1$,vbYesNoOrvbDefaultButton2,msg2$EndSubGH®ᓫ¯°6#.TU᪾஺W5᝞X¡¢ᢥZ[ᑣ!"ᵨ±᪗ᓫTU᪾

9IḄᢥf஺ூᑖ᪆௃hDᵨMsgBoxᦪTU᪾QᦪḄ-#.iᦪᙠTU᪾ᑁRS-0.iᦪᑖ²lᑖᐸI#lᑖ(ᓽvbYesNo)ᵨᩭᙠTU᪾I².ᢥfᑖr“b”y“ᔲ”#lᑖ(ᓽvbDefaultButton2)-0.ᢥf(ᓽ“ᔲ”)¶·ᢥf|-k.iᦪbTU᪾Ḅ᪗⚪஺GH®ᓫ¯°ᡠḄTU᪾Ḅ᪗⚪“᪾”,ᙠTU᪾ᑁRSḄᑁb“©ªᔩ¸”,².ᢥfᑖrb“b”y“ᔲ"ᐸI“ᔲ”bᢥf஺W5᝞XᢥZ[ᑣcᓫ“ᔲ”ᢥfᦔXº஺ூAᫀ௃“ᔲ”ᡈ-0.D7¶ᨵ᝞LGH'PrivateSubForm_Click()a=32548.56PrintFormat(Int((a*10+0.5))/10,M000,000.00")EndSubGH®ᓫ¯°+:¼Xb஺ூᑖ᪆௃hDᵨFormatᦪᦪ½¾>ᓄ+:⌕+:ḄᦪÁÂᙠaI஺FormatᦪḄ-#.iᦪa½ÃÄᐭᜐᳮ,Çᶇ#ÉÊᦪ-0ÉÊᦪËÄÌᐭ,ᐸ32548.6°FormatᦪḄ-0.iᦪb¾>ÍÎᵨḄÍᨵ“0”y“”Çᶇ²ÉÊᦪQᦪḄ032,548.60«ூAᫀ௃032,548.60D8ÏᑏGH78ᙊḄ☢Ó.ூᑖ᪆௃ᙊ☢ÓḄ78Õ>'S=1r2ᐸIrb⌕78☢ÓḄᙊḄÖ×GH®Ø[Ù+ᐭ஺GH᝞L'PrivateSubForm_Click()ConstPI=3.14159DimrAsSingle,SAsSingler=InputBox("*+ᐭᙊḄÖ×”“+ᐭᦪ£““50")S=PI*r*rPrint“S0“|Format(SEndSubGH®ᓫ¯°6RS#.+ᐭ᪾ᙠQ᪾I+ᐭᙊḄÖ×(50),ᯠᓫᢥfᡈᢥZ[ᓽᙠ¯°+:ᙊḄ☢Ó஺Ꮇᙠ᪾I+ᐭ35,ᑣᓫ“”ᢥf,+:¼X'S=3,848.45஺D9Ø[Ù+ᐭÊ5ஹᑖyÛᣚÛᦪ9+:஺ூᑖ᪆௃1Ê5Ü"60ᑖ1ᑖÝÜ"60Û஺Ê5ᦪÞ¤60*60,ᑖÝᦪÞ¤60,ßàÛᦪÜ"áÛᦪ஺¶Ê5ᦪH,ᑖÝᦪM,ÛᦪS,ᑣHÊ5ஹMᑖஹSÛḄáÛᦪSS'SS=H*60*60+M*60+SGH᝞L'PrivateSubForm_Click()H=InputBox("*+ᐭÊ5""Ê5")H=Val(H)M=InputBox("*+ᐭᑖ""ᑖ”)M=Val(M)S=InputBox("*+ᐭÛ""Û")S=Val(S)SS=S+M*60+H*60*60PrintH;"Ê5";M;"ᑖ”;S;"Û=";SS;"Û"EndSubGH®ᓫ¯°6ᐜRS3.+ᐭ᪾⌕ã+ᐭÊ50ᑖyÛ஺Ꮇᑖr+ᐭ5ஹ45y25,ᑣ+:¼X'5Ê545ᑖ25Û=20725Û

10!"ᵨ᪗%&'⚪D1ᙠ¯°ä².ᦻh᪾(ᐸæçᑖrTextlyText2)y#.èéᢥf(ᐸæçCommand1)ᯠÏᑏ᝞L².êëìG'PrivateSubCommand1_Click()Textl.Text="ComputerRankExamination0EndSubPrivateSubTextl_Change()Text2.Text=UCase(Text1.Text)EndSubGH®ᓫèéᢥfᑣᙠText2ᦻh᪾IRSḄᑁbA.ComputerRankExaminationB.computerrankexaminationC.COMPUTERRANKEXAMINATIOND.íூᑖ᪆௃QDᨵ².êëìG#.bèéᢥfḄClickêëìG#.bᦻh᪾ḄTextlḄChangeêëìG!ᓫèéᢥf5᡻#.êëìG!ᙠᦻh᪾TextlI+ᐭTU56᡻Qᦻh᪾ḄChangeêëìG஺ᙠèéᢥfêëìGIᦻh᪾TexllḄTexlîឋðᓽᙠQᦻh᪾IRS"ComputerRankExamination”ᙠ1ñòóL6ôõTextlᦻh᪾ḄChangeêëᦻh᪾TexllIḄᡠᨵöᣚᜧᑏö9ᙠᦻh᪾Text2IRS:ᩭ஺GH®᝞Xᓫèéᢥfᑣ6ᐜôõèéᢥfḄClickêëyᦻh᪾TextlḄChangeêëᑖrᙠ².ᦻh᪾IRSᵫ².êëìGᡠᢣḄᑁ஺ூAᫀ௃CD2ᙠ¯°ä#.æçListlḄᑡ⊤᪾#.æçLabellḄ᪗ø஺ᑡ⊤᪾IRSùúûüḄæç஺!ᓫᑡ⊤᪾IḄý.ûüæ5ᙠ᪗øIRS⌱IûüḄæç஺Lᑡþÿ
ḄA.PrivateSubListl_Click()Label1.Caption=Listl.ListindexEndSubB.PrivateSubListl_Click()Labell.Name=Listl.ListindexEndSubC.PrivateSubListl_Click()Labell.Name=Listl.TextEndSubD.PrivateSubListl_Click()Label1.Caption=Listl.TextEndSubூᑖ᪆௃ᡠḄ4⌱ᑡ⊤᪾ḄClick஺ᓫᑡ⊤᪾Ḅ!"⚗$%&'(ᓫ%)$⌱"ᑡ⊤⚗%*ᑡ⊤⚗+,ᵨᑡ⊤᪾ḄText.ឋᩭ⊤1஺234%Listl.Text3ᡠ⌱Ḅ⚗5஺6᜜%89ᙠ᪗<=1ᡠ⌱Ḅᑡ⊤⚗%>?@ᵨᑡ⊤᪾Ḅ᪗⚪.ឋ%ᓽLabell.CaptionoC6%DḄEFGHLabel1.CIlion=Listl.TextᙠVisualBasic%JᙠKLMNᦋPQᡈSTḄUV(Name.ឋ)%C6BXCY⌱┯[Ḅ\]ᑡ⊤᪾ḄListindex.ឋᡠ⌱Ḅᑡ⊤⚗Ḅ^_%ᓽᑡ⊤⚗Ḅ᪗⚪%Jᑡ⊤⚗`a஺ூbᫀ௃Dd3ᙠSTe"ᦻ`᪾ஹ"᪗

11PrivateSubTextl_Change()Label1.Caption=UCase(Mid(TextI.Text,8))EndSubKLo%ᓫhiᢥk%&=1"wᐭ~᪾%᝞ᙠ~᪾wᐭyz{“VisualBasic”,ᑣᙠ᪗<=1ḄᑁA.visualbasicB.VISUALBASICC.basicD.BASICᑖ᪆௃dᒹY%ᐸhiᢥkwᐭ~᪾ᩭwᐭ"yz{%*yz{ᦻ`᪾஺]ᦋPᦻ`᪾Ḅᑁ$%&'ᦻ`᪾ḄChange஺C6%ᙠwᐭḄyz{ᦻ`᪾$%&᡻Lᦻ`᪾ḄChange%~᪗<ḄCItion.ឋ%H✌ᐜᦻ`᪾yzoḄᐰyz%ᯠoᣚ8ᜧᑏy஺ᵫᦻ`᪾Ḅyz{8“VisualBasic"%yz8“B”%oḄyz8“Basic"%᡻LUcaseᦪo%ᣚ8ᜧᑏ%ᓽ“BASIC”஺ூbᫀ௃Dd4ᙠSTeYᦻ`᪾(UVᑖm8TextlXText2)X"hiᢥk(UV8Command௃)%ᯠopᑏ᝞sHPrivateSubCommand1Click()Textl.Text=InputBox(”vwᐭa”)Text2.Text=InputBox("vwᐭT¡”)EndSubKLo%᝞ᓫhiᢥk%&ᐜo=1Ywᐭ~᪾%ᙠYwᐭ~᪾ᑖmwᐭ1.78X75,ᑣYᦻ`᪾=1Ḅᑁᑖm8X஺ூᑖ᪆௃ᙠ"¢£¤s%InputBoxᦪwᐭḄᦪ¥¦"P§஺ᙠ`d%¨ᨵ@ᵨP§%]ª«wᐭ~᪾Ḅᦻ`᪾ḄText.ឋ஺C6%"ᦻ`᪾«ᦈḄa%ᦻ`᪾«ᦈḄT¡஺ூbᫀ௃1.7875d589ᙠKL$“d:\pic”ᦻᜳsḄ¯°ᦻa.jpg±ᐭ¯ᱏ᪾Picture1,ᡠ@ᵨḄEF8ᑖ᪆௃ᙠKLMN%+,ᵨLoadPictureᦪᢣ´Ḅ¯°ᦻ±ᐭSTஹ¯ᱏ᪾ᡈ¯µ᪾%
▭¯°ᦻ~·ḄPicture.ឋ஺"¢¸¹8Hº~·.Picture=LoadPicture(“ᦻU”)ᐸḄ“ᦻU”+,¼½¸¹Ḅ¯°ᦻ%ᒹ.bmpஹ.icoஹ.wmfஹ.emfஹjpgஹ.gif¾%¿ÀḄ“ᦻU”+,ÁᨵÂÃ஺~`dᩭ4%''ᦻU“(ᒹÂÃ)Hd:\pic\a.jpg,"~·”Picturel஺ூbᫀÅPicture1.Picture=LoadPicture("d:\pic\a.jpg")d6ᙠSTe"ᑡ⊤᪾ஹ"hiᢥkX"᪗<஺KLo%ᙠᑡ⊤᪾⌱"⚗5%ᯠoᓫhiᢥk%ᓽ+&ᡠ⌱Ḅ⚗5ᑤ◀%ᙠ᪗<=1ᑡ⊤᪾ÈḄ⚗5ᦪ%KL£¤᝞¯6-1ᡠ1஺s☢
Ḅ%vÊË஺PrivateSubForm_Load()List1.AdditemHAAAAA"List1.Additem”BBBBB”Listl.Addltem'CCCCC"Listl.Additem"DDDDD"EndSubPrivateSubCommand1_Click()DimLAsIntegerL=_____Ifind>=OThenListl.RemoveitemLabel1.Caption=ElseMsgBox”v⌱⌕ᑤ◀Ḅ⚗5”EndIfEndSub

12ூᑖ᪆௃`d¿ÀḄᒹY%ᐸFormLoadᵨᩭᔣᑡ⊤᪾ÎÏ⚗5%]Command]Clickᑤ◀ᑡ⊤᪾¦⌱Ḅ⚗5%ᙠ᪗<=1ᑡ⊤᪾ÈḄ⚗5ᦪ%◤⌕ÊËḄÑṹᙠ*஺89ᑤ◀ᑡ⊤᪾ᢣ´Ḅ⚗5%+,@ᵨRemovehemÓÔ%ᐸ¸¹8Hᑡ⊤᪾.RemoveitemÕÖᐸḄ“ÕÖ”⚗5Ḅᙢᙬ%ᑡ⊤᪾Ḅ⚗5Ù0ÚÛÜᦪ%¦⌱Ḅ⚗5ḄÕÖ3ᑡ⊤᪾ḄListindex.ឋ஺89ᑤ◀ᑡ⊤᪾¦⌱Ḅ⚗5%>?ᐜ´⚗5ḄÕÖ%ᓽᑡ⊤᪾ḄListindex.ឋ%ᯠo3+,ᵨRemoveitemÓÔ&ᐸᑤ◀஺`⚪Ḅ"˦⌱Ḅ⚗5ḄÕÖ%G8Lisll.LislIndex,P§L஺ËRemovellemÓÔḄÝᦪ%ᓽ“ÕÖ”%ᵫÞßàᙠP§L%C6GÊᐭL஺áËᑡ⊤᪾ÈḄ⚗5ᦪ%3ᑡ⊤᪾ḄListCount.ឋ஺ூbᫀ௃Listl.ListindexLList1.ListCountd7ᙠSTe"¯ᱏ᪾ஹ"ᚖªãäᩩX"hiᢥk(᪗⚪8“æ_.ឋ”)%.ឋSçᙠ¯ᱏ᪾±ᐭ"¯°%¯ᱏ᪾Ḅèé꯰Ḅèéë)%¯ᱏ᪾Ḅéìí஺pᑏ〉Ḅ஺KLo%᝞ᓫhiᢥk%ᑣæ_ᚖªãäᩩḄ.ឋ᝞sHMin100Max2400LargeChange200SmallChange20o3+,ïäãäᩩḄãä᪾ᩭðᜧᡈñò¯ᱏ᪾஺ூᑖ᪆௃`d⌕ó
YÓ☢Ḅ%ᐸ"ᓫhiᢥk$æ_ãäᩩḄô.ឋ\ᐸïäãäᩩḄãä᪾$᡽ᜧᡈñò¯ᱏ᪾Ḅé஺"+,s☢Ḅᩭ
HPrivateSubCommand1_Click()VScrolll.Min=100VScrolll.Max=2400VScroll1.LargeChange=200VScroll1.SmallChange=20EnclSub+,ᵨs☢Ḅᩭ
HPrivateSubVScrolll_Change()Picture1.Height=VScroll1.ValueEnclSubd8ᙠSTeYhiᢥkX"᪗<%YhiᢥkḄ᪗⚪ᑖmæ_8“ñò”X“᡽ᜧ”;᪗<ḄAutoSize.ឋæ_8True,᪗⚪æ_8“Ü÷ø¾ùὃû”஺KLo%᝞ᓫ"hiᢥk%ᑣ+@᪗<᪗⚪ḄyTᜧòñò1.2ü\᝞ᓫhiᢥk%ᑣ+@᪗<᪗⚪ḄyTᜧò᡽ᜧ1.2ü஺ூᑖ᪆௃hiᢥkX᪗<Ḅ᪗⚪,ý᪗<ḄAutoSize.ឋ+,.ឋSçæ_%2+,ᙠKLMNæ_஺KLo%✌ᐜ᡻LForm_Load%+,æ_᪗⚪XAutoSize.ឋḄÑṹðᙠ஺᪷¥⚪í%ᓫYhiᢥk$%ᑖm@ÿ᪗
Ḅᡈ᡽ᜧ1.2Ḅᜧ᪗
ḄFontSizeឋᩭ஺᝞᪗
Ḅ1.2ᑣ᡻!☢Ḅ#$%Label1.FontSize=Label1.FontSize/1.2᝞᪗
Ḅ᡽ᜧ1.2ᑣ&᡻Ḅ#$'%Label1.FontSize=Label1.FontSize*1.2()᝞!:PrivateSubFormLoad()Label1.Caption="+,-./ὃ1”Command1.Caption=""Command2.Caption="᡽ᜧ"Label1.AutoSize=TrueEndSubPrivateSubCommand1_Click()

13LabelI.FontSize=Label1.FontSize/1.2EndSubPrivateSubCommand2_Click()Label1.FontSize=Label1.FontSize*1.2EndSub(VB&ᑴ*᪀⚪516789:;<Ḅ=ஹᨴஹ@ᑖBCDᙠFGyOஹmOஹdOHI@JḄ=ஹᨴஹ@ᑖBCDᙠFGylஹmlஹdlK9:ḄLM=NCDᙠFGage஺ᑣ!OP+,LM=NḄ()QRA.B.age=yl-yOage=y1-yOIfml=dO,ᑣLM=N'age஺q;'c+,LM=Nᐜ+,age=yl-yO,᝞ml3,"¡¢&IIf(aV8,"ᦑ¤"&Hf(a<>7,"⚢¦""")Text1.Text=tEndSub()¨ᓫ©ᢥᑣᙠᦻ᪾~ªḄᑁ¬RA.%¡¢ᦑ¤B.%¡¢⚢¦C.%⚢¦D.%ᦑ¤

14ூᑖ᪆௃Ilfᦪᨵ¯9°ᦪᐸ²89°ᦪR89Boolean³᝞´°ᦪḄ³'True,ᑣᦪḄµ¶³'²·9°ᦪa᝞²89°ᦪḄµ¶³'False,ᑣᦪḄµ¶³'²¯9°ᦪ஺´5FGaḄ³'10,ᙠ²89Ilfᦪ²89°ᦪ'True,ᐸµ¶³'²·9°ᦪᓽ“¡¢”aᙠ²·9Ilfᦪ²89°ᦪ'False,ᐸµ¶³'²¯9°ᦪᓽ¹º»aᙠ²¯9Ofᦪ²89°ᦪ'True,ᐸµ¶³'²·9°ᦪᓽ“⚢¦”஺FGtḄ³'%"%"&“¡¢⚢¦"ூ|ᫀ௃B53Ꮇ¾ᨵ!☢Ḅ()Q%Fori=1To3Forj=1ToiFork=jTo3Print"i=";i,"j=";j,"k=";kNextkNextjNextiKR89¯¿ÀÁ()ᙠK9()᜜ÃஹÃᑁÃÀÁḄÀÁÄᦪRA.3ஹ614B.3ஹ816C.3ஹ412D.3ஹ918ூᑖ᪆௃ᙠÅ¿ÀÁ᜜ÃÀÁFᓄ8ÄᑁÃÀÁÇᜮᑮÉ᡻8Ê஺´⚪R89¯¿ÀÁpÃÀÁFGḄ̳ᑁÃÀÁFGḄͳRÎ{8ÃÀÁḄÀÁFGḄFᓄFᓄḄ◤⌕⌲ÃÐ+,ÑÐ;ᔜÃḄÀÁÄᦪ஺ÓÔ+,-Ḅ+,(+,ᔜÃḄÀÁÄᦪ᝞!%(1)᜜ÃÀÁ%i=lTo3,ÀÁÄᦪ'3(2)ÃÀÁ%Hi=lÕj=lTo1,ÀÁ1ÄHi=2Õj=lTo2,ÀÁ2ÄHi=3Õj=lTo3,ÀÁ3ÄÃÀÁḄÀÁÄᦪ'6(3)ᑁÃÀÁ%Hj=lÕk=lTo3,ÀÁ3ÄHj=lÕk=lTo3,ÀÁ3ÄHj=2Õk=2To3,ÀÁ2ÄHj=lÕk=lTo3,ÀÁ3ÄHj=2Õk=2To3,ÀÁ2ÄHj=3Õk=3To3,ÀÁ1ÄᑁÃÀÁḄÀÁÄᦪ'14ூ|ᫀ௃A54Ꮇ¾ᨵ!HÀÁ%WhileNotᩩ×ÀÁWEndᑣ᡻ÀÁḄ“ᩩ×”RA.TrueB.1C.FalseD.-1ூᑖ᪆௃ᙠHÀÁᨵHWhile☢Ḅ“ᩩ×”'TrueÕØfᐭÀÁ᡻ÀÁ஺Ú_RbᙠWhileᩩ×ᨵ“ᩩ×”'TrueØ᡻ÀÁ஺⚪ᙠ“ᩩ×”IÐc89Ûܨ,ºNot,⌕᡻ÀÁÝÞ“ᩩ×”ßàÜᓽ“ᩩ×”Ý'False஺ூ|ᫀ௃C55▅â!☢Ḅ()%PrivateSubForm_Click()Dimm,nAsIntegerm=lnputBox("ãäᐭMḄ³”)m=Val(m)ml=mn=InputBox("ãäᐭNḄ³”)n=Val(n)

15nl=nDoWhilenOOremin=mModnm=nn=reminLoopPrintml,nl,mEnclSub()¨ᓫ©ᙠäᐭÞå᪾ᑖBäᐭ1624,ᑣ()ᙠ{Ḅä;k'A.16244B.16248C.24166D.24168ூᑖ᪆௃⚪æçḄRᵨ“éêë◀í”àî9᦮ᦪḄᨬᜧñòᦪḄ()஺8óᩭbᎷ¾ᨵî9᦮ᦪmn(m>n),jmh'ô◀ᦪnh'◀ᦪë◀õᦪ'r஺᝞rs.^0,ᑣm=n,n=r,tf8Ä◀í¨,(÷Ḅmh'ô◀ᦪnh'◀ᦪ)ᑮ÷Ḅr஺᝞røs.^0,ᑣ¿ù{(úᑮr=0'ûÕḄn_Rî9ᦪḄᨬᜧñòᦪ஺ᙠ⚪ḄDoWhile-LoopÀÁéêë◀àᨬᜧñòᦪÀÁküḄᩩ×Rë◀õᦪ'0,᝞s'0,ᑣ8ú“◀”!ý஺KþᵨMod¨,ºàõᦪÿᜧḄ᦮ᦪ◀ᦪᡈὅḄ᦮ᦪ◀ᦪᑮ᦮◀Ḅᦪ᪵஺᝞Ꮇ!ᨵ#$ᦪ24%16,ᐜ'24◀ᦪ16◀ᦪ(◀)*ᦪ8஺+',ᩭḄ◀ᦪ16.Ḅ◀ᦪ/0ᑮḄ*ᦪ8.Ḅ◀ᦪ(◀)*ᦪ0஺12ᨬ)Ḅ◀ᦪ845ᡠ7Ḅᨬᜧ89ᦪ஺ᙠ;⚪Ḅ=ᐭ?ᐜ=ᐭ16,+=ᐭ24,7@Ḅᨬᜧ89ᦪA8஺ூCᫀ௃B6▅G.☢ḄIJKPrivateSubForm_Click()DimCheck,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSubIJLM)ᓫOPQ=@A.150B.20-1C.10TrueD.10Falseூᑖ᪆௃T5$UVWXᑁZ%᜜Z5DoWX஺ᙠᑁZWX?᡻MWXQḄᩩ^5Counter_20,ᵫ_CounterḄab0,c1᡻MWXQ஺ᙠWXQ?dWXCountere1,fᑮ10)'CheckghijFalse,k2᡻MExilDo,⌨@ᑁZWX஺᜜ZWX᡻MḄᩩ^5ghCheckḄb5True஺᝞CheckFalse,ᑣ⌨@᜜ZWX=@nIJ஺ᵫ_ᙠ⌨@ᑁZWX2CheckoijFalse,c1⌨@ᑁZWX)pᓽ4⌨@᜜ZWX஺⌨@#ZWX)Counter%CheckḄbrᨵstuvᦋgx⌨@ᑁZWX2(kᑖy10%False஺ூCᫀ௃D7ᙠ0☢⚪6ḄUVWX?᝞'᜜ZWX?ḄUntilᐵ{|ᦋWhile,⌕7=@(k~஺

16DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopWhileூᑖ᪆௃ᙠDo-LoopWX?Untilᐵ{|Ḅ5“ᑮᩩ^g”᡻MWXQWhileᐵ{|(5“ᩩ^2”᡻MWXQ஺45T#$ᐵ{|)☢Ḅᩩ^5(Ḅ⌕ᙠᩩ^0LNot,ᡈὅᩩ^FalseᦋTrue,4ᵨWhileᣚUntil,ᯠ஺ூCᫀ௃NotCheck=FalseᡈCheck=True8▅GIJKPrivateSubForm_Click()DimiAsInteger,sumAsIntegerFori=2To10IfiMod2<>OThenPrintiElsesum=sum+iEndIfNextiPrintsumEndSubIJLM)ᓫOPQᙠPQ0Ḅ=@5Oூᑖ᪆௃;⚪ForWXḄWXghḄab2,b10,1஺ᙠWXQᑁᑨ¡WXghḄb5ᔲᏔᦪ᝞5ᑣ/¤b¥ᑮghsum,ᔲᑣ=@WXghḄb஺¦§@LM¤IJ)ᙠWXQᑁ=@Ḅ5᜻ᦪ¥Ḅ5Ꮤᦪ஺ᙠWXQ᜜=@ᏔᦪḄ¥%஺ூCᫀ௃3579309▅GIJKPrivateSubForm_Click()DimnumAsInteger,digitAsIntegernum=InputBox(,H,)Whilenum<>0digit=numMod10num=num\10PrintdigitWendEndSubIJLM)᝞{©0=ᐭ9876,ᑣ=@oூᑖ᪆௃;⚪ªᵨ«WXWX᡻MḄᩩ^5num¬_0஺ᙠWXQᑁᐜᵨModL7@=ᐭḄᦪnumḄ*ᦪḼᵨ10¯¤ᦪ°M᦮◀'ᑮḄᖪ²³num,ᨬ)=@*ᦪ஺ᯠ)¯᦮◀)ḄnumV´0µ¶Iᑮnum0,nWX஺ᙠWXᑁdigit·¸Ḅ5numḄ$¹ᦪd᦮◀)num⌕ºᣵ$¹ᦪ=@Ḅ5$¹ᦪ஺᝞Ꮇ!=ᐭḄ59876,ᑣWXḄ᡻M¶I᝞.Kdigit=9876Mod10=6num=9876\10=987

17Printdigit=@6ᵫ_num¬_0,V´0µ¶IKdigit=987Mod10=7num=987\10=98Printdigit=@7num¬_0,V´0µ¶IKdigit=98Mod10=8num=98\10=9Printdigit=@8num¬_0,V´0µ¶IKdigit=9Mod10=9num=9\10=0Printdigit=@9num¬_0,nWX஺ூCᫀ௃678910.IJḄ¼5{©0=ᐭ½¾¿tḄᡂÁÂÃ=@ᨬÄᑖᦪ%ᨬÅᑖᦪ=ᐭÆᦪ2n=ᐭ~஺PrivateSubCommand1_Click()DimxAsSingleDimamaxAsSingle,aminAsSinglex=InputBox("~=ᐭᑖᦪ”)amax=xamin=xDoWhileIfx>amaxThenamax=xEndIfIfThenamin=xEndIfx=InputBox("~=ᐭᑖᦪ”)LoopPrintamax,aminEndSubூᑖ᪆௃;⚪◤⌕#$஺Ë$5nWXḄᩩ^஺᪷Í⚪Î⌕7ᙠWXQᑁ◤⌕´ᙢ=ᐭd$¿tḄᑖᦪᨵ=ᐭÆᦪ2Ðn=ᐭᓽ⌨@WX஺45nWXḄᩩ^45=ᐭḄᦪ5Æᦪᓽ_0஺ூCᫀ1]x>=0ᡈNotxVOᵫ_;⚪⌕7=@=ᐭḄᨬÄᑖᦪ%ᨬÅᑖᦪᐸ?ᨬÄᑖᦪÒ¶WX?ḄË$ᩩ^ÓÔᩭÂøᙠghamax?ÕÖᙢᨬÅᑖᦪÒ¶WX?ḄËU$ᩩ^ÓÔᩭÂøᙠghamin?஺ூCᫀ2௃x=amin11³!×ØÙḄ×ᩩÚÃ×ØÙḄ☢Û஺ÜᑏIJ✌ᐜᑨ¡³@Ḅ×ᩩÚᔲ᪀ᡂ×ØÙ᝞᪀ᡂᑣÃ=@¤×ØÙḄ☢Ûᔲᑣ⌕7Và=ᐭ஺=ᐭ-12nIJ஺ூᑖ᪆௃áv¿â×ØÙḄ#Ú%ᜧ_Ë×Ú஺c1᝞=ᐭḄ×ØÙḄ×ᩩÚ?#Ú%_ᡈ¬_ãÚᑣ᪀ᡂ×ØÙ஺ᙠTäåæ.³@〉Ḅèé⌕7Và=ᐭ஺᝞᪀ᡂ×ØÙᑣ=@¤×ØÙḄ☢Û஺IJ᝞.KPrivateSubForm_Click()Dima,b,c,s,tAsSingle

18a=InputBox("~=ᐭAÚḄÚ")a=Val(a)Ifa

19DimarrDimStartAsInteger,FinishAsIntegerDimSumAsIntegerarr=Array(12,4,8,16)Start=LBound(arr)Finish=UBound(arr)Sum=0Fori=StartToFinishSum=Sum+aiT(i)Nextic=Sum/FinishText1.Text=cEndSubXYZ?ᓫ\IJᑣᙠᦻN᪾^_ḄᑁabA.40B.10C.12D.16ூᑖ᪆௃dH✌ᐜghᦪ
;

20Arr(4,l)=7Arr(4,2)=8Arr(4,3)=9Arr(4,4)=10ᙠ//ᵨPrint@AArrᦪ
4ᐗ'Ḅ$ᓽArr(3,3)ஹArr(3,4)ஹArr(4,3)Arr(4,4),K☢Ḅ"$tA14ᐗ'Ḅ$ᑖb7ஹ8ஹ9ஹ10஺ூEᫀ௃CH4ᙠIJKLᦻN᪾ᯠ?Qᑏ᝞*XYVOptionBase1PrivateSubForm_Click()DimArr(10)AsIntegerFori=6To10Arr(i)=i-3NextiTextl.Text=Str(Arr(6)+Arr(Arr(6)+Arr(l0)))EndSubXYZ?ᓫ\IJᙠᦻN᪾^_ḄᑁabOூᑖ᪆௃ᙠdHghᦪ
Arr,7ᐸ10ᐗ'Ḅᯠ?pqFordᦪ
Ḅ?5ᐗ'"$஺Aᦪ
Arr?5ᐗ'Ḅ$ᑖ3ஹ4ஹ5ஹ6ஹ7஺ᨬ?bᦻN᪾ḄTextឋ"$1$bArrᦪ
Ḅ¡ᐗ'Ḅᐸᐗ'bArr(6),ᓽ3¢/ᐗ'Ḅ*᪗bᦪ
Arr£ᐗ'(3)ᓝᐗ'¥ḄᓽArr(3+7)=Arr(10),¦dᐗ'Ḅ$7஺Arr(6)+Arr(Arr(6)+Arr(10))=3+Arr(l0)=3+7=10ூEᫀ௃10H5t*XYḄ§¨b©ª10஺«1000Ḅ¬᦮ᦪoᐭᦪ
An•ᯠ?@AᐸḄᨬᜧ$஺¯°஺OptionBase1PrivateSubForm_Click()DimArr(10)AsIntegerDimMaxAsIntegerRandomizeFori=1To10Arr(i)=Int(Rnd*1000)NextiMax=Fori=2To10IfThenMax=Arr(i)EndIfNextiPrintMaxEndSubூᑖ᪆௃dHᵨInt(Rnd*1000)©ª0«1000Ḅ¬᦮ᦪpqFor81±᦮ᦪoᐭᦪ
Arr஺;MaxH6t*XYḄ§¨bXYZ?ᓫ\¼½ᢥ¿@ABCV147258369¯°஺

21PrivateSubCommand1_Click()DimArr(3,3)AsIntegerFori=1To3Foij=1To3Arr(i,j)=PrintArr(i,j);NextjPrintNextiEndSubூᑖ᪆௃dH@AḄb33ᑡḄ/ᦪ
ᦪ
Ḅᔜᐗ'pq᜜;

22DimaAsIntegera=5s=func(a)PrintsEndSubXYZ?ᓫ\¼½ᢥ¿@ABCA.80B.60C.70D.15ூᑖ᪆௃dHâᵨFunciionqXFunc,dqXãᨵÇᦪÊj᦮jäå$Ô᦮j஺qXḄâᵨᓝᑖæᓫᐵÍb⌕çèéqXfuncḄ§¨஺Fori=1TonSum=Sum+(i+1)*iNextitAdqXḄ§¨b451*2+2*3+3*4+...+(n+l)*nᙠâᵨqXÂuÇaḄ$5,ᓽKḄn=5஺äåḄ$V1*2+2*3+3*4+4*5+5*6=70ூEᫀ௃CH3▅{*☢ḄXYVFunctionFunc(xAsInteger,yAsInteger)AsIntegerDimnAsIntegerDoWhilen<=4x=x+yn=n+lLoopFunc=xEndFunctionPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerDimnAsInteger,zAsIntegerx=ly=iForn=1To6z=Func(x,y)NextnPrintzEndSubXYZ?ᓫ\¼½ᢥ¿@ABCbA.16B.21C.26D.31ூᑖ᪆௃qXFuncᨵ¡ÇᦪᵨḄbÏᵨÇᦪäå$ᙳ᦮jᙠ¼½ᢥ¿ÅÆqXḄForâᵨFuncqXᐳ6µ%µâᵨµ஺¡qXᵨḄ;<(ᒹìÇᦪ)íN,-=ᵫbîï;<Úðªñò஺óôᙠÅÆqXõbpᵨqXyḄ$ö÷øᢝ;úû1஺ᙠFuncqXDo-Loopᐳ᡻5µpq;

23k=lhum=Abs(num)DoWhilenumk=k*(numMod10)num=num\10Loopren=kEndSubᙠIJKL¼½ᢥ¿ᯠ?Qᑏ᝞*ÅÆqXVPrivateSubCommandl_Click()DimnAsLong,rAsLongn=InputBox("¯@ᐭ᦮ᦪ")n=CLng(n)procn,rPrintrEndSub
ᓫᢥᙠᐭ᪾345,ூᑖ᪆௃
procᨵᦪᐸ#$ᦪ%ᵨḄ()*+(-ᨵᐵ/0ByVai),#1ᦪ%ᵨḄ2ᵨ*+(-ᨵᐵ/0ByRef,34ḕᶍ)஺8
Ḅ9:;<=(Mod)>᦮◀(\)BCD$᦮ᦪḄᔜFᦪ0GHIᦪ0JKLMKNOPᦪrenoᙠQR
ᵨInputBoxSᦪᐭ$ᦪᯠUᵨ
proc,᝞ᐭḄᦪ345,ᑣX3*4*5=60஺YZUᵨ[\procn,rᨵ]ᐸrᵨᩭ_`
Ḅab)஺Function
;cᨵ$ab)Sub
d34ᨵab)Le34ᨵfab)HIab)`ᙠg஺ᙠHhijk_`ab)Ḅglm%ᵨ(ᙢᙬ*+ᔲᑣqrᑮtu஺ூvᫀ௃60x5▅z
{OptionBase1Dimarr2()AsIntegerPrivateFunctionFindMax(a()AsInteger)AsIntegerDimStartAsIntegerDimFinishAsInteger,iAsIntegerStart=Lbound____Finish=UBoundMax=____Fori=StartToFinishIfa(i)>MaxThenMax=NextiFindMax=MaxEndFunctionPrivateSubCommandl_Click()Dimarrlarrl=Array(12,435,76,24,78,54,866,43)b=UBound(arrl)ReDimarr2(___)AsIntegerFori=1Tobarr2(i)=CInt()NextiM=FindMax(arr2())Print”ᨬᜧ){”;MEndSubூᑖ᪆௃ᦪᙠQR
ᵫ%ᵨArraySᦪlmMᦪX
FindMaxḄg+ᦪ᦮lmMᦪᣚX᦮ᔲᑣᙠUᵨG“rᓛ”┯஺᜜ᵨArraySᦪḄᦪrᢣ:;UBoundSᦪqᑮᐸ஺ᙠ$¡᝱ᦪarr2,ᐸᙠQR
PL£¤஺QR
Ḅ#$¥¦Xᦪb,#1¥¦Xᦪarrlপ஺

24ᙠ;ᵨ
◤⌕ª⍝ᦪḄ>kᑖ¬_`ᙠStart>FinishᯠMᦪḄ#$ᐗ®`ᙠMaxLM8¯ᦪḄ°ᐗ®J±²᝞ᦪᐗ®ᜧ8ᑣᵨ8ᐗ®Ḅ)<³MaxḄ)஺ூvᫀ௃QR
Ḅ¥ᑖ¬¦´ᐭ{barr(i);ᵨ
Ḅ4¥ᑖ¬¦´ᐭ{(a)(a)a(Start)ᡈa(l)aপb8ᦪḄᨬᜧ)஺¶´¥஺x6ᵨ·¸ᦪSᦪRndᡂ$88ᑡḄᦪ(ᔜᐗ®)ᙠ1004ᑁ)ᯠ¼½ᢣᑁ)ᨬᜧḄᐗ®ᡠᙠḄᑡ¿஺⌕D{À¼ᢣᑁ)ᨬᜧḄᐗ®ᡠᙠᑡ¿ḄÁÂ;$
ᩭ]Ã஺ூᑖ᪆௃D½$ᢣ)ᨬᜧḄᐗ®ᡠᙠᑡ¿ḄFunction
³ṹ᝞k{FunctionMax(b()AsInteger,rowAsInteger)m=b(row,1)col=1Fori=2ToUBound(b,2)Ifb(row,i)>mThenLetm=b(row,i)col=iEndIfNextiMax=colEndFunction8
ᨵᦪᐸ#$ᦪᦪ#1ᦪᦪᢣḄ¿஺ᙠH
✌ᐜMᢣḄ#$ᑡḄ)OP$ᐸᑡ¿X1,ᯠM8)¯ᐸᔜᑡḄ)DZ²᝞±8)ᜧᑣᵨ²ᜧḄ)<³ÈÉkᐸᑡ¿஺ÊᑏḄClickQR
{PrivateSubForm_Click()RandomizeDimA(1To8,1To8)AsIntegerDimrowAsIntegerFori=1To8Forj=1To8A(i,j)=Int(Rnd*100)NextjNextiPrint”ᡠᡂḄᦪX{"Fori=1To8Forj=1To8PrintA(i,j);NextjPrintNextiDorow=InpulBox("¶ᐭᢣḄ¿:“)LoopUntilrow>=1Androw<=8col=Max(A(),row)PrintPrint'1#”;row;”ᨬᜧᐗ®ᡠᙠᑡ¿X:";colEndSub8
✌ᐜᵨ·¸ᦪSᦪRndᡂ$88ᑡḄᦪᯠ⌕Dᐭ$¿
G8ᨬᜧ)ᡠᙠḄᑡ¿஺
ᓫᙠᐭ᪾ᐭ$¿
G8

25)ᨬᜧḄᐗ®ᡠᙠḄᑡ¿஺01ᓫ3᪾x1WindowsÎÏḄ᪾;cÐᨵᨬᜧᓄᢥ>ᨬÒᓄᢥX%᪗⚪ÕḄHᢥÖᜫØÙᶇᐸÛᢥÜÝÞឋtuḄA.ControlBox=True>MaxButton=False>MinButton=TrueB.ControlBox=FalseஹMaxButton=TrueஹMinButton=TrueC.ControlBox=TrueஹMaxButton=FalseஹMinButton=FalseD.ControlBox1FalseஹMaxButton=FalseஹMinButton=Falseூᑖ᪆௃ControlBoxMaxButton>MinButtonÞឋáâã᪗⚪ÕḄᢥᐸControlBoxXFalse,ᑣ᪗⚪ÕḄᡠᨵᢥÖᜫHäᯠ¯⚪ZrCᡠ4B.>D.å┯Ḅ஺MaxButton>MinButtonÞឋᑖ¬æᨬᜧᓄᢥ>ᨬÒᓄᢥᔲäçᨵè1ὅáXFalseHᢥêáräç஺ூvᫀ௃Cx2'Ü;ᵨ᪾ëRḄìíXCD1,îïᙠᡭñᦻR᪾Ḅ“ᦻR”ᑡ⊤ᒹõ{ᡠᨵᦻRஹWordᦻ᫏>ᦻ÷ᦻRH3ᦻRᙠ
ÜÝFilterÞឋtuḄA.CDl.Filter="ᡠᨵᦻRWordᦻ᫏|ᦻ÷ᦻR”B.CDl.Filter="ᡠᨵᦻR|*.*|Wordᦻ᫏|*.doc|ᦻ÷ᦻRC.CDLFilteùᡠᨵᦻR|*.*|Wordᦻ᫏|*.doc|ᦻ÷ᦻRI*,txtD.CDl.Filter=ᡠᨵᦻR|*.doc|Wordᦻ᫏|*.txt|ᦻ÷ᦻR”ூᑖ᪆௃;ᵨ᪾ḄFilterÞឋḄ)lm0CᙠVBÜúû+küÞឋýᐭFilterḄ)34þÿᐭᙠFilterឋḄᡠC.┯Ḅ஺FilterឋḄ!"“$%&'1|()ᘤ1|$%&'2|()ᘤ2|……”ᐸ“$%&'”ᙠᡭ.ᡈ01ᦻ345᪾Ḅ''ᦻ3$%”ᑡ⊤:;Ḅ<ᦻ=ᔣ?@ὅ⊤;Ḅᦻ3$%?@BCDEFGH$%&'?@BCIGHḄJK☢Ḅ“()ᘤ”“()ᘤ”NᵫPQRᦻ3Ḅ᡽TUVᡂ?@BCIGHḄXY☢Ḅ“$%&'”ᓛQḄᦻ3$%஺4[\ᫀA.,ᙠ45᪾Ḅ“ᦻ3$%”ᑡ⊤^:;“ᡠᨵᦻ3”R“ᦻ=ᦻ3”`<?@BCa“Wordᦻ᫏”ᳮd“ᡠᨵᦻ3”Ḅᦻ3$%eᓽ“()ᘤ”ghijklᦻ3$%DE1ᙠmn45᪾Ḅᦻ3ᑡ⊤^ᨵᦻ3ᜳpEqᨵrsᐸtᦻ3஺\ᫀD.$%&'X()ᘤḄuvw᎔yz{ᙠ“ᦻ3$%”ᑡ⊤:;*.*ஹ*.docஹ*.txtk3<ᑁpXJ4!Ḅ()ᘤ┯ḄmnE⌱lᦻ3$%45᪾^:;ᦻ3ᜳpᨵrsᦻ3U஺^ᨵ\ᫀB.ᔠFilterឋ⌕Ḅ஺ூ\ᫀ௃B3ᙠᵨPᵨ45᪾3᝞{vyឋDefaultExt="doc",FileName=“c:\filel.txt"Filter-"!ᵨ|*.exe”,ᑣ:;ᡭ.ᦻ345᪾ᙠ“ᦻ3$%”ᑡ⊤Ḅᦻ3$%A.!ᵨeᓽ*.exeB.*.docC.*.txtD.E஺ூᑖ᪆௃DefaultExt^ᙠFileName᡽TUᑖᨵᦔD¢^£¤FileNameḄ᡽TUᑖX45᪾Ḅᦻ3$%ᐵᡠB.┯Ḅ¦FileNameḄ᡽TUᑖ§E£¤45᪾Ḅᦻ3$%ᡠC.§┯Ḅ¦¨ᨵvFilterindexឋFilterḄ©ªᦻ3$%«ᡂ45᪾Ḅᦻ3$%J¬yᙠ45᪾Ḅᦻ3ᑡ⊤:;$ᦻ3ᡠ\ᫀ!"A.஺◤⌕¯°Ḅᵫ[FileName±ᨵᦻ3᡽TUᑖ²ᯠ45᪾Ḅᦻ3$%“!ᵨ”e*.exe,EqᦋµFileNameḄ᡽TUFileNameḄᑁ¶ᯠ“c:\filel.txt”◀¸ᙠ45᪾⌱yᐸtᦻ3U஺

26ூ\ᫀ௃A4¹ªº»Forml,ᐸᦻ=᪾ḄU¼Textl஺⌕ᓫ¾“”ᢥÀᙠÁÂ45᪾⌱ᓫ⌱ᢥÀRÃ⌱᪾Kᓫ¾“”ᢥÀᑣI4FormlḄTextlᦻ=᪾ḄᦻÄ<Å!Ḅv᝞{ᓫ¾“ÆÇ”ᢥÀᑣᙠ45᪾ᡠÈḄvᦔ஺“”45᪾Ḅ3ªᓫ⌱ᢥÀḄU¼ÉÊOplஹOp2ஹOp3,`ªÃ⌱᪾ḄU¼ÉÊChiஹCh2„ËÌÍᡂ☢Ḅh3(஺“”ᢥÀḄClickh3(PrivateSubCl_Click()[1]EndSub“”45᪾(Form2º»)“”ᢥÀḄClickh3(PrivateSubCommandl_Click()IfOp1.ValueThenForml.Textl.FontName=“Ï»”ElselfOp2.ValueThenForm1.Text1.FontName="л”ElselfOp3.ValueThenForm1.Textl.FontName=“ÑÒ”EndIfIf[2]ThenForm1.Textl.Fontltalic=TrueElseForml.Textl.Fontltalic=FalseEndIfIf[3]ThenForm1.Textl.FontUnderline=TrueElseForml.Textl.FontUnderline=FalseEndIfUnloadForm2EndSub“”45᪾“ÆÇ”ᢥÀḄClickh3(PrivateSubCommand2_Click()UnloadForm2EndSubூᑖ᪆௃᪷Ô⚪Öᙠᓫ¾“”ᢥÀK!"ÁÂForm2º»ᵨShow×ØIÙD:;Form2º»᝞{ᵨLoad×Ø^FÙForm2º»ÙKÚ⌕ᵨShow×Ø:;"º»஺ᡠ[1]ᜐ!ËᑏForm2.Showoᢥ᯿45᪾ḄNÞᓫ¾“”ᡈ“ÆÇ”ᢥÀIᐵß45᪾ᓫ¾“ÆÇ”ᢥÀàáâᙠ45᪾ᡠÈḄ⌱ᡠãᦋFormlḄᦻ=᪾Ḅ!áᙠ“”ᢥÀḄClickh3(ᑨå45᪾ᔜl3ḄValueឋᩭ¬ᔲãᦋᦻ=᪾ḄÅᐵឋ஺ᙠফᡠᙠḄIFêëThenìëaTextlḄí»ឋvTrue,p45᪾ChiÃ⌱᪾Ḅ᪗⚪“í»”¯°⌱kªÃ⌱᪾!᡻<©ªIFêëḄThenìëᡠফᜐ!ËᑏChl.Value=lo᪵⍝ᳮᙠবᜐ!ËᑏCh2.Value=l஺ூ\ᫀ௃[l]Form2.ShowᡈForm2.Load:Form2.Show[2]Chl.Value=l[3]Ch2.Value=l5¹ªU¼FormlḄº»±ª᪗⚪“óô”ḄõöᢥÀᓫ¾nᢥÀᑣᡭ.“óô”45᪾÷ö“123456”øᓫ¾“”ᢥÀᑣùú÷ö᝞{÷öᑣᙠFormlº»j:;“óôᡂû”Dᐵß45᪾ᔲᑣÁÂ┯ü;஺ᐕþᐭ3Ê÷öᐭ÷öḄᦻ=᪾ḄU¼Textl,:;ᐭḄÊᦪḄᦻ᪾ḄText2,Text2ᐕᐭ஺᝞3ᐭ┯Ḅᑣᐭᯠᯖ!"#ᑮ“⌨”ᢥ)*஺ᓫ,“⌨”ᢥ)ᑣᙠForml./*0“12ᜫ4”5ᐵ789᪾஺89᪾:“;"”ᢥ)ḄC1,“⌨”ᢥ)ḄC2஺<ᑏ〉?Ḅ@ABCDE⚪ḄGH஺

27ூᑖ᪆௃(1)OPQARSOFormlஹForm2,5ᙠForm2./*UVWᦻ᪾ஹVWXYᢥ)ZVW᪗\஺(2)]^_ឋR᪷b⚪cᦻ᪾TextlḄPasswordChar_ឋd]^“*"ghText2ᐕᐭText2ḄLocked_ឋ]^TruegForm2Ḅ᪗⚪]^“12"ControlBox_ឋ]^Falseo(3)<ᑏ@ABCForml*“12”ᢥ)ḄClick@ABCRPrivateSubCl_Click()Form2.ShowEndSubForm2:“;"”ᢥ)Z“⌨”ᢥ)ḄClick@ABCRPrivateSubCl_Click()Text2.Text=Val(Text2.Text)+1IfTextl.Text="123456”ThenForml.Print”12ᡂG”UnloadMeElselfVal(Text2.Text)<3ThenMsgBox"j"&Text2.Text&”kY┯,mnoᐭ”ElseMsgBoxText2.Text&"kY┯m⌨”Textl.Locked=TrueEndIfEndSubPrivateSubC2_Click()Forml.Print”12ᜫ4”UnloadMeEndSubᙠ“;"”ᢥ)ḄClick@ABC:pᓫ,qᢥ)rText2:Ḅᦪt1,uvw2ᐭkYḄᦪ஺᝞ᙠTextl:ᐭḄ“123456”⊤kYy;ᑣᙠForml*“12ᡂG”ᯠᔂ{Form2᝞kY┯ᑣ⌕ᑨ~Text2:Ḅᦪᔲ3,᝞3,ᵨMsgBox89᪾ᔲᑣTextl┝(Locked=True),ᐕᐭkY஺?ᐭkY3┯ᐕᐭ᝞ᐭᐝ᪗ᑮTextl*d12-5ᡠḄ89᪾஺ᙠTextlᯖ!DErGHᡠ<ᑏTextlḄGotFocus@ABC᝞RPrivateSubTextl_GotFocus()IfVal(Text2.Text)>=3ThenMsgBox”kY┯B3m⌨”C2.SetFocusEndIfEndSubᓝ678⚪ᑖ᪆1ᑡ:HᔣC:t./ḄXYA.᡻“C”ᓫ:Ḅt./XYB.ᓫ,ᐹ*Ḅ“t./”C.,./ᙠḄᓫ:⌱¡“t./”XYD.,C¢£¤ᳮᘤᙠḄᓫ:⌱¡“t”XYᯠᙠr§ᓫ:⌱¡“t./”XYூᑖ᪆௃ᙠOPVBdᵨC¨©ªSOrW./஺ᙠ◤⌕OP¬./C¨ᵨ¬®¯°ᔣCᦻA:t./஺ᵨ“C”ᓫᡈᐹ:²dḄᢥ)᡻t./ḄXY஺³᜜ᙠC¢£¤ᳮᘤ.k:ᓫ,µ᪗Ḅ¶ᣩᓫ:ᨵ“t./”XY஺¹ᫀA.ஹB.ஹD.8d*»¼®½¾஺ᢥ¹ᫀCH¿ᡂt./Ḅ஺À¹ᫀÁc2’?rWCÂᨵ¬W./ᐸ:ḄĪ./

28A.ĪVisualBasicOPḄ./B.jrWtḄ./C.ᨬrWtḄ./D.ᙠ“C_ឋ”89᪾:ᢣ"Ḅ./ூᑖ᪆௃8¬./C¨ÇᨵrW./Ī./஺᝞ÈᨵᱯÊᢣ"Ī./ᑣĪ./SOVBC¨OPḄjrW./஺ËÌB“C”ᓫḄ“C_ឋ”.kᢣ"Ī./஺0ᯠCy;¹ᫀ஺¹ᫀB:ᡠᑮḄ./jrWtḄ./vOPCᦻAOPḄjrW./஺ூ¹ᫀ௃D3VisualBasicdᵨC¨Í⌕ᵫ___ஹZм®ÑᙽÓᡂ஺ூᑖ᪆௃⚪⌕ÔÕÖ᪀ᡂVisualBasicdᵨC¨Ḅ᪀ᡂZÑᙽØÙ஺VBḄCᦻAÍ⌕ᒹ¼®ØÙḄÑᙽR᪗ÛÑᙽஹ./ÑᙽZØÑᙽ஺ூ¹ᫀ௃᪗ÛÑᙽ./ÑᙽØÑᙽ4Ü0rW./ᡠᵨḄ¯ÝrgvÜ◚ßrW./ᡠᵨḄ¯Ý஺ூᑖ᪆௃0./ᡠᵨḄ¯ÝShow,◚ß./ᡠᵨḄ¯ÝHide¯Ý஺ூ¹ᫀ௃ShowHide5ᙠC:t./Ḅ¯Ýᨵ¼®ᑖÊrஹZ஺ூᑖ᪆௃SOVBḄCᦻA©ªOPrW./஺ᙠ]à¬n./dᵨC¨◤⌕toḄ./஺ᔣEᨵḄCᦻA:t./Ḅ¯ÝᨵRᙠ“C¢£¤ᳮᘤ”.k:ᓫ,µ᪗ᙠḄ¶ᣩᓫ:⌱¡“t./”XYgᙠ“C”ᓫ:⌱¡“t./”XYgᡈᙠ᪗Ûᐹ:ᓫ,■ᢥ)ât./ᢥ)ã஺*»¼®¯ÝᔣCᦻA:toḄ./஺ூ¹ᫀ௃ᙠ“C¢£¤ᳮᘤ”.k:᡻“t./”XYᙠ“C”ᓫ:⌱¡“t./”XYᙠ᪗Ûᐹ:ᓫ,■ᢥ)6Ī./ᙠ89᪾:ᢣ"Üᡭåæ89᪾d᡻ᓫ:ḄXY஺ூᑖ᪆௃rWVBḄCᦻAᒹ¬W./ᦻAçᐸèØÙḄᦻA஺éVBC¨ḄĪ./ᵫ]àὅᢣ"஺ᢣ"Ī./Ḅᙠ“C”ᓫ:Ḅ“C_ឋ”.k:ë஺ᙠ“C_ឋ”.k:8d“Ī8ì”Ḅᑡ⊤᪾:ᑡÜ?íCᦻA:ᡠᨵḄ./u:ᢣ"rWĪ./஺îḕ½¾SOCᦻAOPḄjrW./Ī./஺ூ¹ᫀ௃C_ឋCâCு_ឋ7ᐰòóôõöᙠ_______Ñᙽ:"÷ᡠᵨḄøùoூᑖ᪆௃VBúÜᐰòóôஹÑᙽ§óôZòûóôḄ"÷Zᵨ஺ᐰòóôḄᵨü᦮WCᙠCᦻAḄpWÑᙽçpWBC:ᵨ஺ᐰòóôõöᙠ᪗ÛÑᙽḄþÿᑖᵨPublicᡈGlobal஺ᙠ᪗ᙽᵨPrivateᡈDimḄḄᵨᙽᦻ!Ḅᐸ#ᙽ$ᵨ஺ூ&ᫀ௃᪗ᙽPublicᡈGlobal*8DoEventsḄᵨ+஺ூᑖ᪆௃ᙠ-./᡻/12345-Ḅ6ᑴᩗ9:ᓰᵨ஺<⌕>?6ᑴᩗ@AᵨDoEvents஺B᪵ᵨᡝ@Aᙠ>?9:Ḅ6ᑴᩗEF/ᐸ#G஺ூ&ᫀ௃>?9:Ḅ6ᑴᩗ

299ᑖVisualBasicὃC⚪DEHஹJKLᐸG(H)ஹ⌱P⚪1RSHTUVᨵX6ᑴYᓫḄ[ឋ+(A)MinButton(B)Caption(C)MaxButton(D)ControlBox2⌕HTᦻ]᪾ᐹᨵ`abᚖdefᩩᑣiᐜkᐸMultiLine[ឋl2True,ᯠEnkScrollBar[ឋl2o(A)0(B)l(C)2(D)33⌕ᦻ]᪾>?pᐭᯖs,ᑣiuᵨᦻ]᪾6!ḄvTwxy(A)GotFocus(B)LostFocus(C)keypress(D)SetFocus4⌕zᦋHTUVḄ᪗⚪ᑁ}ᑣil2A~vT[ឋḄy(A)Name(B)FontName(C)Caption(D)Text5ᦋUV᪾Ḅ[ឋ+(A)Fontstyle(B)Borderstyle(C)BackStyle(D)Border6>?HTᦻ]᪾⌱ᦻ]Ḅᑁ}Ḅ[ឋ+(A)Text(B)Length(C)SelText(D)SelStart7⌕᪗ᡠ◤⌕Ḅᦻ]ᑣᙠ-il2ᐸvH[ឋḄy(A)Caption(B)Text(C)Name(D)Autosize8⌕᪗Ḅᦻ]☠ᑣikᐸAlignment[ឋl2(A)0(B)l(C)2(D)39⌕HTᢥl2ᡂXᦔil2ᐸvH[ឋy(A)Visible(B)Enabled(C)Default(D)Cancel10⌕HTᢥᡂᢥᑣil2ᐸvH[ឋy(A)Picture(B)Style(C)DownPicture(D)DisablePicture11⌕᪗ᡠᙠᜐ,iᐸBackstyle[ឋl2(A)0(B)l(C)True(D)False12ᙠᢥ~᡻/TᢥḄ!5,◤⌕ᢥḄHTឋl2True,BT[ឋ+o(A)Value(B)Cancel(C)Enabled(D)Default

30¡¢£ஹ¤⚪13ᙠUV¥¦§2Tᦻ]᪾
Name[ឋᑖ¨TextlbText2b2Tᢥ
Name[ឋᑖ¨Command1bCommand2,-./ᙠTextlpᐭᦻ]ᓫ©Command!ᢥkTextlᦻ]᪾ḄªᑴᑮText2ᦻ]᪾p¬ᓫ©Command?ᢥ⌨®-஺14¯°±ᵫ³VḄ´µ¶·s=l/2gt2+v¡£t,ᐸv¡£¸¹º»,g¼½¾»t¿ᔊḄÁ¤ᑏH-ôµs஺ᵨ2Tᦻ]᪾ᑖ¨pᐭ¸¹º»b¿ᔊḄÁᓫ©HTᢥF/ÄÅ,k.ÅÆÇᙠÈHᦻ]᪾஺15pᐭᳫVḄÊËᯠEÄÅp®ᳫVḄVÌb⊤☢Ì஺¯°ᳫVḄVÌÄŶ·v=4/3nr3,ᳫḄ⊤☢̶·f=4nÏᜐḄrᳫVḄÊË஺⌕Ã:-ᵨHTᦻ]᪾pᐭÊËr,ᓫ©HTᢥF/ÄÅk.ÅÆÇᓽᳫḄVÌb⊤☢Ìᑖ¨ᵨ2Tᦻ]᪾®ᩭ஺Óὃ&ᫀo¡H£ஹ⌱P⚪1D2D3D4C5B6C7A8B9B10B11A12D¡¢£ஹ¤⚪13ᑖ¨¤ᑏÕTᢥCommand1bCommand2ḄClick!5Öṹ஺-Öṹ᝞~oPrivateSubCommand1-click
Text2.Text=Textl.TextEndSubPrivateSubCommand2-ClickoEndEndSub14ᙠUV¥Ù¾3Tᦻ]᪾,ÚHTᦻ]᪾¡ÛÜTextlᵨÝpᐭ¸¹º»vo;Ú2Tᦻ]᪾¡ÛÜText2ᵨÝpᐭ¿ᔊḄÁÚ3Tᦻ]᪾¡ÛÜText3ᵨÝÄÅḄÆÇᓽ´µ஺nᔣUVÙ¾HTᢥ¡ÛÜCommandl,¤ᑏᢥCommand1ḄClick!5Öṹ஺-Öṹ᝞~oPrivateSubCommand1-Click
DimvAsDouble,!AsDouble,sAsDouble

31v=Val(Textl.Text)t=Val¡Text2.Text£s=v*t+9.8*t*t/2Text3.Text=sEndSub15ᙠUV¥Ù¾3Tᦻ]᪾Ú1Tᦻ]᪾¡ÛÜTextl£ᵨÝpᐭᳫḄÊËr;Ú2Tᦻ]᪾¡ÛÜText2£ᵨÝÄÅ®ᩭḄᳫVVÌ;Ú3Tᦻ]᪾¡ÛÜText3£ᵨÝÄÅ®ᩭḄᳫVḄ⊤☢Ì஺nᔣUVÙ¾HTᢥ¡ÛÜCommandl£,¤ᑏᢥCommand1ḄClick
ṹ஺ṹ᝞PrivateSubCommand1_ClickDimrAsDoubler=ValTextl.TextText2.Text=4*3.14*r*r*r/3Text3.Text=4*3.14*r*rEndSub.ஹᦪ1234ᐸ678ஹ⌱:⚪1.<☢>?ḄABCDEFGHVisualBasicḄJKLḄM(A)abed(B)4A12(OAA-123(D)BB%2.<☢>?ḄABCDNOGHVisualBasicḄJKLḄM(A)abc-123(B)nR(C)Print(D)Beta3<ᑡNGHVisualBasicḄWKḄM(A)ir(B)l.O*E-3(C)-1E5(D)E-64.<ᑡENGHVisualBasicḄWKḄM(A)10E01(B)-100.98#(C).OOOl(D)l.OE5.ᢥ᯿VisualBasicḄ`aD<☢GHbAcWKᔠeḄM(A)ABC$(B)''ABCm"(C)“AB”$(D)'abcl23'6.ᢥ᯿VisualBasicḄ`aD123#ᡠ⊤mḄᦪ123MA᦮3Bopq3Cᓫpq3Ds᦮3

327.<☢>?ḄABCDNOGHVisualBasicḄJKLḄM(A)PRINT(B)LET(C)%by(D)S#8.<☢>?ḄABCDENOGHVisualBasicḄJKLḄM(A)E*(B)e!(C)E#(D)e%9.WK4.5123843D-5M8zOᢣᦪ|}⊤mḄᔠeḄVisualBasicWK,<☢ᦪḄḄM(A)0.000045123843(B)0.0045123843(C)0.00045123843(D)0.04512384310.<☢ENOGHVisualBasicWKḄM(A)"01-12-1999”(B)#1999-12-21#(C)True(D)n11.<☢FGHVisualBasicḄ⊤}ḄM(A)4*sin(n)(B)b'2-4ac(C)[-b+sqr(dlt)]/(2*a*c)(D)exp(x)+ABS(Y)12.<☢⊤}CDᐸH0ḄM(A)4/5(B)5Mod4(C)4\5(D)4Mod513.ᙠVisualBasicCDO<⊤}ḄᐸzEḄM(A)Int(-3.5)+0.5(B)exp(-3.5)(C)SGN(ߟ3.5)-2.5(D)-ABS(ߟ3.5)14.ᙠVisualBasicCD᡻<☢z?┯ḄM(A)x=SGN(0)(B)Y=sqr(0)(C)z=L0G(0)(D)x=SIN(0)15.<☢ENOGHVisualBasicWKḄM(A)&61A&(B)&234(O&043&(D)&llabc&16.JKa=2,b=3,c=4,d=5,ᑣ⊤}nota>bandb"2c-dḄH(A)True(B)False(C)-l(D)1(.)ஹ¥¦⚪17ᦪ§⊤}COS3(2JI)¨©ªḄVisualBasic⊤}M18⊤}LenCxya/z&123)ḄM஺19⊤}Sgn(-9)ᓝVaiC123.34+x")ḄH஺20⊤}Int(-5.6)+Fix(-9.56)ḄH஺21⊤}Mid("VisualBasic§ᦟ"D8)&Trim("¯Cᦟ”)Ḅ

33H஺22⊤}Str(-5.23)&123ḄH஺23⊤}"ABC">"Abc"ḄH஺24⊤}#2001-05T0#+31ḄH஺25⊤}Abs(-34)+Sqr(100)*Int(-3.4)ḄH஺26⊤}Rtrim(Lease("Abcdl23xyZ"))&Rightீ”mnopq”,3ுḄH஺27ᦪ§⊤}e-^+Log|Q5©ªḄVisualBasic⊤}M஺28ᦪ§⊤}IWXWIOO©ªḄVisualBasic⊤}M஺29JKaM8z²ᦪ,F©aḄ³4´µᦪ¶·¸ᐭḄ⊤}M—30᡻O<»,¼?½¾M.(<}C⊤m¿À)a="ABCDEFGHIJK”ீCR>PrintInstr(a,"efg")31ᎷaÂÃÄÅM20XXÆ5ᨴ25ÄÈŸ,ᑣ᡻O<»D¼?½¾HÉPrintDay(now)PrintMonth(now)PrintYear(now)PrintWeekday(now)32ᙠ6.0᱐ḄVisualBasicCDbAËᵨḄÍṹÎ}DᙠÏÐÍṹÎᫀCD8zCᦻbAᡈ8zÔᦻbAᙳÖH_×zbAᵨ——zb⁚Íṹ஺33ᙠVisualBasicCDbAcWK⌕ᵨÚÛᩭDÄÅ/Ý3WK⌕ᵨ_______________ÚÛᩭ஺34⊤}Chr(65)ḄHAsc("B")ḄH.________஺35ᦪ§⊤}sin360,ᑏᡂVisualBasicḄ⊤}H஺36⊤}5*5\5/5ḄMo37⊤}4+5\6*7/8mod9Ḅ_______________«38PrintFormat(Sqr(3),"$00###.000")ḄH஺39PrintFormat(-34.69358,"0000000000")ḄH஺40PrintFormat(6723.4587,”+000000.000E+00")ḄH8஺áὃãᫀÉ

348ஹ⌱:⚪1B2D3C4D51B6B7D8A9A10D11D12C13B14C15A16AÉ.ஹ¥¦⚪17cos(2*3.14)A329round(a,4)18630019122.343125ஹ5ஹ2001>620-1532UnicodeÍṹ1221BASIC§ᦟ¯Cᦟ33oåB#22-5.2312334A6623False35Sin(3.14*36/180)242001-6-10362525-637526abcdl23xyzopq38$00001.73227exp(-4)+log(5)/log(10)39-0,000,034.69428x>=1andx<=1040+672345.870E-02ஹæ½᪀ᦪ1¼ᐭ/¼?8ஹ⌱:⚪1<ᑡEèᢝPrintÎeḄMÉAêᱏ᪾íBîïCᡭᓺòDᦻó᪾í2JKa¯bḄᑖõH153¯-45,ᑣDebug.printa;bḄ¼?½¾H:¼?½¾CḄl_J⊤m8z¦ùA,<A1_11531_1-45I—Jú1531_1-45C1_1153L_I1_1-45l_JপJ153L_Jl_l-453Print"44+66=";44+66Ḅ¼?½¾HÉA"44+66="l_l110ú44+66=1_1110C"44+66=";1_144+66D"44+66=",1—144+664<ᑡCDEüýḄᡭᓺM:d

35(A)Printa=3+5(B)Printna=;3+5n(C)Printna=3+5n(D)Printa=;3+55ᨵSttl="abede"¯Str2="xyz”,ᑣPrintStrl;Str2Ḅ¼?½¾H(A)abedeI_Ixyz(B)abedexyz(C)l_labedeI__Ixyz(D)I_IabedeI__II_IxyzI_I6Printsgn(-6A2)+abs(int(-234.12))Ḅ¼?½¾HÉ(A))-300(B)300(C)236(D)2347Printsgn(—20)*sqr(3)?@%(A)123456(B)123(C)579(D)45611ᑖB᡻2DEFGx=InputBox("aaa","bbb")

3612Oᑏ/Q᤬STUVᣚᡂYSTUḄ⌕[:᤬STU])ᐭ9:᪾ᩭᐭ?@ᙠ&_`a஺cd:ᵫ᤬STU[YSTUḄfgh%:F=9/5XC+32,ᐸ:C%᤬STU,F%YSTU஺13klm_ᐭ8ᦪOᑏfn>2ᦪḄ

37PrivateSubForm-Click()DimrAsSingle,hAsSingle,vAsSingler=Val(InputBox("ᐭᙊw☢st*"ᐭ"))h=Val(InputBox("ᐭᙊwuᐭ”))v=3.14*r*r*hPrint”ᙊwx%:";Format(v,”.00”)EndSubஹVisualBasicḄᵨ᪗(1⌱᪾ᡈᓫ⌱ᢥḄ᪗⚪9hḄឋ(A)Align(B)Style(C)Sorted(D)Alignment2ᙠ*ṹQᱏᦻ(mypic.jpgᐭᱏ᪾PicturelḄFG(A)Picturel.picture=,,mypic.jpg"(B)Picture1.image="mypic.jpg”(C)Picturel.picture=LoadPicture(nmypic.jpg°)(D)LoadPicture(nmypic.jpgH)3ᙠ*ṹ◀ᱏ᪾PicturelḄḄ¡¢FG(A)Piclurel.picture=""(B)Picture1.Picture=Loadpicture(nn)(C)Picturel.image=n,\(D)Picturel.picture=Null4%£¤ᙠᑡ⊤᪾ᑭᵨCtrl

389ᑡ⊤᪾Ḅᑡ⊤⚗Ḅᦪ»¼])DE¶ឋḄ½¾(A)Count(B)Listcount(C)Listlndex(D)Index10ᓫ5¿ÀᩩḄ¿ÀÂᜮ3ÄÅḄ'((A)Click(B)Scroll(C)Change(D)Move11⌕QÆᔠ᪾%ÈᓫÆᔠ᪾(SimpleCombo),ᑣ«QᐸStyleឋ%(A)0(B)l(C)2(D)312⌕±ᦻÉ᪾ᐹᨵᚖÌ¿Àᩩ,ᑣ«(A)QᐸMultiline%True,Í3QScrollbarsឋ%0(B)QᐸMultiline%True,Í3QScrollbarsឋ%1(C)QᐸMultiline%True,Í3QScrollbarsឋ%2(D)QᐸMultiline%True,Í3QScrollbarsឋ%313⌕±᪗ÎÏÐÑÒᐹᨵÓ᪾,ᑣ«(A)QᐸBackstyleឋ%0,Border-Styleឋ%0(B)QᐸBackstyleឋ%0.Border-Styleឋ%1(C)QᐸBackstyleឋ%1,Border-Styleឋ%0(D)QᐸBackstyleឋ%1,Border-Styleឋ%114⌕±Æᔠ᪾ᡂ¬¤k⌱Ò¤,ᦪḄÆᔠ᪾(EÔhᑡ⊤᪾)ᑣ«QᐸStyleឋ%(A)0(B)l(C)2(D)315DEÒᐹᨵPictureឋḄ9Õ(A)&(B)ᱏ᪾(C)Ö᪾(D)ᦻÉ᪾16%±3ᘤ(¯◞5ÙÚÄÅ3ᘤ'((Timer'()ᑣ«QᐸIntervalឋ%(A)5(B)500(C)300(D)500017%±Ö᪾ḄᜧÜÝÀ〉«ÖḄᜧÜ,ᑣ«(A)QᐸAulosizeឋ%True(B)QᐸAutosizeឋ%False(C)QᐸStretchឋ%True(D)QᐸStretchឋ%False18ßᙠShape(ᑁDFillstyleឋᡠᢣḄᫀâᐙäåâᐙᫀḄæᩩḄç⁐ᵫFillcolorឋᢣéæᩩḄäåᵫBackcolorឋâᐙ,ᑣ«(A)QShape(ḄFillstyleឋ%2ê7ëḄì,BackStyleឋ%1(B)QShape(ḄFillstyleឋ%஺ᡈ1,BackStyleឋ%1

39(C)QShape(ḄFillstyleឋ%2ê7ëḄì,BackStyleឋ%0(D)QShape(ḄFillstyleឋ%0ᡈ1,BackStyleឋ%019⌕½¾²³íÀᘤ«±ᵨíÀᘤᑡ⊤᪾Ḅ¶ឋî(A)Path(B)Drive(C)Dir(D)Pattern20⌕±»ïᑡ⊤᪾(#$%Dirl)Ḅ»ïðḼíÀᘤᑡ⊤᪾(#$%Drivel)ᡠ⌱Ḅ²³íÀᘤḄÒÍÍ3òÅᓄ,ᑣ«(A)ᙠDirlḄChnge'(ôᑏFGDirl.Drive=Divel.Drive(B)ᙠDirlḄChange'(ôᑏFGDirl.Path=Drivel.Drive(C)ᙠDrivelḄChange'(ôᑏFGDirl,Path=Drivel.Drive(D)ᙠDrivelḄChange'(ôᑏFGDir.Drive=Drivel.Drive21⌕½¾ᦻ(ᑡ⊤᪾²³´⌱Ḅᦻ(Ḅᦻ(#ᑣ«±ᵨ¶ឋî(A)Dir(B)Path(C)Drive(D)Filename(/)ஹO⚪22¤Q-1ᑡ⊤᪾´⌱Ḅᑡ⊤⚗"ᐭᑮõ᜜1ᑡ⊤᪾Ḅ஺⌕[:&"ᐭ2ᑡ⊤᪾(Q÷øḄMultiselectឋᡂ0,ᓽ¯°¬¤kᑡ⊤᪾⌱⚗)ஹ2úûᢥᓽ“¢"<"üI"஺12),ᑭᵨᔣ-1ᑡ⊤᪾"ᐭßþᑡ⊤⚗,²ᓫ5“¢”ᢥ3ᑣQ-1ᑡ⊤᪾Ḅÿ⌱Ḅᑡ⊤⚗ᐭᑮ2ᑡ⊤᪾1ᑡ⊤᪾◀஺ᵨᡝᓫ“"ᢥ"ᑣ$2ᑡ⊤᪾⌱Ḅᑡ⊤⚗%&'(ᑮ1ᑡ⊤᪾஺23)*ᑴ,-./ᱏᐸᐭᑮ/ᱏ᪾஺24ᙠ3453ᦻ7᪾ஹ29:ᢥ"(“<=">"⌨@)஺BCDEFB,ᓫ“<=”ᢥ"I1ᦻ7᪾JᐭḄᦻ7>2ᦻ7᪾JᐭḄᦻ7KLMᩭ,Oᑮ3ᦻ7᪾஺ᓫ“⌨@"ᢥ"PQBCḄDE஺RὃTᫀV(-)ஹ⌱⚪1D2C3B4C5A6B7C8B9B10C11B12C13B14C15D16D17D18A19B20C21D(X)ஹYB⚪22&Z--\Bᔣ345^ᑡ⊤᪾(_`ᑖbcListl>List2),dᔣ34ᐭ^9:ᢥ"(_`ᑖbcCommand1>COmmand2),eBCḄfIgV

40ᓫCOInlmndl9:ᢥ"$Listlᑡ⊤᪾⌱Ḅᑡ⊤⚗ᐭᑮList2ᑡ⊤᪾ᐸListlᑡ⊤᪾◀;ᓫCommana9:ᢥ"$List2ᑡ⊤᪾⌱Ḅᑡ⊤⚗%&(ᑮListlᑡ⊤᪾ᐸLisl2ᑡ⊤᪾◀஺ᔜklFBmṹ᝞pVPrivateSubCommandl-Click()listlᑡ⊤᪾⌱Ḅᑡ⊤⚗qᑮlist2ᑡ⊤᪾List2.AddItemListl.List(Listl.Listindex)ListLRemoveitemListl.ListindexEndSubPrivateSubCommand2-Click()'list2ᑡ⊤᪾⌱Ḅᑡ⊤⚗qᑮlistlᑡ⊤᪾Listl.AdditemList2.List(List2.ListIndex)List2.RemoveItemList2.ListIndexEndSubPrivateSubForm-Load()'34sqᔣListlᑡ⊤᪾ᐭ-tᑡ⊤⚗Listl.Addltem”⚗u1”Listl.Additem“⚗u2”ListLAdditem”⚗u3”Listl.Additem"⚗u4"Listl.Additem”⚗u5"Listl.Additem”⚗u6"Listl.Additem”⚗uTEndSub23vὅ$ᵨ“x/”ᡈᐸz{/BCᑴ,-./|}ᑮ~ᦻlᜳ஺ᙠVisualBasicᡂ᛻ᔣ345-/ᱏ᪾ᑭᵨpᑡ-EV1:ᙠ▤,ᑭᵨឋ3/ᱏ᪾ḄPictureឋc)*ᡠᑴ,Ḅ/ᱏ஺22ᙠ34ḄFoi*m-Load()klFB,ᑭᵨ:/ᱏ᪾_.PictureX

41LoadPicture("/ᱏᦻl_”)24&Z-\Bᔣ3453ᦻ7᪾(_`ᑖbcTextKText2>Text3),dᔣ345^9:ᢥ"(_`ᑖbcCommandl>Command2),eBCḄ,ᵨg:BCDEᓫCommand19:ᢥ"$ᦻ7᪾Textl>Text2Ḅᦻ7KLMᩭᡂ-&Ḅ,ᐸᑮText3ᦻ7᪾;ᓫCommand29:ᢥ"⌨@BC஺cYᑏ9:ᢥ"Commandl>Command2ḄClickklFB஺BCmṹ᝞pVPrivateSubCommandl-click()Text3.Text=Textl.Text&Text2.TextEndSubPrivateSubCommand2-ClickOEndiEndSubஹ⌱BCP᪀(-)ஹ⌱⚪134ḄClickklFBmṹ᝞pVPrivateSubForm-Click()DimkAsInteger,aAsIntegerk=lIfk<=lThena=2*kIfk<=2Thena=2*kᓝ1Ifk<=3Thena=kPrintk,aEndSubᑣBCDEᙠ34£ᓫ¤᪗ḄJ@P¦gV(A)l2(B)l3(C)l1(D)31234ḄClickklFBmṹ᝞pVPrivateSubForm-Click()DimxAsInteger,yAsInteger

42x=-2IfNotx>0Thenx=y-3Elsey=x+3Printx-y;gy-xEndSubᑣBCDE,ᙠ34£ᓫ¤᪗ḄJ@P¦g(A)-33(B)5-88-5(C)3-3(D)25-253p§BCḄ᡻EP¦c"OK”.(A)(B)DimyAsIntegerDimyAsIntegery=10y=20SelectCaseySelectCaseyCase11To1CaseIs>20,Is<20Print”OK"Print“OK”EndSelectEndSelect(C)(D)DimyAsIntegerDimyAsIntegery=6y=10SelectCaseySelectCaseyCaseIs>6,1,2to5Casel,3,Is>6Print“OK”Print”OK”EndSelectEndSelect©XªஹYB⚪4Yᑏ-BC,Jᐭ-᦮ᦪᑨ®Iᔲ3ᡈ5᦮◀,᝞I᦮◀°ᡭᓺeᦪᔲᑣ³ᡭᓺ´BCmṹᑏᙠ34ḄClickklFB஺5Jᐭ3ᩩ¶Ḅ·¸ᑨ®¹3ᩩ¶Iᔲ᪀ᡂº»᝞I᪀ᡂº»ᑣ¼º»Ḅ☢¾᝞¦³I᪀ᡂº»ᑣᡭᓺ@┯ÀÁÂ஺´BCmṹᑏᙠ34ḄClickklFBJᐭ3ᩩ¶´ᵨInputBoxÃᦪ஺6Jᐭ-ÄÅᑨ®gᔲcÆÄ஺ÆÄḄᩩlg:ÄÇI4᦮◀ȳI100᦮◀ᡈὅI400᦮◀ḄÄÅ஺7Jᐭ3ᦪ⌕ÊᢥËᑮᜧJ@஺8Jᐭ-0—99999ÍḄ᦮ᦪᑨ®JᐭḄgÎÏᦪ஺᝞:᝞¦Jq586,ᑣJ@P¦c3஺

439•-├ÒÓᵯ
3000ᐗ/תஹØÙ
2500ᐗ/תஹÚ⊟Ü
1000ᐗ/תḄBC©ᖪÞ〈à£á◤ᦈ100ᐗª஺BC34ᒹå2᪾æஹ3⌱ᢥ"©ᵨç⌱ᖪèªஹ3ᦻ7᪾©ᵨçJᐭᖪèḄ×ᦪªஹ2ᓫ⌱ᢥ"©ᵨç⌱〈àéV)ᡈ〈àªஹ19:ᢥ"©ᵨç¼êëª>1ᦻ7᪾©ᵨçìᔠëªRὃTᫀV©-ªஹ⌱⚪1C2A3D©XªஹYB⚪4BCmṹᑏᙠ34ḄClickklFB஺BCmṹ᝞pVPrivateSubForm-Click
DimxAsIntegerx=Cint
Val
InputBox
“Jᐭ-᦮ᦪJᐭ"ªªªIfxMod3=0OrxMod5=0ThenPrintx;”I3ᡈ5᦮◀”EndIfEndSub5îïºᩩðIᔲ᪀ᡂº»Ḅᩩlg:ºðñòóᜧçôîï^ð>òóᜧçºð஺BCmṹ᝞pVPrivateSubForm-Click
DimaAsSingle,bAsSingle,CAsSingle,sAsSingle,areaAsSinglea=Val
InputBox©"Jᐭ-ᩩðḄ·¸““Jᐭ"ªªbXVal
InputBox©"JᐭXᩩðḄ·¸““Jᐭ"ªªC=Val
InputBox
"JᐭºᩩðḄ·¸Jᐭ"ªªIfa>0Andb>0Andc>0ThenIfa+b>cAndb+c>aAnda+c>bThens=
a+b+c/2area=Sqr
s*
s-a*
s-b*
s-cPrintna=u;a;”b=";b;k"3“©“☢¾area="õarea;"”Else

44Print”┯À!îï^ð>◤ᜧçºð஺”EndIfElseprint”┯À!ð·◤ᜧçô஺”EndIfEndSub6gÆÄḄᩩlg:ÄÇI4᦮◀÷³I100᦮◀,ᡈὅÄÇI400᦮◀஺BCmṹ᝞p:PrivateSubForm-Click()DimyAsIntegery=CInt(Val(InputBox(“JᐭÄÇJq”)))If(yMod4=0AndyMod100<>0)0r(yMod400=0)ThenPrinty;"gÆÄ”ElsePrinty;"³gÆÄ”EndifEndSub7BCmṹ᝞pVPrivateSubForm-Click()DimaAsSingle,bAsSingle,CAsSingle,tAsSinglea=VaI(InputBox(“Jᐭ-ᦪø'Jᐭ"))b=Val(InputBox(”JᐭXᦪ""Jᐭ"))c=Val(InputBox("Jᐭºᦪ""Jᐭ"))Ifa>bThent=a:a=b:b=tIfa>CThent=a:a=c:c=tIfb>cThent=b:b=c:c=tPrint”ËᑮᜧḄùCg:";a;b;cEndSub8BCmṹ᝞pVPrivateSubForm-Click()

45DimxAsLongx=Val(InputBox(”Jq-0b99999ÍḄ᦮ᦪ“JJq”))Ifx\10=0ThenPrintX;”g1Ïᦪ”ElseIfx\100=0ThenPrintx;“g2Ïᦪ”ElseIfxMOOO=OOThenPrintx;“g3Ïᦪ”ElselfxM0000=0ThenPrintx;“g4Ïᦪ”ElsePrintx;“g5Ïᦪ”EndIfEndSub9&Z-\Bᙠ34£52᪾æ(᪗⚪ᑖbc“ᖪè“>“àé”)ᙠ1᪾æᑁ53⌱᪾>3ᦻ7᪾,3⌱᪾Ḅ_`ᑖbcChecklஹcheck2>chck3,ᑖb⊤⌱ûüÓᵯஹØÙ>Ú⊟Ü;3ᦻ7᪾Ḅ_`ᑖbcTextKText2>TeEýᑖb⊤3þᖪè◤⌕ûüḄᦪÿ஺ᙠ2᪾ᑁ2ᓫ⌱ᢥᑖOptionlOption)ᑖ⊤ᗠ〈””஺ᨬᙠ!"#$ᢥ"ᦻ&᪾ᑖCommandlText4,ᑖᵨ()*+,-+,஺./0ṹ᝞34PrivateSubCommandl-Click()DimsumAsSinglesum=0#IfCheck1.ValueThensum=sum+3000*Val(Textl.Text)EndIfIfCheck2.ValueThensum=sum+2500*Val(Text2.Text)EndIf

46IfCheck3.ValueThensum=sum+1000*Val(Text3.Text)EndIfIfOption1.Value=TrueThensum=sum+100EndIfText4.Text=sumEndSub6ஹ89./:᪀(-)?⌱@⚪1B(3☢:᪀Ḅ89EFDoUntilᩩH89loopIJḄKLM4(A)᝞N“ᩩH”M"0ḄPᦪᑣS᡻U89(B)᝞N“ᩩH”M"0ḄPᦪᑣVW᡻U"X89(C)᝞N“ᩩH”M"S0ḄPᦪᑣVW᡻U"X89(D)SYᩩHMᔲ“["VW⌕᡻U"X892/^U_ᙠ!ᓫ`abᑣcd:N4PrivateSubForm-click()DimmAsInteger,nsInteger,jasinteger,kAsIntegern=0Form=lTo3Forj=lTomFork=jTo3n=n+lNextk,j,mPrintn

47EndSub(A)6(B)10(C)14(D)213eᨵg3./h4DimiAsInteger,jAsIntegeri=lDoWhilei<4i=i+lForj=5To1Step-1Printi*jNextjloopᑣᐸjḄEFPrinti*jḄ᡻UXᦪM4(A)15(B)16(C)17(D)1843☢./᡻U_kᙠ!ᓫ`ab_Ḅcd:NM4PrivateSubForm-Click()DimkAsInteger,yAsIntegery=3:k=5Fork=1To5Step-1y=y+kNextkPrinty;kEndSub(A)31(B)35(C)86(D)3653☢./᡻U_kᙠ!ᓫ`ab_Ḅcd:NM4PrivateSubForm_Click()DimxAsInteger,aAsInteger,yAsIntegerForx=lTo2a=0Fory=lTox+1a=a+1Nexty

48Printa;NextxEndSub(A)l1(B)23(C)00(D)l263☢./᡻U_kᙠ!ᓫ`ab_Ḅcd:NM4PrivateSubForm_Click()DimxAsInteger,yAsInteger,!AsIntegerx=2:y=3Fori=xTox+yx=x+2NextiPrintxEndSub(A)8(B)9(C)10(D)ll7᡻UEFal,noaḄp4(A)5(B)10(C)l(D)-l83☢./Ḅ᡻U:N4PrivateSubForm-Click()DimkAsInteger,nAsInteger,mAsIntegerk=l:m=l:n=10DoWhilek(=nm=m*2k=k+lloopprintmEndSub(A)20(B)l(C)1024(D)2009eᨵg389X=1Dox=xᓝ3

49LoopUntilx>10Printxr./hḄcd:N4(A)l(B)4(C)12(D)13103☢./᡻U_kᙠ!ᓫ`ab_Ḅcd:NM4PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=lFory=1To50Ifx>=10ThenExitForEndIfIfxMod2=1Thenx=x+5Elsex==x-3EndIfNextyPrintxEndSub(A)4(B)6(C)8(D)10113☢./᡻U_kᙠ!ᓫ`ab_Ḅcd:NM4PrivateSubForm-Click()DimiAsIntegerjAsInteger,sAsSingleFori=6To5Step-ls=0#Forj=iTo4Step-1s=s+i*jNextjNextiPrints

50EndSub(A)90(B)45(C)135(D)60123☢./᡻U_kᙠ!ᓫ`ab_Ḅcd:NM4PrivateSubForm-Click()DimkAsIntegersAsString*1k=0:C="A"DoSelectCaseCCase"Ank=k+lCasek=k-lCase"CMk=k+2CasenD"Casek=k*2CaseElsek=k/3EndSelectc=Chr(Asc(c)+l)k=k+lLoopWhilec

5115vwᦾyz᜿ᦪᑡḄ1⚗~2⚗Ḅpᑖ11,ᐸ"⚗Mᐸ☢⚗Ḅ᝞:11,2,3,5,8,…ᑏ"./udrᦪᑡḄ20⚗20⚗Ḅ஺16e1995ᡃᨵ123ᓟgᙳ᳛1%ஹ1.5%2%)*1995ᡃᑮ16஺17ᑏ"./᦮ᦪᑖ᝞:24ᑖᡂ1*2*2*2*3,—42ᑖᡂ1*2*3*7஺18¡¢"ᙠ!ᐭ4ᦻ&᪾¤eTextl>Text2>Text3Text41#$ᢥ¤eCommandlo./^U_ᙠᦻ&᪾Textljcᐭ1¥¦§ᓫ`#$ᢥCommand1_./¨©)dcᐭḄ¥¦§jᦪ¥¥¦ᦪஹ¥ªᦪᐸ«¥¦Ḅᦪ¬©)dᩭḄ:Nᑖ-ᑮᦻ&᪾Text2ஹText3Text4j஺®ὃ°ᫀ4¤"²ஹ⌱@⚪1B2C3A4A5B6C7D8C9D10D11B12D¤l²ஹs.⚪13./0ṹᑏᙠḄClick³H.j஺./0ṹ᝞34PrivateSubForm-Click
DimsAsSingle,!AsSingle,iAsIntegers=0#t=lFori=lTo10t==t*ES=S+tNextiPrint“´:";SEndSub14./0ṹᑏᙠḄClick³H.j஺./0ṹ᝞34PrivateSubForm-Click
DimsAsSingle,iAsIntegers=0#Fori=lTo100

52s=s+(-l)A(i-l)/iNextiPrint”´:";Format஺“0.000000”)EndSub15./0ṹᑏᙠḄClick³H.j஺./0ṹ᝞3PrivateSubForm-Click()DimsAsSingle,!AsIntegerDimxlAsInteger,x2AsIntegerxl=l:X2=ls=0#Fori=lTo10Printxl;x2;s=s+xl+x2xl=xl+x2x2=xl+x2NextiPrintPrint”20⚗·¸sEndSub16./0ṹᑏᙠḄClick³H.j஺./0ṹ᝞3PrivateSubForm-Click()DimtAsSingle,rAsSingle,nAsIntegerForr=0.01To0.02Step0.005n=0t=0DoWhilet<16n=n+lt=12.3*(l+r)AnLoop

53Print”᳛”;r¹_◤”;n;”"4»_Ḅᦪo:”;tNextrEndSub17./0ṹᑏᙠḄClick³H.j஺./0ṹ᝞34PrivateSubForm-Click()DimnAsInteger,!AsIntegern=CInt(Val(InputBox(“cᐭ᦮ᦪ““cᐭ”)))Ifn<0ThenPrintn;n=-lH;n==-nElsePrintn;H=r*;EndIfFori=2toSqr(n)DoWhilenModi=0Printu*H;i;n=n/iLooplNextiIfn>lThenPrint"*”;nEndIfEndSub18sᑏ#$ᢥCommand1ḄClick³H.஺./0ṹ᝞¼4PrivateSubCommand1-Click()DimnumsAsInteger,alpsAsInteger,othersAsInteger,iAsInteger,lengthAsIntegernums=0:alps=0:others=0length=Len(Textl.Text)Fori=1Tolength

54IfMid(Textl.Text,i½)>=''O"AndMid(Textl.Text,i,l)<=n9MThenNums=nums+1ElselfLease(Mid(Text1.Text,i,1))>="auAndLease(Mid(Textl.Text,i,1))<=HzMThenalps=alps+IElseothers=others+1EndIfNextiText2,Text=nums:Text3.Text=alps:Text4.Text=othersEndSubÁஹᦪÂ(")ஹ⌱@⚪1EFDima(3,4,5)ÃÄḄᦪÂjᡠᒹÇḄᦪÂᐗÉḄᦪM4(A)12(B)60(C)120(D)3452EFOptionBasel:Dima(3,4)ÃÄḄᦪÂjᡠᒹÇḄᦪÂᐗÉḄᦪM4(A)12(B)7(C)20(D)153EFDima(-4To4)AsIntegerÃÄḄᦪÂjᡠᒹÇḄᦪÂᐗÉḄᦪ4(A)7(B)8(C)9(D)104k./^U_ᙠ!ᓫ`Ê᪗_3☢³H.Ḅ᡻U:N4PrivateSubForm-Click()Dima(lTo20)AsIntegerDimkAsIntegerFork=lTo20a(k)=k*kNextkPrinta(k)EndSub(A)400(B)20(C)441(D)d┯5ᙠ!Í"#$ᢥ¤ᐸÃCommandl,sᑏᐸClick³H.

550ṹ4PrivateSubCommand1-Click()Dimm(lTo10)AsInteger,kAsIntegerFork=lTo10M(k)=ll-KNextkFork=lTo10Printm(m(k));NextkEndSub./^U_ᓫ`#$ᢥ_,./Ḅcd:NM4(A)10987654321(B)l3579246810(C)24681013579(D)l23456789106ᙠ!Í"#$ᢥ(ᐸÃCommandl),sᑏᐸClick0ṹ4OptionBase1PrivateSubCommand1-clickoDimxAsVariantDimsAsInteger,jAsIntegers=0:j=lx=Array(1,2,3,4,5)Fori=4ToIStep-ls=s+x(i)*jj=j*10NextiPrintsEndSub./^U_ᓫ`#$ᢥ_./Ḅcd:NMZ(A)1234(B)4321(C)12(D)347ᙠ!Í"#$ᢥ(ᐸÃCommandl),sᑏᐸClick³H.0ṹ4

56OptionBase1PrivateSubCommandLClick()Dimx()AsIntegerDimmAsIntegersAsInteger,kAsIntegermlVal(InputBox("ÎcᐭmḄp"ு)n=ValீInputB034(”ÎcᐭnḄp”)ுReDimx(mTon)Fork=LBound(x,l)ToUBound(x,l)x(k)=k*kPrintx(k)NextkEndSub./^U_,ᓫ`#$ᢥᙠdÑḄcᐭBÒ᪾jᑖcᐭ55,ᑣ./Ḅcd:NM4(A)5(B)25(C)d┯(D)Óᨵcd83ᑡ./h᡻UᐗÉx(3,4)Ḅp4Dimx(3,5)AsInteger,iAsIntegerFori=lTo3Forj=lTo5x(i,j)=x(i-l,j-l)+i+jNextjNexti(A)12(B)13(C)14(D)15(l)ஹs.⚪9sᑏ"./u"mXnÔ▣jᨬᜧᐗÉᐸᡠᙠḄUᑡ×஺10sᑏ"./"Ô▣ØÙᓽUᑡᐗÉBᣚ஺11sᑏ"./u"ᓝÜᑴ᦮ᦪnḄᔜßᦪ¥·enà(ᡈâ(5ßḄᦪ஺12cᐭ10ãäåæ(åæᒹçã×ஹᡂè)Âᡂåæéêᦪ©)dᙳᡂè,ᡂèᨬëḄãäḄã×ᡂè஺

5713ᑏ"./"ᦪìᐭᑮíᨵ/¤eàᑮᜧ᣸/²ḄᦪÂjïᦪÂðñòóᢝᨵ/஺ᎷeöᦪÂjḄᦪ"12,-4,10,23,68.®ὃ°ᫀ4(")ஹ⌱@⚪1C2A3C4D5D6A7B8D(l)ஹs.⚪9./0ṹᑏᙠḄClick³H.j஺./0ṹ᝞3OptionBase1PrivateSubForm-Click()DimmAsInteger,nAsInteger,iAsIntegerjAsIntegerDimmax,rowsAsInteger,colsAsIntegerDimx()m=Val(InputBox("cᐭÔ▣ḄUᦪcᐭ”))n=Val(InputBox("cᐭÔ▣Ḅᑡᦪcᐭ"))ReDimx(m,n)Forito1mForj=lTonx(i,j)=Val(InputBox("cᐭ”&strপ&”U"&str(j)&”ᑡᐗÉḄp”,“cᐭ”))NextjNextimax=x(l,l)Fori=lTomForj=lTonIfmax

58Print"ᨬᜧᐗÉp:";max;"øᡠᙠU:";rows;",ᡠᙠᑡ:";colsEndSub10./0ṹᑏᙠḄClick³H.j஺./0ṹ᝞3OptionBase1PrivateSubForm-Click()DimmAsInteger,nAsInteger,!AsInteger,jAsIntegerDima(),b(),tm=Val(InputBox("cᐭÔ▣ḄUᦪ“Jc”))n=Val(InputBox("cÔ▣Ḅᑡᦪ","cᐭ"))ReDima(m,n)ReDimb(n,m)Fori=lTomForj=lTona(i,j)=Val(InputBox("cᐭ”&str(i)&”U"&strG)&”ᑡᐗÉḄp”,”cᐭöÔ▣Ḅp”))NextjNextiFori=1tomForj=ltomPrintb(i,j)Nextj:Print:NextiEndSub11./0ṹᑏᙠḄClick³H.j஺./0ṹ᝞3OptionBase1PrivateSubForm-Click()DimnAsLongDimsumAsInteger½AsInteger,nums(5)AsIntegern=CLng(Val(Inputbox(“cᐭ"1ᑮ5ßḄ᦮ᦪ”ùcᐭ”)))Fori=5To1Step-1

59nums(i)=n\10A(i-l)n=n-nums(i)*10A(i-l)NextiFori=5To1Step"1Printnums(i);sum=sum+nums(i)NextiPrint“ᔜßᦪ¥´4“¸sumEndSub12./0ṹᑏᙠḄClick³H.j஺./0ṹ᝞34OptionBase1PrivateTypestudentsnoAsIntegerscoreAsSingleEndTypePrivateSubForm-Click()DimnAsInteger,iAsInteger,minsnoAsIntegerDimminscoreAsSingle,sumAsSinglen=10Dimstu(10)Asstudentminscore=10000:sum=0#Fori=lTonStu(i).sno=CInt(Val(InputBox(“"&Str(i)&”úãḄãד“cᐭ”)))stu(i).score=CSng(Va1(InputBox("“&Stkiপ&”úãḄᡂècᐭ”)))sum=sum+stu(i).scoreIfminscore>stu(i).scoreThen,minscore=stu(i).scoreminsno=stu(i).SnoEndIf

60Nextisum=sum/nPrint”ᐰüᙳᡂè:";Format(sumJO.(XF)Print”ᡂèᨬëḄúãḄã×:";minsno;”,ᡂè:";minscoreEndSub13./0ṹᑏᙠḄClick³H.j஺./0ṹ᝞3OptionBase1PrivateSubForm-Click()Dimnums,iAsInteger,n,mAsIntegernums=Array(-12,-4,10,23,68ுn=Val(InputBox("cᐭ"ᦪ““cᐭ"))m=UBound(nums,1)ReDimPreservenums(m+1)Fori=mTo1Step-1Ifn

61DimiAsIntegerDimsAsIntegers=lFori=1TonS=s*iNextiCommFun=sEndFunctionPrivateSubForm-click()DimsumAsIntegerDimkAsIntegersum=0Fork=lTo3sum=sum+CommFun(k)nextkprintsumEndSubᙠᓫ᪗ᑣḄ!"#2ᙠᙽᑏSubClickPrivateSubsuba(xAsInteger,yAsInteger)DimtAsIntegert=x:x=y:y=tEndSubPrivateSubForm-Click()DimaAsInteger,bAsIntegera=10:b=20Callsuba(a,b)Printa;b;Callsuba(b,a)

62Printa;bEndSubᙠᓫ᪗ᑣḄ!"#3ᙠᙽᑏFunctionClickPrivateFunctionfuna(xAsInteger)AsIntegerStaticsAsIntegers=s+xfuna=funb(s)EndFunctionPrivateFunctionfunb(yAsInteger)AsIntegerStaticsumAsIntegersum=sumᓝyfunb=sumEndFunctionPrivateSubForm-Click()DimaccAsInteger,!AsIntegeracc=0Fori=lTo3acc=acc+funa(i)NextiPrintaccEndSubᙠᓫ᪗ᑣḄ!"#4ᙠᙽᑏSubClickPrivateSubsub1(ByVaiaAsInteger,bAsInteger)a=a+bb=a+bEndSubPrivateSubForm-Click()DimxAsInteger,yAsIntegerx=10:y=20

63Callsubl(x,y)Sublx,yPrintx;yEndSubᙠᓫ᪗ᑣḄ!"#O5ᙠ&'()ᦻ+᪾(./0Textl)()12ᢥ4(./0Command!),ᑏCommand1ḄClick5ᵨmysub,7ṹ᝞:PrivateSubmysub(palAsStringsAsInteger,bAsInteger)DimstrAsString,nAsInteger,!AsIntegern=Len(Trim(pal))Fori=lTonIfMid(pal,i,l)>="A"AndMid(pal,i,l)v="Z"thena=aᓝ1ElselfMid(pal,i,l)>=''0"AndMid(pal,i,l)<=M9wthenb=b+1EndIfNextiEndSubPrivateSubCommand1.-click()DimxAsInteger,yAsIntegerx=0:y=0Callmysub(Textl.Text,x,y)Printx;yEndSubᙠTextlᦻ+᪾ᐭ:"Thereare12StudentsstudyingVB”,ᯠ>ᓫ12ᢥ4ᑣḄ!"0o6ᙠᙽᑏSubClickPrivateSubsubl(arr()AsInteger,OptionalByVainAsInteger=2)For1=1to5Arr(i)=iAnNexti

64EndSubPrivateSubform-click()Dima(lTo5)AsInteger,!AsIntegerCallsubl(a(),3)Callsubl(a())Fori=lTo5Printa(i)NextiEndSubᙠᓫ᪗ᑣḄ!"#஺(@)ஹ⚪7ᑏ()C(DᦪḄᨬGᦪḄFunction,⌕CJᵨKLMᦪ஺8ᑏ()SubNOPᡂRᦪDḄS)TUVḄᐗXYᑮᢣ\ḄTU஺9ᑏ()SubNOPᡂRᦪDḄS)TUVḄᐗXᑤ◀஺10ᑏ()Sub_()`ḄᦪabᐭᑮᦪDḄᢣ\TUV஺11Cc)ᦪmnḄᨬᜧefᦪᨬGegᦪ⌕Cᵨ()hᦪᩭjk஺12ᑏ()hᦪCnḄlmn,eo0zJT/4=1-1/3+1/5-1/74—•+(-l)n-1/(2n-l)13pqᦾst᜿(Fibonacci)ᦪᑡḄw(⚗w@⚗y#1,ᐸ>{(⚗y#ᐸ|☢c⚗Ḅ~᝞:1,1,2,3,5,8,13,…ᑏ()hᦪCᦪᑡwn⚗Ḅn஺Mὃᫀ:(()ஹ⚪1922010102031541011053261491625(@)ஹ⚪7ᑏ\ḄhᦪMinNumber,ᐸ~M0KLMᦪḄ~o஺7ṹ᝞:PrivateFunctionMinNumber(ParamArraynums())AsSingleDimx,minnumAsSingleminnum=3.4E+38ForEachxInnums

65Ifminnum>xThenminnum=xNextxMinNumber=minnumEndFunction8\ᵨᡝ\ḄMovePosition,ᐸO#_ᦪDwm)TUVḄᐗXYᑮwn)TUV஺᪷amnᜧGḄᑖ0cY஺7ṹ᝞:ptionBase1PrivateSubMovePosition(nums()AsSingle,mAsInteger,nAsInteger)DimtAsSingledAsIntegerIfm>UBound(nums,1)OrmUBound(nums,1)ornnThenFori=m-1TonStep-1Nums(i+1)=nums(i)Nexti

66nums(i+l)=tEndIfEndSub9⚪:_ᦪDḄS)TUVḄᐗXᑤ◀,j▭#_N>☢ḄᡠᨵᐗX¡ᔣ|Y()TU,_ᐸ⌚¤ᣵᓽK஺ᐵ¨ᦪD_S)ᐗX>ḄᡠᨵᐗX|YḄ©ªKM«10.8⚪m☢ḄᡠᨵᐗX¡ᔣ>Y()TU0ᐗXᙠ¬TU()TUᯠ>_ᐗXᙠ¬ᜐᓽK஺ᐵ¨ᦪD_S)ᐗX>ḄᡠᨵᐗX>YḄ©ªKM«10.8⚪m>nḄ7ṹ஺11\CMᦪmnḄᨬᜧefᦪᨬGegᦪḄhᦪMaxCommDiv,ᐸᨬᜧefᦪᵫhᦪḄ°±n°±²³´ᨬGegᦪ5~MMinCommMulµ±ᑮ²³¶ὅKM᯿+hᦪḄMᦪ¹o,ᑏº»Ḅ²³஺7ṹ᝞:PrivateFunctionMaxCommDiv(mAsIntegersAsInteger,MinCommMulAsInteger)AsIntegerDimrAsInteger,mlAsInteger,nlAsIntegerml=m:n1u=nr=mModnDoWhiler<>0m=nn=rr=mModnloopMaxCommDiv=nMinCommMul=ml1/nEndFunction12\CnḄlmnḄhᦪpi,ᐸ~Mn⊤½¾¿ÀḄÁ⚗oḄ⚗ᦪ஺7ṹ᝞:PrivateFunctionpi(nAsInteger)AsSingleDimiAsInteger.sAsSingle

67s=0#Fori=ltons=s+(-l)A(i-l)/(2*i-l)Nextis=s*4pi=sEndFuction13#Cᦾst᜿(Fibonacci)ᦪᑡḄwn⚗ḄnḄhᦪ⚗ᦪnᵫ~MḄnᩭÂ\஺¶ὅK᪷ahᦪḄ¹oÃ\()²³஺7ṹ᝞:PrivateFunctionFib(nAsInteger)AsSingleDimiAsInteger,xlAsSingle,x2AsSingledAsSingleIfn=lorn=2ThenFib=lExitFunctionEndifxl=l:x2=lFori=3Tont=x2x2=xl+x2xl=tNextiFib=x2EndFunctionÄஹÁÅÆ¿Ç(Èஹ⚪10R()ÉᐭᑁËᡠJᵨḄÌÍ0´0Î◀ᑁËᢣ\ḄᡠJᵨḄÌÍ0J()ÏÐÑVÒᜫÔÕᙠᑁËᡠJᵨḄ©ªᡈÌÍ×½--)ᡠJᵨḄ©ª#

682ᔣÙ&'Ḅ©ªᨵ3,ᑖÚ#ஹ3ᙠÁÅḄÆUÛḄ©ª#:5᡻ÝᓫḄ12ᡭßàá᪾Pᡂ஺4-1ஹVisualBasic»ᵨKᵫ___________ஹã3ᙽDᡂ஺5ᙠ᪗äᙽᵨDimᡈPrivateᐵå\ḄLæ#LæNçOᙠḄᙽJᵨLæ;´ᙠ᪗äᙽᵨPublicᐵå\ḄLæKᙠḄᙽJᵨ஺6ᙠᙽḄéêëᵨPublic\ḄLæKᙠᙽJᵨ´ᵨDimᡈPrivateᐵå\ḄLæKᙠᙽJᵨ஺7ᔣ|Ù&'()᪗äᙽḄ©ªᨵ3ᑖÚ#ஹ஺8DoEventsÌÍḄìᵨ#஺Mὃᫀ:Ç(Èஹ⚪1LoadUnloadHideShow2ᔣÙ&'Ḅ©ª²⌕ᨵí:©ª1:᡻“Ù”ÝᓫḄ“&'“Ýᓫ12頻2:ᓫÙᐹñVḄ“&'“ᢥ4©ª3:ᙠ“Ùòóôᳮᘤ“÷ᓫ᪗øᙠùḄúᣩÝᓫ⌱ý"&'“12ᯠ>ᙠ(ÿᓫ⌱”“஺3“""ឋ""ឋ"4ᙽ᪗ᙽᙽ5ᨵḄᙽ!Ḅ᪗ᙽ᦮#$Ḅᡠᨵᙽ6᦮#$Ḅᡠᨵᙽ!Ḅᙽ7᡻'""ᓫḄ"ᙽ”ᓫᙠ”)*+ᳮᘤ”.ᓫ/012ᙠ34Ḅ5ᣩᓫᢣᔣ"”ᓫ⚗2ᯠ;ᙠ34Ḅ<ᓫ2ᓫ/“ᙽ”ᓫᓫ/”ᐹ>“Ḅ””ᢥ@0AḄBCᜮ2ᯠ;ᙠE3Ḅᓫᓫ/”ᙽ”஺

698DoEventsFGḄHᵨJ:LᜐᙠNOPQḄPQ,S᪵U᡻'NOPQV2ᨵᐸXYZ[\],ᓽ_!PQ`abᡂ2defᨚh!PQḄ᡻'2i$ḄjᑴᩗmnUo[\ḄYZ2p!YZᜐᳮbq;,$Ḅjᑴᩗrstᑮvᩭ$xy᡻'PQ஺ᓝஹᓫ|}()ஹ⌱⚪1ᓫᘤḄ5ᣩ1J(A)Clrl+M(B)Ctrl+E(C)Alt+M(D)Alt+E2ᵨE3ᓫḄJ(A)ShowPopup(B)ShowPopupMenu(C)PopupMenu(D)ShowMenu3ᵨ᝱ᙢᙠᓫᓫ⚗ḄFGJ(A)Load(B)Unload(C)LoadMenu(D)UnloadMenu4⌕#mnuFontḄᓫ⚗|OeḄFGJ(A)mnuFont.checked=True(B)mnuFont.Enabled=True(C)mnuFont.Visible=False(D)mnuFont.Caption=False5f>ᓫ᪗⚪>>¤ᦔ¦meffect¤²⁐mcolor....¸(&.B)mboltl....¹⁐(&X)mblack....º&Dmitalic....»⁐C&R)mred....<ᑜ½rnunderline¾⁐(&G)nigreen....ᑤ◀½(&S)mstrikethrough....Á⁐(&B)Mblueᑖ◞½mpartion⌨3mend

70ÄὃÆᫀ:()ஹ⌱⚪1B2C3A4C5DᓝஹÈÉ᪾()ஹ⌱⚪1|ᙠFormlËÌᵨÈÉ᪾jZCommonDialogl,ᑣFGCommonDialig.Action=3ḄHᵨJ:(A)ÎÏᡭᦻZÈÉ᪾(B)ÎÏÐÑᦻZÈÉ᪾(C)Îϲ⁐ÈÉ᪾(D)ÎϤÈÉ᪾2|ᙠFormlËÌᵨÈÉ᪾jZCommonDialogl,ᑣÒFGCommonDialogl.Action=4ÓÔpÕḄJ(A)CommonDialog1.ShowOpen(B)CommonDialog1.Showsave(C)CommonDialog1.ShowColor(D)CommonDialog1.ShowFont3|ᙠFormlËÌᵨÈÉ᪾jZCommonDialogl,iᐸFilterឋÖFilterindexឋ|O:CommonDialogl.Filter="AllFiles|*,*|BitmapFiles|*.bmp|JPEGFiles|*.jpg|ICOFilesCommonDialogl.Filterlndex=2CommonDialogl.ShowOpenᑣ3ᩭḄᡭᦻZÈÉ᪾2ᙠ“ᦻZ×”᪾(A)A11Files(B)BitmapFiles(C)JPEGFiles(D)ICOFilesiØoÙᙠÚVÛHᵨḄᦻZ᡽Ý(A)*.*(B)*.bmp(C)*.jpg(D)*.ico4|ᙠFormlËÌᵨÈÉ᪾jZCommonDialogl,ᵨFGCommonDialogl.showOpenÎÏᡭᦻZÈÉ᪾2ᑣÞ!ÈÉ᪾ᢥ“ß”ᢥ@⌨3]2⌕àᑮᵨᡝᡠ⌱ḄᦻZḄâãäᦻZ]2å_ᵨCommonDialoglḄæ#ឋ(A)DefaultEXTឋ(B)DialogTitleឋ(C)FileNameឋ(D)FileTitleឋ5|ᙠFormlËÌᵨÈÉ᪾jZCommonDialogl,⌕ÎÏÐÑᦻZÈÉ᪾,ᑣåiCommonDialog1ḄActionឋ|O(A)l(B)2(C)3(D)4

716|ᙠFormIËÌᵨÈÉ᪾jZCommonDialogl,⌕ÎÏÐÑᦻZÈÉ᪾2_!ÈÉ᪾Ḅ᪗⚪ឋ|O“ÐÑᦻZ"2ᑣåiCommonDialoglḄæ#ឋç'|Oè(A)DefaultEXTឋ(B)DialogTitleឋ(C)FileNameឋ(D)FileTitleឋ7ᙠᡭᦻZÈÉ᪾2᝞¦ᓫ/"ªé"ᢥ@⌨3ÈÉ᪾]2ᑣᐸFileNameឋḄê(A)ëìíîḄUoâã(B)ëìUoíîḄUoïð(C)ñ¤ð(D)ëìUoíîḄᦻZ8|ᨵCommonDialoglÌᵨÈÉ᪾jZ2ᑭᵨLÎÏ#ᡭᦻZÈÉ᪾2ᙠÈÉ᪾⌱óD:\myfolder\Text\âã<Ḅtextl.txtᦻZ,ᓫ/"ß"ᢥ@⌨3ÈÉ᪾2ᑣCommonDialoglḄFilteTitleឋê:(A)ñ¤ð(B)D:\myfolder\Text\(C)textl.txt(D)D:\myfolder\Text\textl.txt()ஹôñ⚪9ᙠVisualBasic2ᐸÈÉ᪾⌕ᑖõ2Löᑖ÷Jஹஹ10|ᨵÌᵨÈÉ᪾jZCommonDialogl,ᑣFG:CommonDialogl.Action=lḄÓÔJ,ÒFGÓÔbᐰpÕḄù᜜#FGJ஺11Ôàᑮ²⁐ÈÉ᪾ᵨᡝᡠ⌱Ḅ²⁐ḄឋJo12⌕àᑮ¤ÈÉ᪾ᵨᡝᡠ⌱Ḅ¤¤ஹᜧBஹ²⁐Ḅឋᑖ÷JஹஹO13⌕ÎÏᡭᦻZÈÉ᪾ஹÐÑᦻZÈÉ᪾ஹ²⁐ÈÉ᪾Ö¤ÈÉ᪾2åᑖ÷_ᵨÌᵨÈÉ᪾jZḄஹஹஹ஺(õ)ஹ⚪14ᵨÌᵨÈÉ᪾jZᑏ#åᵨ$஺ᙠ#ÌᵨÈÉ᪾jZஹ#ᦻý᪾ஹþ#ᢥ@2Uᵨᡝᓫ/ᐸ#ᢥ@]2#ᡭᦻZÈÉ᪾2ᵫᵨᡝ⌱ᦻᙠ᪾ᓫ“”ᢥ⌱ḄᦻḄᦻᑮᦻ"᪾஺$ᵨᡝᓫ%&Ḅ'᜜)*ᢥ+,&᪾ᵨ-./ᦻ"᪾Ḅᦻ,Ḅ,&ஹ,1ஹ᪵3ஹᦔ567⁐஺9ὃ;ᫀ=()ஹ⌱⚪1C2D3B4C5B6B7C8C

72(B)ஹCD⚪9⚜F᪾Gᵨ᪾ᵨᡝHF᪾10ᡭJ“ᡭJᦻ”᪾CommonDialog1.ShowOpen11ColorKឋ12FontNameFontSizeFontColor13ShowOpenShowSaveShowColorShowFontᓝஹGHI᪗J'/()ஹ⌱⚪1ᙠ%&MN)*ᢥCommandl6Oᦻ"᪾PᑖRSTextl6Text2,Tᑏ᝞WOXYZ=DimstrAsString,strlAsStringPrivateSubform-load()Textl.Text="HText2.Text='M,Textl.Enabled=FalseText2.Enabled=FalseEndSubPrivateSubForm-keyPress(keyAsciiAsInteger)str=str&Chr(keyAscii)EndSubPrivateSubForm-keyDown(keyCodeAsInteger,ShiftAsInteger)strl=strl&Chr(keyAscii)EndSubPrivateSubCommandl-click()Textl.Text=strText2.Text=strlStr=,,nstrl=MM

73EndSubz[Y=(1)$ᙠ.\▤^_%&ḄkeyPreviewKឋ./STrue+Z`abYZcdMeᐭgᑏ,hxyz,ᯠᓫ)*ᢥᑣজᦻ"᪾Text1ḄᑁmS=(A)xyz(B)nopqr(C)XYZ(D)s┯ঝᦻ"᪾Text2ḄᑁmS=(A)xyz(B)nopqr(C)XYZ(D)s┯(2)$ᙠ.\▤^_%&ḄkeyPreviewKឋ./SFalse+Z`abYZᙠcdMeᐭgᑏ,hxyz,ᯠᓫ)*ᢥᑣজᦻ"᪾TextlḄᑁmS=(A)xyz(B)nopqr(C)XYZ(D)s┯ঝᦻ"᪾Text2ḄᑁmS=(A)xyz(B)nopqr(C)XYZ(D)s┯2ᙠ%&MNᦻ"᪾ᐸPSTextl,ᯠTᑏ᝞WXYZ=PrivateSubTextl-keyPress(keyAsciiAsInteger)DimstrAsStringStr=Chr(KeyAscii)KeyAscii=Asc(Ucase(str))Textl.Text=String(2,KeyAscii)EndSubZ`ab᝞5ᙠcdMeᐭ,h“b”,ᑣᙠᦻ"᪾TextlḄᑁmS=(A)bbb(B)BBB(C)BB(D)bb3ᎷTᑏx᝞WXYZPrivateSubFom_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButtonAnd3=3ThenPrint“Hello”EndIfEndSubZ`abSxᙠ%&Mes"Hello",yᙠ%&M᡻b{W|}~=(A)ᢥᢥ(B)ᢥᢥ(C)+ᢥWஹᢥ(D)ᢥWᢥᡈᢥ

744ᎷTᑏx᝞WXYZ=PrivateSubFom_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If(ButtonAnd3)=3ThenPrintnHello"EndIfEndSubZ`abSxᙠ%&Mes”Hello”,ᑣyᙠ%&M᡻b{W|}~=(A)ᢥWᢥ(B)ᢥWᢥ(C)+ᢥWஹᢥ(D)ᢥWᢥᡈᢥ5Tᑏx᝞WXYZ=PrivateSubFom_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=6AndButton=2ThenPrint"Hello"EndifEndSubZ`abSxᙠ%&Mes"Hello”,ᑣyᙠ%&M᡻b{W|}~=(A)+ᢥWShiftc6᪗ᢥ(B)+ᢥWShiftc6᪗ᢥ(C)+ᢥWCtrlஹAltc6᪗ᢥ(D)+ᢥWCtrlஹAltc6᪗ᢥ(B)ஹCD⚪6ᙠḄkeyDown6keyUpXYZ,$9ᦪShiftḄS1ஹ2ஹ4+,ᑖR⊤ᵨᡝᢥWxஹ6c஺9KeyCode⊤ᡠᢥcḄ_____________஺7ᙠḄkeyPressXYZ9ᦪKeyAscii⊤ᡠᢥcḄ____________஺8ᙠḄMouseDown6MouseUpXYZ,$9ᦪButtonḄS1ஹ2ஹ4+ᑖR⊤ᢥW᪗Ḅஹ6ᢥ஺9SxHF᪗ᐝ᪗Ḅ✌ᐜy_ḄKឋ./Sᯠ_Kឋ./S᪗ᦻ஺10Sx᡻bḄH_ḄKឋ./SSx᡻b_ḄKឋ./S஺

7511ᙠ¡ᵨ¢+⌕¤YZ,ᑣ¡ᵨ¥9_____________¦§ᵨḄDrag¨©⌕ª«YZᑣy¡ᵨ¥9_____________¦§ᵨḄDrag¨©஺12_%&ḄKeyPreviewKឋ./STrue,Tᑏ᝞WOXYZ=PrivateSubForm-keyDown(keyCodeAsInteger,ShiftAsInteger)PrintChr(keyCode)EndSubPrivateSubForm-KeyPress(keyAsciiAsInteger)PrintkeyAsciiEndSub(1)Z`ab,᝞5CapsLockc┝ᙠᜧᑏḄ᝱¯+ᢥWAc+ᑣ=ᙠ%&MesḄes°5S6஺(2)᝞5CapsLockc┝ᙠgᑏḄ᝱¯+ᢥWacᑣ=ᙠ%&MesḄes°5S6஺13ᙠ᡻bKeyPressXYZ+,KeyAscii±ᡠᢥcḄ_____________஺-ᨵM᫏,´6W᫏,´Ḅc,$᡻bKeyDownXYZ+KeyCode±,´Ḅ஺14ᙠ%&Mµᦻ"᪾(ᐸPSTextl),Tᑏ᝞WXYZ=PrivateSubText1-keyDown(keyCodeAsInteger,ShiftAsInteger)PrintChr(keyCode-3);EndSubᑣZ`ab᝞5Textlᦻ"᪾eᐭEFQᑣᙠ%&MesᑁmS;᝞5ᙠText1ᦻ"᪾eᐭefg+ᑣᙠ%&Mes°5S15Tᑏ᝞WṹPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1AndShift=2ThenPrintnMultipleChoice"EndIfEndSubZ`ab⌕ᙠ%&Mes“MultipleChoice”,ᑣyᢥc஺(¸)ஹTZ⚪16ᙠ%&MNᦻ"᪾TᑏZ`¥¹ᔣᦻ"᪾eᐭᦪ»,ᐕ½ᙠᦻ"᪾eᐭ,h6ᦪ,,´஺

7617ᑏZ`,GY᪗Ḅ¨3ᙠ%&MN¾¿஺18ᙠ%&Mµᱏ᪾ᙠᱏ᪾µᱏ,ᑭᵨÂḄ¨©ᑭᵨ᪗{ᱏᑮ%&ḄopÃÄ஺9ὃ;ᫀ=()ஹ⌱⚪1(1)জA0C(2)জBQ)B2B3D4C5D(B)ஹCD⚪6ShiftcCtrlcAltcÅÆṹ7ASCIIṹ8ᢥᢥÇᢥ9MousePointer99Mouseicon10DragMode1DragMode0111212(1)A65(2)A9713c☢,´ḄASCHṹW᫏,´ḄASCIIṹ14BCDBCD15ᙠᢥWCtrlcḄ+ᓫ᪗c(¸)ஹTZ⚪16ÉÊÂZᔣ%&˵PSTextlḄᦻ"᪾Tᑏᦻ"᪾TextlḄKeypressXYZ஺Z`ṹ᝞W=PrivateSubTextl-KeyPress(KeyAsciiAsInteger)'᝞5$Íᢥc±ᦪ,0~9IfNot(Chr(KeyAscii)>="O"AndChr(keyAscii)<="9")ThenKeyAscii=O',´nᙠᦻ"᪾TextlᓽnBeep'ÏÐEndIfEndSub17Tᑏ%&ḄMouseDown6MouseUpXYZṹ᝞W஺$Z`ab+ᙠ%&MᢥW᪗cᑮ'Ä/J᪗cᓽᙠ%&MNsᩩ¾¿஺

77DimgxAsSingle,gyAsSingle'ᙠ%&ÒᙽḄÔÕ^FPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Thengx=Xgy=YEndIfEndSubPrivateSubForm-MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenLine(gx,gy)-(X,Y)EndIfEndSub18ᔣ%&˵ᱏ᪾(PSPicturel),ᑖRTᑏᱏ᪾ḄMouseDown6%&ḄDragDropXYZZ`ṹ᝞W஺Z`ab+ᵨ᪗cᱏ᪾ᑮ%&ḄoÖÄ/஺PrivateSubForm-DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.Top=YSource.Left=XSource.Drag2EndSubPrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenPicture!.Drag1EndIfEndSubᓝ¸ஹᦪ»ᦻØÙஹCD⚪

781᪷»nḄ᪗Û,ᦻᑖSnḄÜÝ஺᪷»ᦻḄᦪ»ឋÞ,ᦻᑖSᦻ6ᦻ;᪷»ᦻḄᦪ»Ḅßà¨3n,ᑖSᦻ6ᦻ᪷»ᦻḄᦪ»ḄTṹ¨3nᑖSᦻ6__________ᦻ.2ᦻâb}~+y✌ᐜᡭJᦻᙠVisualBasicᡭJᦻᡠ¡ᵨḄãäS஺ᙠãä{./Ḅeᐭes¨3ᒹæஹஹ6᝞5ḕᶍᑣS¨3஺ᦻḄßàÜÝᑖSஹ63é஺3ê`ᦻ{GYãäᡈãä_ëìíḄᦪ»ᑏîïd,ð}~GYஹᡈã䥹஺-ñòᦻḄðᑏ}~ᑖRGY6ã䥹஺4óôᦻḄõöᵨ÷ᦪ⌕àôᦻḄ$ÍðᑏÄ/ᵨ÷ᦪ஺ᵨ-ᑨù$ÍÄ/±ᔲûᑮüᦻý+,y¡ᵨ______________÷ᦪ஺ØBÙஹTZ⚪5þÊÿᓫḄ஺ᙠᓫᐭ“ᦻ”ᓫ⚗,ᓫ⚗ᒹ4ᓫ”!"ஹ"ᡭ%"ஹ"&'"ஹ“⌨)*+ᔣ-./ᐳ12᪾4ᦻ᪾ᓫ5“!”ᓫ678ᦻ᪾ᵫᵨᡝ<ᐭᦻᑁ>ᓫ5"&'"ᓫ6?@)“&'ᦻ”12᪾,ᵫᵨᡝᢣBᦻḄCD4ᦻE஺Fᓫ5"ᡭ%”ᓫ6?@)"ᡭ%ᦻ”12᪾ᵫᵨᡝG-⌱Iᡠ◤⌕ḄᦻMNᡭ%ḄᦻḄᑁ>ᑏᙠᦻ᪾-PQᵫᵨᡝRSTᦋ஺6VWXᡂZᦻ[E\WḄ]^_ᒹW`ஹaE4bcஹᦪWஹefghijḄᡂZ஺klᑏ,ᑖnoᡠᨵ\WḄ^_'qᑮsᦻஹtgᦻWXḄᦪu^_vwxy]z஺7ᡭ%15.6⚪-ᡠVḄsᦻG-|}ᡠᨵ\WḄ^_Mᑭᵨᑈ᣸ᢥᡂZGᜧᑮḄsPQᡠᨵ\WḄW`ஹaE4bcஹᦪWஹefg4ᑖ஺8ᡭ%15.6⚪-VḄtgᦻᑏef[E\WḄᙳᡂZMᢥᙳᡂZe[ᑖᦪ
60ᑖ,60ᑖ~70ᑖ,71ᑖ~80ᑖ,81ᑖ~90ᑖ,90ᑖ*ḄzᦪM<)஺9ᡭ%15.6⚪-ᡠVḄtgᦻᑏFᵨᡝ<ᐭ\WḄW`6?Gᦻ-)\WḄᡠᨵ^_,MPQ)ᩭ஺ὃᫀ*ஹ8⚪1ᦪuᦻᦻsᦻtgᦻᦻᦻRᑴᦻ

792OpenInput|ᦻ*Outputᑏᦻ*Appendᦻ*Randomtgᦻ*BinaryRᑴᦻ*Read|*Writeᑏ*ReadWrite\6|ᡈᑏ*3PrintWriteInputLineInputInput
ᦪGetPut4LOF
ᦪLOC
ᦪEOF
ᦪ*ஹl⚪5᪷u⚪¢:ᢥᑡ¥¦RS§e•জ!ªᔣ-.ᓫ,ᔜᓫḄ¬ឋ§®4⌕¯᝞⚓⊤ᡠQ஺ঝᔣE´µForml-.ᦻ᪾E´µTextl4vᵨ12᪾¶E´µCommonDialog1oᙠ§e▤,oFormlḄAutoRedraw¬ឋ§®µTrue;oᦻ᪾TextlḄMultiLine¬ឋ§®µTrueஹScrollBars¬ឋ§®µ3ஹ78Text¬ឋ¸஺ᓫ᪗⚪E´ᑁº»`ᦪ¼x½¾ᦻ
&Fmnu_File¿¿Àᓫ⚗1….!FileNew1¿Ãᓫ⚗11….ᡭ%FileOpen1¿Ãᓫ⚗12....&'FileSave1¿Ãᓫ⚗13...FileSep1¿ᑖ◞Å….⌨)FileExit1¿Ãᓫ⚗14PrivateSubForm_Resize()Textl.Top=0Text2.Top=0Textl.Width=Forml.ScaleWidthTextl.Height=Form1.ScaleHeightEndSubPrivateSubFileNew_Click()Textl.text-9"EndSubPrivateSubFileOpen_Click()

80DimstrlAsString,str2AsStringCommonDialog1.ShowOpenIfCommonDialog1.FileName<>^^^^thenOpenCommonDialogl.FileNameForInputAs#1DoWhileNotEOF(l)LineInput#l,strlStr2=str2&strl&Cht(l3)&Cht(l0)LoopTextl.text=str2Close#1EndifEndSubPrivateSubFileSave_Click()CommonDialog1.ShowSaveIfCommonDialog1.FileTitleForOutputAs#1Print#1,Text1.textClose#1EndifEndSubPrivateSubFileExit_Click()EndEndSub6!ªᔣ-.ᢥÆ(E´µCommand1Caption¬ឋ§®µ"Vᦻ)஺ÉS6,Fᓫ5Command1ᢥÆ6⌕¯<ᐭᔜ\WḄ᫏ᫀ^_4ᔜjᡂZF<ᐭᑮW`µ16⊤Q<ᐭËÌÍoᔜ\WḄᡂZÎÏᑖnᑏᑮsᦻ”D\vbᦟᩞ'semeslerl.txt”4tgᦻ"D\vbᦟᩞ\semester2.txt”-஺Óṹ᝞PrivateTypestudentᙠÕᙽḄ×¾-BØWXÎÏᦪuÙÚSnoAsString*5'W`SnazmAsString*20'aE

81SenglishAsSingle'bcᡂZSmathAsSingle'ᦪWᡂZScomputerAsSingleefgᡂZEndTypePrivateSubCommand1-Click()DimsAsstudentDimRecNoAsInteger,iAsIntegerOpen"D\vbᦟᩞ\semesterl.txtForOutputAs#1Open*'D:\vbᦟᩞ\semester2.txtForRandomAs#2Len=Len(s)i=0DoWhiles.Sno<>"-lni=i+ls.Sno=Trim(InputBox("<ᐭÜ"&Str(i)&”E\WḄW`<ᐭ"))s.Sname=Trim(InputBox(“<ᐭÜ”&Strপ&”E\WḄaE<ᐭ"))s.Senglish=Val(InputBox((”<ᐭÜ”&Strপ&”E\WḄbcᡂZ<ᐭ"))s.Smath=Val(InputBox("<ᐭÜ”&Str(i)&E\WḄᦪWᡂZ““

827!ªᔣ-.ᢥÆE´µCommandlஹCaption¬ឋ§®µ"|}sᦻ“*஺ÉS6Fᓫ5Command1ᢥÆ6ÌÍG"D:\vbᦟᩞ\semesterl.txt”ᦻ-|}ᔜ\WḄ^_4ᡂZÎÏMoWXàᡂZᓫ4᣸áḄᡂZᓫᡭᓺᑮ-஺Óṹ᝞PrivateTypestudent’ᙠÕᙽḄ×¾-BØWXÎÏᦪuÙÚSnoAsString*5W`SnameAsString*20'aESenglishAsSingle‘bcᡂZSmathAsSingle'ᦪWᡂZScomputerAsSingle'efgᡂZStotalAsSingle'ᡂZEndTypePrivateSubCommand1_Click()Dims(lto50)AsStudentDimiasInteger,jasInteger,11asString,t2asSingleDimstunumAsIntegerOpen4tD:\vbᦟᩞ\semester1.txt"ForInputAs#1i=0Print“àWXᡂZᓫ“DoWhileNotEOF(l)i=i+1Input#1,s(i).Sno,s(i).Sname,s(i).Senglish,s(i).Smath,s(i).ScomputerS(i).stotal=s(i).Scomputer+s(i).Senglish+s(i).SmathPrints(i).Sno,s(i)Sname,s(i).Senglish,s(i).Smath,s(i).Scomputer,s(i).StotalLoopClose#1Stunum=iFori=ltostunum-1Forj=i+ltostunumIfs(i).Stotal

83tl=s(i).Sname:s(i).Sname=s(j).Sname:s(j).Sname=tlt2=s(i).Senglish:s(i).Senglish=s(j).Senglish:s(j).Senglish=t2t2=s(i).Smath:s(i).Smath=s(j).Smath:s(j).Smath=t2t2=s(i).Stotal:s(i).Stotal=s(j).Stotal:s(j).Stotal=t2EndIfNextjNextiPrint"᣸áWXᡂZᓫ“Fori=ltostunumPrints(i).Sno,s(i).Sname,s(i).Senglish,s(i).Smath,s(i).Scomputer,s(i).StotalNextiEndSub8!ªᔣª-.ᢥÆ(E´µCommand1ḄCaption¬ឋ§®µ“|}tgᦻÉS6Fᓫ5Command1ᢥÆ6ÌÍG"D\vbᦟᩞ\semester2.txt”ᦻ-|}ᔜ\WḄ^_4ᡂZÎÏ,ef)[å\WḄᙳᡂZM᪷uᙳᡂZe)ᔜᡂZḄzᦪᨬáoeᡭᓺᑮ-.Óṹ᝞PrivateTypestudent’ᙠÕᙽḄ×¾-BØWXÎÏᦪuÙÚSnoAsString*5'W`SnameAsString*20'aESenglishAsSingle'bcᡂZSmathAsSingle'ᦪWᡂZScomputerAsSingle'efgᡂZEndTypePrivateSubCommand1_Click()DimsAsstudentDimp(50)AsSingle,nlAsInteger,n3AsInteger,n4AsInteger,n5AsIntegerDimiasIntegerOpen“D:\vbᦟᩞ\semester2.txt"ForRandomAs#1Len=Len(s)i=0DoWhileNotEOF(l)

84i=i+lGet#l,i,sP(i)=(s.Scomputer+s.Senglish+s.Smath)/3IFp(i)>=90Thennl=nl+lElseifp(i)>=80Thenn2=n2+lElseifp(i)>=70Thenn3=n3+lElseifp(i)>=60Thenn4=n4+lElsen5=n5+lEndIfLoopClose#1Print“90ᑖ:”;nl>z”Print“80ᑖ:”;n2;“z"Print“70ᑖ:”;n3;“z"Print“60ᑖ:“;n4;“z"Print“60ᑖ:”;n5;“z”EndSub9!ªᔣª-.ᢥÆ(E´µCommandlḄCaption¬ឋ§®µ'\W")஺ÉS6Fᓫ5CommandlᢥÆ6⌕¯<ᐭé\WḄW`ᯠáÌÍG"D\vbᦟᩞ\semester2.txt”ᦻ-|}ᔜ\WḄ^_,M|})ᩭḄW`ë<ᐭḄW`ìí᝞î\ᑣ⊤QᑮËðᡭᓺ;᝞ᦻ-ᡠᨵ\WḄW`ëé\WḄW`ñòî\6ᑣ⊤Qò'ᙠ\W஺Óṹ᝞PrivateTypestudent'ᙠÕᙽḄ×¾-BØWXÎÏᦪuÙÚSnoAsString*5'W`SnameAsString*20'aE

85SenglishAsSingle'bcᡂZSmathAsSingle'ᦪWᡂZScomputerAsSingle'efgᡂZEndTypePrivateSubCommandl_Click()DimsAsstudentDimfindnoAsString*20,findsignAsString*1DimIAsIntegerOpen"D:\vbᦟᩞ\semester2.txt”ForRandomAs#1Len=Len(s)i=0:findsign="0"DoWhileNotEOF(l)1=1+1Get#l,I,sIfTrim(findno)=Trim(s.Sno)ThenFindsign=,,r,Print”óᑮ\Wᐸ^_᝞“Print"W`u;s.SnoPrint"aE”;s.SnamePrint”bc”;s.SenglishPrint"ᦪW”;s.SmathPrint”efg”;s.ScomputerExitDoEndIfLoopClose#1Iffindsign="0"ThenPrint”õᑮ\W“EndIfEndSub