预览加载中，请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10
亲，该文档总共20页，到这已经超出免费预览范围，如果喜欢就直接下载吧～
如果您无法下载资料，请参考说明：
1、部分资料下载需要金币，请确保您的账户上有足够的金币
2、已购买过的文档，再次下载不重复扣费
3、资料包下载后请先用软件解压，在使用对应软件打开
2007ᑈ9᳜ܼ䅵ㅫᴎㄝ㑻㗗䆩Ѡ㑻ヨ䆩䆩ोVisualBasic䇁㿔ᑣ䆒䅵˄㗗䆩ᯊ䯈90ߚ䩳ˈ⒵ߚ100ߚ˅ϔǃ䗝ᢽ乬˄↣ᇣ乬2ߚˈ݅70ߚ˅ϟ߫乬A)ǃB)ǃC)ǃD)ಯϾ䗝乍Ёˈা᳝ϔϾ䗝乍ᰃℷ⹂ⱘDŽ䇋ᇚℷ⹂䗝乍฿⍖ㄨ乬वⳌᑨԡ㕂Ϟˈㄨ䆩ोϞϡᕫߚDŽ˄˅䕃ӊᰃᣛ$˅ᑣB˅ᑣ᭛ḷ&˅ㅫ⊩ࡴ᭄㒧ᵘD˅ᑣǃ᭄ϢⳌ݇᭛ḷⱘᅠᭈ䲚ড়˄˅䕃ӊ䇗䆩ⱘⳂⱘᰃA˅থ⦄䫭䇃B˅ᬍℷ䫭䇃C˅ᬍ䕃ӊⱘᗻ㛑D˅偠䆕䕃ӊⱘℷ⹂ᗻ䴶ᇍ䈵ᮍ⊩Ёˈᅲ⦄ֵᙃ䱤㬑ᰃձ䴴˅˄A˅ᇍ䈵ⱘ㒻ᡓB˅ᇍ䈵ⱘᗕC˅ᇍ䈵ⱘᇕ㺙D˅ᇍ䈵ⱘߚ㉏˄˅ϟ߫ভ䗄Ёˈϡヺড়㡃དᑣ䆒䅵亢Ḑ㽕∖ⱘᰃA˅ᑣⱘᬜ⥛ϔˈ⏙᱄ѠB˅ᑣⱘৃ䇏ᗻདC˅ᑣЁ㽕᳝ᖙ㽕ⱘ⊼䞞D˅䕧᭄ܹࠡ㽕᳝ᦤ⼎ֵᙃ˄˅ϟ߫ভ䗄Ёℷ⹂ⱘᰃ㒧ᵘᆚߛⳌ݇ټA˅ᑣᠻ㸠ⱘᬜ⥛Ϣ᭄ⱘᄬB˅ᑣᠻ㸠ⱘᬜ⥛াপއѢᑣⱘࠊ㒧ᵘC˅ᑣᠻ㸠ⱘᬜ⥛াপއѢ᠔໘⧚ⱘ᭄䞣D˅ҹϞϝ⾡䇈⊩䛑ϡᇍ˄˅ϟ߫ভ䗄Ёℷ⹂ⱘᰃ㒧ᵘᖙᅮᰃϔϔᇍᑨⱘټ᭄ⱘ䘏䕥㒧ᵘϢᄬ˅$㒧ᵘϔᅮᰃ㒓ᗻ㒧ټ㒧ᵘˈℸˈ᭄ⱘᄬټぎ䯈ᰃ䞣ᓣⱘᄬټѢ䅵ㅫᴎᄬ⬅˅%ᵘ㒧ᵘˈℸˈ߽⫼᭄㒘া㛑໘⧚㒓ᗻ㒧ᵘټᑣ䆒䅵䇁㿔Ёⱘ᭄㒘ϔ㠀ᰃ乎ᑣᄬ˅&'˅ҹϞϝ⾡䇈⊩䛑ϡᇍϟⱘ↨䕗᭄ᰃމݦ⊵ᥦᑣ᳔ണᚙ˅˄$˅̊(nˇ1)/2B˅nlog2n&˅n(nˉ1)/2D˅̊/2˄˅ϔỉѠঝᷥЁ᳝݅70Ͼᄤ㒧⚍Ϣ80ϾᑺЎⱘ㒧⚍ˈ߭䆹ѠঝᷥЁⱘᘏ㒧⚍᭄Ў$˅219B˅221C˅229D˅231˄ ˅ϟ߫ভ䗄Ёℷ⹂ⱘᰃ$˅᭄ᑧ㋏㒳ᰃϔϾ⣀ゟⱘ㋏㒳ˈϡ䳔㽕᪡㋏㒳ⱘᬃᣕ%˅᭄ᑧᡔᴃⱘḍᴀⳂᷛᰃ㽕㾷އ᭄ⱘ݅ѿ䯂乬&˅᭄ᑧㅵ⧚㋏㒳ህᰃ᭄ᑧ㋏㒳'˅ҹϞϝ⾡䇈⊩䛑ϡᇍ˄10˅ϟ߫ভ䗄Ёℷ⹂ⱘᰃ$˅ЎњᓎゟϔϾ݇㋏ˈ佪ܜ㽕ᵘ䗴᭄ⱘ䘏䕥݇㋏%˅㸼⼎݇㋏ⱘѠ㓈㸼Ёܗ㒘ⱘ↣ϔϾߚ䞣䖬ৃҹߚ៤㢹ᑆ᭄乍&˅ϔϾ݇㋏ⱘሲᗻৡ㸼⿄Ў݇㋏ᓣ'˅ϔϾ݇㋏ৃҹࣙᣀϾѠ㓈㸼˄11˅㽕ՓϔϾ᭛ᴀḚৃҹᰒ⼎㸠᭛ᴀˈᑨ䆒㕂ЎTrueⱘሲᗻᰃA˅EnabledB˅MultiLineC˅MasLenfthD˅Width˄12˅にԧϞ᳝ϔϾৡЎText1ⱘ᭛ᴀḚDŽᔧܝᷛ᭛ᴀḚЁᯊˈབᵰᣝϟᄫ↡䬂“Aāˈ߭㹿䇗⫼ⱘџӊ䖛ᰃA˅Form_KeyPress()B˅Text1_LostFocus()C˅Text1_Click()D˅Test1_Change()˄13˅䆒にԧϞ᳝ϔϾৡ⿄ЎCommand1ⱘੑҸᣝ䪂ϔϾৡ⿄ЎText1ⱘ᭛ᴀḚDŽ㽕∖ऩߏCommand1ᣝ䪂ᯊৃᡞܝᷛ⿏ࠄ᭛ᴀḚЁDŽϟ䴶ℷ⹂ⱘџӊ䖛ᰃA˅PrivateSubCommand1_Click()B˅PrivateSubText1.GotFocusCommand1.GotFocusEndSubEndSubC˅PrivateSubCommand1_Click()D˅PrivateSubText1.SetFocusCommand1.SetFocusEndSubEndSub˄14˅ᠻ㸠ҹϟᑣৢ䕧ߎⱘᰃPrivateSubCommand1_Click()Ch$=”AABCDEFGH”PrintMid(Righ(ch$,6),Len(left(ch$,4)),2)EndSubA)CDEFGHB)ABCDC)FGD)AB˄15˅䆒にԧForm1Ϟ᳝ϔϾ߫㸼ḚList1ˈ݊Ё᳝㢹ᑆϾ乍ⳂDŽ㽕∖ऩߏ߫㸼ḚЁᶤϔ乍ᯊˈᡞ䆹乍ᰒ⼎にԧϞˈℷ⹂ⱘџӊ䖛ᰃA)PrvateSubList1_Click()B)PrivateSubForm1_Click()PrintList1.TextPrintList1.TextEndSubEndSubC)PrivateSubList1_Click()D)PrivateSubForm1_Click()PrintForm1.TextList1.PrintList1.TextEndSubEndSub˄16˅㢹にԧϞⱘ⠛ḚЁ᳝ϔϾੑҸᣝ䪂ˈ߭ℸᣝ䪂ⱘLeftሲᗻᰃᣛA)ᣝ䪂ᎺッࠄにԧᎺッⱘ䎱⾏B)ᣝ䪂Ꮊッࠄ⠛ḚᎺッⱘ䎱⾏C)ᣝ䪂Ёᖗ⚍ࠄにԧᎺッⱘ䎱⾏D)ᣝ䪂Ёᖗ⚍ࠄ⠛ḚᎺッⱘ䎱⾏˄17˅ЎՓᑣ䖤㸠ᯊ䗮⫼ᇍ䆱ḚCD1Ϟᰒ⼎ⱘᷛ乬ЎĀᇍ䆱Ḛにষāˈ㢹䗮䖛ᑣ䆒㕂䆹ᷛ乬ˈ߭ᑨՓ⫼ⱘ䇁হᰃA)CD1.DialogTitle=Āᇍ䆱Ḛにষ”B)CD1.Action=Āᇍ
