2023年計算機過級考試

2023年計算機過級考試(二級）輔導(dǎo)資料第一部分、選擇題1、[多選題］＿___＿_對象具有Print方法。（A)、打印機（B）、圖片框（Ｃ)、圖像框（D）、窗體2、[單選題]假定有如下的Ｓｕb過程:ＳuｂＳ（xAsSｉngｌｅ，yAsSinｇｌe)t=x:x=ｔ/y:y=tMoｄyEｎdSｕb在窗體上畫一個命令按鈕，然后編寫如下事件過程：PｒiｖateSubCoｍmand1_Ｃlｉck（)DimaＡsSingｌｅ,bAsＳiｎglea=6:b=4Ｓa，ｂPｒinta，bEｎdSｕb程序運營后，單擊命令按鈕，輸出結(jié)果為__＿__＿___＿＿_。（A)、１．５1（Ｂ）、1１（Ｃ）、６4(D）、1.52３、[單選題]用于列出當(dāng)前選定窗體和控件的屬性設(shè)立的窗口是_＿__＿＿＿_____。(A)、工程資源管理器窗口(B）、代碼窗口(Ｃ）、窗體布局窗口（D）、屬性窗口４、[多選題]ＶB中的控件涉及___＿＿______＿。(A)、窗體（Ｂ)、ActiveX控件(Ｃ）、內(nèi)部控件(Ｄ）、可插入的對象5、[單選題］下面關(guān)于隨機文獻的描述不對的的是＿________＿__。（A）、一個文獻中記錄號不必唯一（B)、文獻的組織結(jié)構(gòu)比順序文獻復(fù)雜（C)、每條記錄的長度必須相同(D）、可以通過編程對文獻中的某條記錄方便地修改6、［單選題]每當(dāng)窗體失去焦點時會觸發(fā)的事件是_____＿____＿_。(Ａ)、Ｄｅaｃtivｅ（Ｂ)、Iｎitｉaliｚｅ（C)、Ａｃtive（D）、LosｔFocuｓ7、[單選題］在下列關(guān)于菜單的說法中,錯誤的是______＿_____。(A）、菜單項的捷徑鍵不能任意設(shè)立（B）、除了Click事件之外，菜單項還能響應(yīng)其他的如DｂlCｌiｃk等事件(Ｃ)、每個菜單項都是一個控件,與其他控件同樣也有自己的屬性和事件（Ｄ)、在程序執(zhí)行時,假如菜單項的Enabled屬性為Fａlse,則該菜單項變成灰色,不能被用戶選擇８、［單選題]表達式1６/4-2＾5*1６/4ＭOＤ9\2的值為___＿___。(A）、4（B)、2（C）、0(Ｄ）、８９、[單選題]結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)不涉及＿__________＿。（A）、循環(huán)結(jié)構(gòu)（Ｂ）、順序結(jié)構(gòu)（C)、選擇結(jié)構(gòu)（D)、嵌套結(jié)構(gòu)10、[單選題］有如下一組程序語句：ＰｒivateSubComｍand１_Clicｋ()DiｍaＡsIntegｅra%=9a＝10.6Priｎta%,aＥnｄSub運營時的輸出結(jié)果是＿_＿__＿______。（A)、910.6（B）、1１1１（C)、９9(Ｄ）、1110.611、[單選題]閱讀下面的程序段:Ｆｏri=1Ｔｏ2Ｆoｒj=１ToｉＦoｒk=ｊTｏ2ｘ＝x＋3NｅxtkNextjNexｔiPrintｘ執(zhí)行上面的三重循環(huán)后，x的值為＿＿_＿＿_。(A）、15(B）、1７（C）、2５(D）、16１２、［多選題]在VisuaｌBａｓic中,根據(jù)過程是否返回值可以分為兩大類,涉及____＿_。(Ａ）、Sub過程（B)、標(biāo)準(zhǔn)過程（C）、類模塊（D)、Ｆunctiｏn過程１3、[單選題]設(shè)有如下說明:ＰubｌicSubF１(ｎ%)...ｎ=３＊n+４.．.ＥndSubPrivatｅＳｕｂCoｍmand1＿Cliｃk()Diｍn%，m%n=3m＝4...'調(diào)用F１語句...EndSub則在Coｍmａnｄ1＿Click事件中有效的調(diào)用語句是__＿_____＿___。（A)、Ｆ１m（B）、F1m+5（C)、Ｆ1５(D)、F１n＋m14、[單選題]下面關(guān)于多重窗體的敘述中,對的的是__＿____＿___＿。(Ａ）、類沒有啟動窗體，程序不能運營（B）、作為啟動對象的Maｉn子過程只能放在窗體模塊內(nèi)（Ｃ)、以上都不對的(D)、假如啟動對象是Maｉn子過程，則程序啟動時不加載任何窗體,以后由該過程根據(jù)不同情況決定是否加載或加載哪個窗體15、[單選題］可以唯一的標(biāo)記控件數(shù)組中每一個控件屬性的是________＿＿＿_。（A）、Inｄeｘ（B)、Name（Ｃ）、Eｎableｄ(D）、Captiｏn16、[單選題]在用菜單編輯器設(shè)計菜單時,必須輸入的項有___＿＿__＿____（A)、標(biāo)題(Ｂ)、名稱(C)、快捷鍵(D）、索引１７、[多選題］下面____＿_是合法的變量名。(A）、6lk(Ｂ)、ｈjlk_jk（Ｃ)、ｈ-i（D)、ｉnteger_1１8、［單選題]子窗體就是將__＿___＿__＿__屬性設(shè)立為Ｔrue的普通窗體。(A)、ＭＩDCｈForm(B）、MDIChｉｌd（Ｃ）、ＭuｌtiChild(D）、MultｉFｏrm19、[單選題]在下列關(guān)于鍵盤事件的說法中,對的的是_＿____＿_＿_＿＿。(A）、KｅyUp和KeyＤown的事件過程中有KeｙＡscｉi參數(shù)(B）、大鍵盤上的"１"鍵和數(shù)字鍵盤的＂1"鍵的KeyCoｄe碼相同（C)、按下鍵盤上的任意一個鍵都會引發(fā)KeyＰrｅsｓ事件(D)、大鍵盤上的"４＂鍵的上檔字符是"$＂，當(dāng)同時按下Shift和大鍵盤上的"４"鍵時，ＫeｙＰｒess事件過程中的KeｙAscIＩ參數(shù)值是"$＂的ASCII值。20、［多選題]下面程序段求兩個數(shù)中的大數(shù),對的的是__＿＿__。(Ａ）、Ify>=xThｅnMax=y:Ｍax=x（Ｂ)、Ｍax＝x:Ｉｆy>=xThenMax=ｙ(Ｃ)、Ｍax=IIｆ(x>ｙ,ｘ,y)(Ｄ)、Iｆx>yＴhｅnMax=xElseMax=y2１、[單選題］數(shù)學(xué)式子ｓｉｎ25°寫成VB表達式是____＿__。（A）、sin(２5°)（B)、sin(25°*３.１4／180)(C)、Sin25（D)、Sｉn(25＊３.1４／180)２2、[單選題]ＣoｍmｏｎDialog控件的__＿____＿___＿方法可用來顯示文獻打開對話框。(A）、ShowOpｅn(B)、ＳhowＨeｌp(C）、ShｏwＳave(Ｄ)、ShｏwFoｎt23、[單選題]要使Forｍ1窗體的標(biāo)題欄顯示＂歡迎使用VＢ",以下＿__＿__語句是對的的。（A）、Form1.Nａｍe="歡迎使用VB"（B）、Foｒｍ1．Caption=歡迎使用VB（C)、Foｒm1.Nａme=歡迎使用VB(D)、Fｏrm1.Caｐtｉon="歡迎使用VB＂24、［多選題]下列表達式中運算結(jié)果為1的是______。(A)、-5Mｏd-2（Ｂ)、5Moｄ－2（Ｃ）、5Mod2(D)、-5Moｄ225、[單選題］在ViｓｕalBａsiｃ中,變量的默認類型是__＿＿_＿。（A)、Vａriant(Ｂ）、Strinｇ(C）、Siｎgle(D)、Intｅｇer26、[單選題]Long類型的數(shù)據(jù)由_＿__＿_字節(jié)組成。（Ａ)、４（B)、2(C）、16（Ｄ)、82７、［單選題］構(gòu)成文獻的層次結(jié)構(gòu)關(guān)系是____＿__＿_＿＿＿。（Ａ)、字符－記錄-字段-文獻(B）、字符-字段-記錄-文獻(C）、字符-字段-文獻-記錄(D）、字段－字符-文獻-記錄28、[多選題]＂文獻名＂是指文獻自身的名稱,它一般由_＿＿_＿_三部分組成。（Ａ）、下劃線(B）、主文獻名（C）、圓點(D）、擴展名29、[多選題]下列不能接受焦點的控件涉及_＿＿___。（A）、窗體(B）、復(fù)選框(Ｃ)、框架(Ｄ）、菜單30、[單選題]當(dāng)用戶按下并且釋放一個鍵后會觸發(fā)KeｙＰress、ＫeｙUp和KeyDown事件，這三個事件發(fā)生的順序是_＿＿_＿_＿___＿_。(A)、KeｙＤowｎ、KeyPｒesｓ和KeyUｐ（B)、KeyUp、ＫeyDown和KeyPress（C)、KｅｙＰｒess、KｅyＵp和KeyＤowｎ（Ｄ)、無規(guī)律3１、[多選題］結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)涉及___________＿。（Ａ)、順序結(jié)構(gòu)(B）、嵌套結(jié)構(gòu)(C)、循環(huán)結(jié)構(gòu)（D)、選擇結(jié)構(gòu)32、[單選題]下面４個表達式中，其值為0的是_＿_____＿。(A)、５MOD6（B）、6MＯＤ５（Ｃ)、５/6(D)、5\633、[單選題]InpuｔBｏx()函數(shù)返回值的類型為_＿＿_______＿_。（A)、數(shù)值或字符串(視輸入的數(shù)據(jù)而定)（Ｂ)、數(shù)值（C）、變體（D）、字符串34、[單選題]在VB集成環(huán)境創(chuàng)建VB應(yīng)用程序時，除了工具箱窗口、窗體中的窗口、屬性窗口外，必不可少的窗口是__＿______＿＿_。（A)、監(jiān)視窗口（B）、代碼窗口（C)、窗體布局窗口(D)、立即窗口35、[單選題]在viｓuａlBasｉc中可以包含其他控件的是__＿______＿__。(A）、框架（B）、復(fù)選框（C)、文本框(D）、滾動條３6、[多選題］在VｉsuaｌBaｓiｃ中,下面的4個語句語法對的的是＿____＿。（A）、x=Sqr(0）（B)、x=Sin(0)（C)、x＝Sｇn(０）(Ｄ)、x=Log(０）37、[單選題]要從For．．.Ｎeｘｔ循環(huán)語句中退出循環(huán)，應(yīng)使用的語句是______。(A）、Coｎtinuｅ（B)、ExiｔFor（C)、Exit(D）、SｔopＬoop3８、[單選題］表達式1６/4-2^5*16/４ＭOD9\2的值為_＿_＿___。（A)、4(Ｂ）、2（Ｃ)、0(D）、８3９、［單選題]子窗體就是將_＿__＿_＿＿____屬性設(shè)立為Truｅ的普通窗體。（Ａ）、MＤIChｉld（B)、MIDCｈForm(C）、MuｌtiChild(Ｄ）、ＭulｔiForm40、[多選題］Dａt(yī)aTiｍｅ是一個日期類型的變量,以下賦值語句中對的的是__＿_＿_。（A）、Dａt(yī)aＴime＝#Septｅmｂer1,202３＃（B)、DataTime=#5/14/０1#(C)、DatａTime=#12：１５：0０AM#(D)、DataＴime＝"8／8/99"41、[單選題]優(yōu)先級別最高的運算符是＿＿_＿__＿_。（A)、算術(shù)運算符（B)、關(guān)系運算符(C）、以上都不對的(D）、邏輯運算符42、[單選題]當(dāng)需要上下文幫助時,選擇要幫助菜單中的"內(nèi)容"子菜單,然后按_____＿___＿_＿鍵,就可出現(xiàn)ＭSＤN窗口及顯示所需的幫助信息。(A)、Heｌｐ（B）、F10（C)、F1（D）、Esc43、[單選題]下列控件中不支持鼠標(biāo)事件的是______＿＿____(A)、文本框(B）、命令按鈕(Ｃ）、計時器（D）、標(biāo)簽44、[單選題］在窗體畫一個命令按鈕,然后編寫如下事件過程：ＰrｉvateSｕbComｍand１_Cliｃk()Diｍa(１To１0)AsIntegerDimp(1To3)AsInｔeｇerｋ=５Fori＝1To10a(i)=ｉＮextFori=1To3p(i)＝a(ｉ*i)NeｘtＦｏri=１Tｏ3k=k+ｐ（i)*２NｅxtPriｎｔｋEndSub程序運營后，單擊命令按鈕，輸出結(jié)果是＿_＿_＿___＿___。(A)、１4(B)、33(C）、28（D)、１745、[單選題]在ＶisｕalBasic中,Shｅll函數(shù)的功能是__＿____＿＿___(Ａ）、退出一個正在運營的文獻（B)、執(zhí)行一個可執(zhí)行文獻(Ｃ）、設(shè)立命令行解釋器(D）、與操作系統(tǒng)進行通信４６、［單選題］在運營下面程序時會顯示犯錯信息，犯錯的因素是:___＿___＿＿_＿___。PriｖatｅSｕｂＣｏmｍanｄ1_Ｃlick（）i＝4Ｄima(i)Forｊ=0to4a(j）=ｊ^jＮexｔEndSｕb（A)、第二行數(shù)組說明語句不能用變量來定義下標(biāo)(Ｂ）、第四行數(shù)組元素ａ(j)下標(biāo)超過下界（C）、第四行不能用循環(huán)變量j進行運算（D）、程序無錯,也許是計算機病毒4７、[單選題]在窗體上畫一個名稱為Texｔ1的文本框和一個名稱為Command１的命令按鈕，然后編寫如下事件過程：PriｖatｅSｕbComｍaｎd1＿Ｃlｉck()Dimａｒray1(1０,10）AsIntegｅrDimi，ｊAsＩntegｅrＦorｉ＝1To3Ｆorj=２To4arrａy１（i,j)=ｉ+jNextjＮeｘｔiText１.Text=arｒａｙ１（2，3）+ａrray1（3，4）EｎdSub程序運營后，單擊命令按鈕,在文本框中顯示的值是_＿__＿__＿_＿____。（A）、１2（B)、14（C）、10(Ｄ）、６48、[單選題]表達式leｎ("跟我學(xué)ＡＢC和123")的值是__＿__＿_。（A）、17(Ｂ)、10（Ｃ）、2０（D)、1449、[多選題]下面的4個數(shù)組說明語句語法不對的的是______＿_＿___。（A)、ＤＥFＡ(10)(Ｂ）、DiｍA[1０]（C)、Ｄiｍa(１0）(D）、DIMEＮＳＩＯNａ(10)50、[單選題］順序文獻是_＿___＿______。（A）、記錄按進入的先后順序存放的,讀出也是按原寫入的先后順序讀出（Ｂ)、文獻中按每條記錄的長度從小到大排序好的（C)、文獻中按每條記錄的記錄號從小到大排序好的（D)、文獻中按記錄的某關(guān)鍵數(shù)據(jù)項的從大到小的順序5１、[單選題]當(dāng)鼠標(biāo)在某個控件上移動時,會產(chǎn)生_＿_______＿__事件。(A）、MouｓeＭovｅ（Ｂ）、ＭouseUp（C)、MouseDown(D）、DragOver5２、[單選題]KILL語句在VＢ語言中的功能是＿_＿_________。(A)、清除內(nèi)存（B)、清除病毒(C）、刪除磁盤上的文獻(Ｄ)、刪除窗體上的控件５3、［單選題］滾動條產(chǎn)生Chａｎgｅ事件是由于＿___＿_＿_____值改變了。(A）、Visibｌe（B)、Scroｌｌ（C）、Vaｌue（D)、Ｗiｄth５４、[單選題]當(dāng)運營程序時，系統(tǒng)自動執(zhí)行啟動窗體的__＿___＿_＿_事件過程。(A）、GoｔFocus(B）、Ｌoａd(C）、Cｌick（D)、Unlｏaｄ５5、[單選題]假如在立即窗口中執(zhí)行以下操作:a=3<CR>(＜CＲ>是回車鍵,下同)ｂ＝8<ＣR>priｎtａ>b<CＲ＞則輸出結(jié)果是___＿___＿＿＿__。（A)、0(B)、－1（C)、Trｕe(D）、Falsｅ５6、[單選題］下面_＿＿___是合法的變量名。(A)、intｅger（B）、hｊlk6_jｋ(Ｃ)、６ｌk(D）、h-ｉ657、[單選題]以下語句的輸出結(jié)果是_＿＿____＿__＿_。PｒｉntFoｒmaｔ(230４3.8,"000,０00.00"）（A)、023,04３.80(B）、２3０４3.8(C)、23,043.80（D)、２３,043.85８、[單選題]假如列表框(Ｌiｓt１)中沒有被選定的項目,則執(zhí)行Liｓt1．RemoveIteｍList1．ListIndex語句的結(jié)果是＿＿＿__＿_＿_＿＿_。(A)、刪除第一項(B）、以上都不對（Ｃ）、刪除最后一項(D)、刪除最后加入列表的一項59、[單選題］假如文本框的Enａbled屬性設(shè)為Falｓｅ，則_＿＿_＿__＿__＿_。(Ａ）、文本框的文本將變成灰色，并且此時用戶不能將光標(biāo)置于文本框上（B)、文本框的文本將變成灰色，用戶仍然能將光標(biāo)置于文本框上,但是不能改變文本框中的內(nèi)容(Ｃ)、文本框的文本正常顯示,用戶能將光標(biāo)置于文本框上,但是不能改變文本框中的內(nèi)容（D）、文本框的文本將變成灰色，用戶仍然能改變文本框中的內(nèi)容6０、[多選題]文獻系統(tǒng)控件涉及_＿____。（Ａ)、DirＬistBox（B）、FileLｉｓtBoｘ(C)、ComｂoBox(D)、DrivｅLｉsｔBｏx61、[多選題]VisuａlBasｉｃ中注釋語句的前綴可以是＿__＿＿＿。(A）、撇號（B）、Rem（C）、逗號（Ｄ)、分號6２、［單選題]為了把焦點移到某個指定的控件，所用的方法是＿_＿_______＿_。(A）、Refｒesh(B）、Oｕtfoｃus（C）、Gｅtfoｃus（Ｄ)、Sｅtfｏcus63、[單選題]語句Ifｘ=1Tｈｅny=1,下列說法對的的是__＿＿_＿。(A）、x=１為賦值語句，y=1為關(guān)系表達式（Ｂ）、ｘ=1和y＝1均為賦值語句(C)、x=1和ｙ=1均為關(guān)系表達式(D)、x=1為關(guān)系表達式,y=１為賦值語句６4、[多選題]在ＶB中，常用的對象涉及____＿＿＿_＿_＿_。（A）、菜單(Ｂ）、工具箱中的控件（Ｃ)、窗體(Ｄ）、事件過程65、[多選題]下列控件中，用于在窗體的指定位置顯示圖形信息的是_____＿____＿_。(Ａ)、圖像框（B）、列表框（C）、標(biāo)簽（D)、圖片框66、[多選題]語句Ifa=1Ｔhｅnｂ=1,下列說法對的的是＿_＿_＿_。(A)、a=1為關(guān)系表達式（B)、b=1為關(guān)系表達式(C）、a=１為賦值語句（Ｄ）、b=1為賦值語句６７、[多選題]下列運算符中優(yōu)先級別相同的是_＿____。(Ａ）、<>(B)、＝(C)、>=（D)、＜68、[多選題]下面程序段求兩個數(shù)中的大數(shù)，對的的是______。(Ａ)、Ｍax＝x：Ifｙ>=xＴhenＭaｘ＝ｙ(B）、Mａｘ=IIf(ｘ>ｙ,x,y)（Ｃ)、Ifx>ｙThenMａｘ=ｘElｓeMａx＝ｙ(Ｄ）、Iｆｙ>＝xThenMax=y:Max＝ｘ69、[單選題]引用列表框（Ｌｉsｔ1)最后一個數(shù)據(jù)項應(yīng)使用________＿___。(Ａ)、Ｌiｓt1.Lｉｓt（ListCouｎｔ)(B)、List１.Lisｔ(List1．LｉstCｏuｎt）（C）、Liｓt１.List(Lｉｓt１.ListＣount-１)(Ｄ）、Ｌist1.Ｌｉｓt（ListCount－１）程序題請打開D:＼djkｓ\ｖbｃp\202３０02文獻夾下的KS_1工程文獻,按規(guī)定完畢以下程序:通過文本框輸入以秒為單位表達的時間，單擊命令按鈕，將其換算為幾時幾分幾秒,并運用標(biāo)簽輸出結(jié)果。如下圖所示，編寫程序,實現(xiàn)上述規(guī)定。保存的窗體名稱為kｓ_1．fｒm,工程文獻名為ｋs_1．vbp。（1０.0分）答案:Prｉvａt(yī)eSubCommaｎd1_Cliｃｋ（)'作答＇-－-－－-－－－-－-------－------------------－-----------－-----－－--－---------DimdaｔaAsSingｌeDimhAｓIｎｔeger,mＡｓInteger，sAsIntegeｒdａt(yī)a＝Val(Text１.Text)h=data\3600m=（ｄatａMod3600)＼６０s=(dataMoｄ3600)Mod60Laｂel１.Ｃaption=h&"時"&m&"分"&s&"秒"＇--－-----－--－--------－--－－-－－-----------－－-----－-－-－--－－----－-－---－－--ＥndSub請打開D:\dｊks\vbcｐ\2023003文獻夾下的KS_1工程文獻,按規(guī)定完畢以下程序:在文本框中輸入英文字母，按"轉(zhuǎn)大寫"按鈕，文本變?yōu)榇髮懀话矗⑥D(zhuǎn)小寫"按鈕，文本變?yōu)樾?按＂復(fù)原＂按鈕,文本復(fù)原。如下圖所示,編寫代碼實現(xiàn)這個規(guī)定。保存的窗體名稱為ks_1.frm,工程文獻名為ks_1.vbp。(１０.0分）答案：DimsｔｒAsＳtｒiｎgＰrivaｔeSubComｍａnd１＿Clｉcｋ(）'作答'-－-----------－-－--－---－－--－--－----－--－---－-Teｘt1.Text＝uｃａｓｅ（tｅｘt1.ｔexｔ）'--－------－---－--－－--------－－－-－-----－---－--EｎｄＳubPrivateSubCoｍmand2_Cｌicｋ()'作答Teｘt1.Ｔeｘt=Ｌｃasｅ(teｘt1．tｅxt）'----－－----－--－------－---－---－－------------－ＥｎｄＳubPｒivateSｕbCoｍmaｎｄ3_Clｉｃk()＇作答'－----－----------------－----－-------－----－-－Text1．Ｔext=str'-－--------－-－---－----－---－----－-－---－------EｎdＳubPrivateSubＴext1＿KｅyＵp（KeyCｏｄeAｓInteｇer,ＳhiｆｔAsInteｇｅr)＇作答'-----－--－----------－-－-－－－-－-－--－---------－stｒ=Text１.Tｅxｔ'－------－－-－-------------－-－－------－－-－---－-EndSub請打開D:\dｊkｓ＼vbｃp\2023004文獻夾下的ＫS_1工程文獻,按規(guī)定完畢以下程序：在文本框中輸入小時、分、秒，單擊命令按鈕,轉(zhuǎn)化成共有多少秒，并運用標(biāo)簽輸出結(jié)果。如下圖所示,編寫程序，實現(xiàn)上述規(guī)定。保存的窗體名稱為ks_1.frm，工程文獻名為ｋｓ_１．vbｐ。（１0.0分)答案:PrivateSubCommand1_Cｌiｃk()'作答＇--－----－--－－-－----－－-－-－－-----－-－------------－---－--－--Label1.Capｔiｏn＝"共有"&(Vaｌ（Ｔext1.Tｅxｔ)*3600+Val(Ｔeｘｔ２.Text)＊60+Vａl(Text3.Text))&"秒"'－-－---－---－--------－－－-－----－-－---－------------------－-ＥｎｄＳub請打開D:\dｊks\vｂｃp\２023０0５文獻夾下的KＳ_１工程文獻,按規(guī)定完畢以下程序:任意給定３個實數(shù)，求其中間數(shù)(即其值大小居中者），并運用標(biāo)簽輸出結(jié)果。如下圖所示，編寫程序，實現(xiàn)上述規(guī)定。保存的窗體名稱為ks_1.frｍ，工程文獻名為ks_１.vｂp。(1０.0分）答案：ＰrivaｔeSｕbCoｍｍanｄ1_Cliｃk（)'作答'---------－－-－－--－----－－---－－---－-－-－---－----－－------DｉmａAsSｉｎgle,bAｓSingle,cＡsＳingleDｉmmｉｄAｓSiｎglea＝Val（Ｔext1.Text）:ｂ=Vａl（Text２.Tｅｘt)：c=Val(Text３．Tｅxt)If(b>aAnda>c)Ｏr（c＞ａAnda>b)Tｈeｎmiｄ＝aIｆ(a＞bAndb>c)Or（c>ｂＡndｂ>a)Ｔhｅnmid=bＩf(a>cＡndc>b)Or(ｂ>ｃＡndｃ>a）Thenｍid=cLaｂｅl1.Caption=mｉd'--－-----－-－－-------－--－--－－－－-----－-－－－------－-----－EnｄSub請打開D：\dｊks\vbｃp＼202３006文獻夾下的KS_1工程文獻，按規(guī)定完畢以下程序:鍵盤輸入a、b、ｃ的值，判斷它們能否構(gòu)成三角形的三條邊。如下圖所示,編寫程序，實現(xiàn)上述規(guī)定。保存的窗體名稱為ks_1.frm，工程文獻名為ks_１.vｂp。(1０.0分）答案:ＰrivateSubCｏmmａnd1＿Cliｃk(）＇作答＇－-－-－-－-------－－----－--－--------－--－-－---－--－---－-－--－---DiｍａAsSｉngle，bAsSinｇle,cAｓSｉｎglｅａ=Val(Tｅxｔ1.Tｅｘt）：b=Val(Text2.Text)：c=Vａl(Text3.Teｘｔ)If(a+b）＞cAｎｄ(a+c)>ｂAnd(b+c)>aThenLabel1.Ｃaptｉon="能構(gòu)成三角形的三邊"ElseLａbel1．Ｃaptiｏn="不能構(gòu)成三角形的三邊＂EnｄIf'---－--－－--------－----－－-------------－－--------－--－-------EndＳub請打開D:\djｋs\vbｃp＼２０230０7文獻夾下的KＳ_1工程文獻,按規(guī)定完畢以下程序：編寫程序,求1～１０0之間的所有奇數(shù)之和。單擊求各按鈕求和，并運用標(biāo)簽輸出結(jié)果,保存的窗體名稱為ks_１.fｒｍ，工程文獻名為kｓ＿1.vbp。(１0.０分)答案:PrivaｔeＳubＣomｍand1_Ｃｌiｃk()＇作答＇--－--－-－--－－-－---－－----－--------－----------－----－-----－DimsＡsIntｅgerＦorｉ=１To100IｆｉＭod2=1Thens=ｓ+iNeｘｔiLａbeｌ1.Caｐtｉon="1-100間奇數(shù)的和為:"&s'-－--－-－-－－-----－－--－------－--－-－-－--－－-----－------－－--－EnｄSｕb請打開D：\dｊｋs\vbcp\２0２3009文獻夾下的KS_１工程文獻,按規(guī)定完畢以下程序:編寫程序，在窗體上輸出100~2００之間的所有素數(shù)（規(guī)定每10個一行）。保存的窗體名稱為ｋs_1.fｒm，工程文獻名為ks＿１.vｂp。(10.０分)PrｉvatｅSubCommanｄ１_Clｉｃk()'作答'--－---－-－--－－------－----－-－-－-－--－－-------－-－-DｉmｋAｓIｎteｇerDimｆlagＡsBooleanｋ＝1Fｏri=100Tｏ20０fｌａg=TｒueFoｒj=2ToＩnｔ(Sqr(ｉ）)IfiModｊ=0Thenflag=FaｌseEｘitForＥｎdIfNexｔjＩｆflagTheｎＩfkＭod10=0ThｅnPrintｉＥlsePrinti;EndIfk=k+1EndIｆNexti'------－----－--－--－------－---－-－----－----－-－－--－ＥndSub８、請打開D:\djks\vbcｐ\2０2３01１文獻夾下的ＫS＿１工程文獻,按規(guī)定完畢以下程序:通過InputBox函數(shù)輸入任意長度的字符串，規(guī)定將該字符串順序倒置，例如,將輸入的"ABＣDEＦ"變換成"ＦEＤＣBA"。如下圖所示，編寫程序，實現(xiàn)上述規(guī)定。保存的窗體名稱為ks＿1.frm,工程文獻名為kｓ_１.vｂｐ。(１5．0分）PｒiｖａｔeSｕbCommａｎｄ1_Cｌick()'作答'----－----－-－-----－－-----－----－-－－－------－--－-－----DimｓAsＳtringｓ=""Fｏｒi=Ｌen(Texｔ１.Text)To1Ｓtｅp-１s＝s＋Mｉd(Ｔｅxｔ1.Text,i,1）NｅxtiＴeｘt2.Ｔext＝ｓ＇－--－----－－－－-－----－－--------－－-----－---－--－--－-－-－EndSub9、請打開D：\djｋs\vbcp\２02３01２文獻夾下的KＳ_1工程文獻,按規(guī)定完畢以下程序：某航空公司規(guī)定在旅游的旺季(7～10)月份,假如訂票數(shù)超過20張,票價優(yōu)惠15％，２0張以下，優(yōu)惠5%；在旅游淡季（1~５）、１１月份,假如訂票數(shù)超過２０張，票價優(yōu)惠３0%,２0張以下，優(yōu)惠2０%;其他情況一律優(yōu)惠１0%。如下圖所示,編寫程序，根據(jù)月份和訂票張數(shù)決定票價的優(yōu)惠率并將其顯示在標(biāo)簽框（Lａbeｌ１）。保存的窗體名稱為ｋｓ_1.ｆrm，工程文獻名為ks_１.ｖbp。(１0.０分）PrivateSubCommand1＿Cｌick()DiｍmAsIｎｔｅger，nAsInｔeger，rAsIｎteｇｅrm=Val(Text1.Ｔｅxt)n=Val(Text2.Ｔexｔ)Ｉfm<=１2Anｄm>0TheｎSｅｌectCａｓeｍCaseＩｓ<=５,11Ｉfｎ<20Ｔｈenr=20Ｅlser=３0Ｃａse7To１0Ｉｆn＜２0Tｈenr=5Elser=15ＣaseElser=1０EｎdSelecｔLabel1.Captｉon＝"所訂機票的優(yōu)惠率為:"+Str（r)+"%＂ElsｅLabeｌ１.Caｐtion＝"輸入月份錯誤"EndIfEndSｕｂ10、請打開D:＼ｄjks＼vbcｐ\202３013文獻夾下的KＳ_1工程文獻,按規(guī)定完畢以下程序:通過InｐutＢｏｘ函數(shù)從鍵盤上輸入一串字符，以"?"結(jié)束，并對輸入字符中的字母個數(shù)和數(shù)字個數(shù)進行記錄。編寫程序,實現(xiàn)上述規(guī)定。保存的窗體名稱為ks_１.frｍ,工程文獻名為ｋs＿1.ｖｂp。（15.0分)Privａt(yī)eＳｕｂCｏｍｍaｎd1_Ｃlicｋ()'作答'---－-－－----－-----－-－－-－----－－---------－----－-Dims1AsSｔｒiｎg,s2AsＳtringDimk1AsIｎteger，k2AsIntegerk1＝０:k2=0s1=IｎputBoｘ("請輸入字符串,以'?'結(jié)束!")I=1s２=Ｍid（s1,ｉ，１)ｄoｗhileｓ2＜>"？"s2=Mｉｄ(s1，i,1）IfUCase（s2)>="A"ＡndＵCase（s2)<="Ｚ"Thenk1＝k1+1ＥｌseＩfs2>="0＂Ａｎｄs2<＝"9"Ｔhｅnk２＝k2+１ＥnｄIfI=I+1s2＝Mｉd(s1,ｉ,1)ｌooｐPriｎt"字母個數(shù)"&k1Prｉnt"數(shù)字個數(shù)＂＆ｋ2＇---－-－--－－--－－－-------－-----－－-－－－－-------－-－EndＳub１1、請打開Ｄ:\dｊks\ｖbcp＼202３014文獻夾下的KS_１如下圖所示,編寫程序:單擊"求最大公約數(shù)"按鈕，調(diào)用用函數(shù)Ｄｉｖisor(此函數(shù)功能是求出最大公約數(shù)）,求兩個自然數(shù)的最大公約數(shù),并運用標(biāo)簽輸出結(jié)果。保存的窗體名稱為kｓ_1.fｒm,工程文獻名為ｋs＿1.vｂp。工程文獻,按規(guī)定完畢以下程序:(1０.0分）PrivateSubCommａｎd1＿Click()'作答＇---－－--－---－--－－--－---－--－-----－---－－-－-－-－--－------ＤｉmaAsＩnｔeger,bAsInｔeｇera=Val（Texｔ１.Text)：b=Vaｌ(Text2.Tｅxt）Labｅl1.Cａｐtioｎ=a＆"和"&b&"的最大公約數(shù)為："&Ｄiｖisor(a，b)'----------－--－------－----－-----－－-----－-－-－－-－-－----EndSubFunctiｏｎDivisor(BｙValxＡsIｎｔegｅｒ,ByＶalyＡsＩnteger)AsIｎｔｅｇer'在此函數(shù)中實現(xiàn)求最大公約數(shù)功能'---－-－－－－------－---------------－------------－-------ＤimrAsIntegｅr，ｔaｓintegerＩfｙ>ｘthent=x:x=y：y＝tr=xModyDoUntilr＝0x=yy=rｒ=xModyLoｏpＤiｖiｓor=y'-－－-------－－-----－---－－-----－－-－-－--－-----------－－--EｎdFuncｔｉon12、請打開Ｄ：\djｋｓ\ｖｂcｐ＼2023０１5文獻夾下的ＫS_1工程文獻,按規(guī)定完畢以下程序：編寫程序,通過IｎputＢox函數(shù)從鍵盤上輸入4個數(shù)，計算并輸出這4個數(shù)的和、平均值，并在窗體上顯示幾個數(shù)的和、平均值。保存的窗體名稱為ks＿1.frｍ,工程文獻名為ks_１.ｖbp。(10.０分）ＰriｖaｔｅSuｂCｏmmand1_Cｌicｋ()'作答'--－---－－----------－----－------－-----－－－－－-－--－----－--Dima(3)AsSingleＦｏrｉ=0Tｏ３ａ（ｉ)=InpuｔBｏx（"請輸入第＂&(i＋１）&"個數(shù)"）Sｕm=Sum＋ａ（i)ＮextiＰrint"四個數(shù)的和:";SumＰrint"四個數(shù)的平均值:";Sum/４＇-－--－－-－--－-----－-－--－--－-－----------－--－--－－---－－－－－EndSｕb１３、請打開D:\djks\vｂcp\20２３０16文獻夾下的KS_1工程文獻，按規(guī)定完畢以下程序：編寫程序，在列表框中輸出所有的＂水仙花數(shù)"。所謂水仙花數(shù)是指一個三位數(shù)，其各位數(shù)字立方和等于該數(shù)自身。保存的窗體名稱為kｓ_1．ｆｒｍ,工程文獻名為kｓ_1.vbp。（10.0分)PrivａｔｅSubCoｍmaｎd1＿Ｃｌicｋ（)'作答'---－----－--－－---－--－－---－---－－------------－--ＤimaAｓＩntegeｒ,bAsIntegｅｒ,cAｓＩnteｇerFｏｒi＝1００To999ａ=ｉ\100：b=i＼１0－（i＼1００)*１0:ｃ＝ｉMod10Ifa^３＋b^3＋c^3＝iThｅnLisｔ1.AｄｄItemiEｎdＩｆNeｘｔｉ'－-----－-－--－－－－-－－-------－-－---－－-－------－--－ＥｎdSuｂ14、請打開Ｄ:\djks＼vｂcp\20２3０17文獻夾下的KS_1工程文獻,按規(guī)定完畢以下程序:本程序用于建立Fiｂonaｃcｉ級數(shù)。Ｆiboｎacci級數(shù)的構(gòu)造規(guī)則為：(1)F1=Ｆ2＝1；（2)Fn=Ｆn-１+Fn－２(ｎ>＝3)規(guī)定通過文本框指定Fiｂoｎacci級數(shù)的項數(shù)，在窗體上每行顯示5個級數(shù)項。如下圖所示，編寫程序，實現(xiàn)上述規(guī)定,并將Ｆibonａcci級數(shù)打印在窗體上。保存的窗體名稱為ks_1.frm，工程文獻名為ks_１．vｂｐ。（10.0分）PrivateSubCommand1_Cliｃk()'作答'-－--－－------------------－----－－-----－-－-----－----Ｄiｍf1AsＤｏublｅ,ｆ2AsDｏuble,f3ＡsＤoubleDimｎA(yù)sInteｇerｆ1＝1:f2=1n＝Val(Text1.Text)Printf1;ｆ2;Fｏri=3Ｔｏｎf3=f1+ｆ2f1=ｆ２f2=f3Pｒiｎtf３；IfiＭｏd５＝0ＴhｅｎPｒintNｅxti'-－--－-－-－-－－---------－------－------－----------－--－EｎｄSub15、請打開D:\dｊｋs\vbcp\20２3018文獻夾下的KS_1工程文獻,按規(guī)定完畢以下程序:通過InputBox函數(shù)從鍵盤上任意輸入1０個整數(shù),用冒泡法排序,然后按照由小到大的順序打印在窗體上。編寫程序，實現(xiàn)上述規(guī)定。保存的窗體名稱為ｋs_1.ｆｒm,工程文獻名為ｋｓ＿1.ｖbp。(10．0分)ＰrivａｔeＳubCｏmmand1＿Click(）＇作答'---－-------－--－-－----－------－-----－-----------－－--－-－Dima（１To1０)AsLongＦori=１To１0a(i)=InｐｕtBoｘ（＂請輸入第＂&i＆"個整數(shù):"）NexｔiFori=1Tｏ9Forj=1To10-ｉIfa(j)>a(j+１)Theｎt=a(j):a(j)=ａ(ｊ＋1)：a(ｊ+1)=tEndIｆNｅxtjＮｅxtiＦori=１To1０Prｉnｔａ（ｉ);Neｘti＇---------－---－－－-－----－-----－－-----－--－----－－-－-------ＥndSub１6、請打開Ｄ:＼dｊks＼ｖｂcp＼２０23０19文獻夾下的KＳ_1工程文獻，按規(guī)定完畢以下程序:小猴在一天摘了若干個桃子，當(dāng)天吃掉一半多一個；第二天接著吃了剩下的桃子的一半多一個；以后天天都吃尚存桃子的一半零一個,到第七天早上要吃時只剩下一個了。編