版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
國家二級(jí)VB機(jī)試(簡單應(yīng)用題)模擬試卷2(共9套)(共90題)國家二級(jí)VB機(jī)試(簡單應(yīng)用題)模擬試卷第1套一、簡單應(yīng)用題(本題共10題,每題1.0分,共10分。)1、(1)在考生文件夾中有一個(gè)工程文件sjt3.vbp,窗體上有2個(gè)命令按鈕、1.個(gè)水平滾動(dòng)條和1個(gè)計(jì)時(shí)器,其名稱分別為Command1、Command2、HScroll1和’Timed,如圖3-8(a)所示。程序運(yùn)行后,按鈕Command1、Command2的標(biāo)題分別立即顯示“開始”“停止”,同時(shí)把計(jì)時(shí)器的Intaval屬性設(shè)置為100,Enabled屬性設(shè)置為False。此時(shí)如果單擊“開始”按鈕,則該按鈕變?yōu)榻?,而?biāo)題則變?yōu)椤袄^續(xù)”,同時(shí)滾動(dòng)條的滾動(dòng)框自左至右移動(dòng),每次移動(dòng)10,如圖3-8(b)所示,移到右端時(shí),自動(dòng)從左端重新開始向右移動(dòng);如果單擊“停止”命令按鈕,則該按鈕變?yōu)榻?,“繼續(xù)”命令按鈕變?yōu)橛行В瑫r(shí)滾動(dòng)框停止移動(dòng);再次單擊“繼續(xù)”命令按鈕后,滾動(dòng)框繼續(xù)移動(dòng)。已經(jīng)給出了全部控件和程序,但程序不完整,請去掉程序中的注釋符,把程序中的“?”改為正確的內(nèi)容。注意:考生不得修改窗體文件中已經(jīng)存在的程序。最后程序按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp,窗體上有2個(gè)名稱分別為Text1、Text2的文本框,有1個(gè)名稱為Command1的命令按鈕。程序運(yùn)行時(shí),在Text1文本框中輸入一行單詞(只含有字母或空格),單擊命令按鈕后,將把每個(gè)單詞的第一個(gè)字母改為大寫(如果原來已是大寫字母則不變),并在Te,xt2文本框中顯示出來,如圖3-9所示。已經(jīng)給出了全部控件和程序,但程序不完整,請去掉程序中的注釋符,把程序中的“?”改為正確的內(nèi)容。注意:不得修改原有程序和控件的屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:第1小題【操作步驟】步驟1:打開考生文件夾中的本題工程文件sjs.vbp,在代碼編輯窗口中,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:Command1.Caption="繼續(xù)"Command1.Enabled=FalseCommand1.Enabled=TrueHScroll1.Value=HScroll1.Value+10HScroll1.Value=HScroll1.Min步驟2:按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1:打開考生文件夾中的本題工程文件sjt4.vbp,在代碼編輯窗口中,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:St1=Trim(Text1.Text)St2=St2&Mid(St1,n+1,1)Text2.Text=St2步驟2:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:暫無解析2、(1):考生文件火下有一個(gè)上程文件sjt3.vbp。程序的功能是:通過鍵盤向文本框中輸入數(shù)字,如果輸入的是非數(shù)字字符,則提示輸入錯(cuò)誤,且文本框中不顯示輸入的字符。單擊名稱為Command1、標(biāo)題為“添加”的命令按鈕,則將文本框中的數(shù)字添加到名稱為Cnmbbo1的組合框中。在給出的窗體文件中已經(jīng)添加了全部控件,但程序不完整。要求去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。注意:不能修改程序中的其他部分和其他控件的屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)上程文件sjt4.vbp。該程序的功能是計(jì)算M!+(M+1)!+(M+2)!+…+N!之和。窗體上有名稱分別為Text1、Text2的兩個(gè)文本框,用于接收輸入的M和N(要求M<N)。單擊名稱為Commmld1、標(biāo)題為“計(jì)算”的命令按鈕,計(jì)算M!+(M+1)!+(M+2)!+…+N!的值,并將計(jì)算結(jié)果顯示在標(biāo)簽1blResult中。在給出的窗體文件中已經(jīng)有了全部控件,但程序不完整,要求去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。注意:不能修改程序的其他部分和榨件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:(1)【操作步驟】步驟1:打開本題工程文件。步驟2:打開代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)改為正確的內(nèi)容。參考答案PrivateSubCommand1_C1ick()Combo1.AddTtemText1.Text’將Text1中的內(nèi)容加入Combol中Text1.Text=""’同時(shí)將Text1內(nèi)容清除EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii>57OrKeyAscii<48Then’數(shù)字的Ascii碼值下界MsgBox|"請輸入數(shù)字!"KeyAscii=0’清空EndIfEndSub步驟3:調(diào)試并運(yùn)行程序,關(guān)閉程序后按題口要求存盤。(2)【操作步驟】步驟1:打開本題工程文件。步驟2:打開代碼編輯窗口,去掉程序中的注釋符,將問號(hào)改為正確的內(nèi)容。參考答案PrivateSubCommandl_lick()DimmAsIntegerDimnAsIntegerDimsAsLongDimiAsIntegerm=Val(Text1.Text)’將文本框中的字符轉(zhuǎn)換成教值型n=Val(Text2.Text)s=0Fori=mTon-mt=f(i)’調(diào)用函數(shù)得到N的階乘s=s+tNextiblResult.Caption=SEndSubPrivateFunctionffByRefxAsInteger)AsLong’ByRef為傳址傳遞DimtAsLongt=1Fori=1Tox’實(shí)現(xiàn)對數(shù)值進(jìn)行階乘運(yùn)算t=t*iNextf=t’返回計(jì)算結(jié)果EndFunctiOn步驟3:調(diào)試并運(yùn)行程序,關(guān)閉程序后按題目要求存盤。知識(shí)點(diǎn)解析:暫無解析3、考生文件夾下存在一個(gè)數(shù)據(jù)庫文件“samp2.a(chǎn)ccdb”,里面已經(jīng)設(shè)計(jì)好三個(gè)關(guān)聯(lián)表對象“tStud”、“tCourse”、“tSeore”和一個(gè)空表“tTemp”。試按以下要求完成設(shè)計(jì)。(1)創(chuàng)建一個(gè)查詢,查找并輸出姓名是三個(gè)字的男女學(xué)生各自的人數(shù),字段顯示標(biāo)題為“性別”和“NUM”,所建查詢命名為“qT1”。注意:要求按照學(xué)號(hào)來統(tǒng)計(jì)入數(shù)。(2)創(chuàng)建一個(gè)查詢,查找“02”院系的選課學(xué)生信息,輸出其“姓名”、“課程名”和“成績”三個(gè)字段內(nèi)容,所建查詢命名為“qT2”。(3)創(chuàng)建一個(gè)查詢,查找還未被選修的課程的名稱,所建查詢命名為“qT3”。(4)創(chuàng)建追加查詢,將前5條記錄的學(xué)生信息追加到表“tTemp”的對應(yīng)字段中,所建杏詢命名為“qT4”。標(biāo)準(zhǔn)答案:(1)【操作步驟】步驟1:在“創(chuàng)建”選項(xiàng)卡下“查詢”組中,單擊“查詢設(shè)計(jì)”按鈕,在彈出的“顯示表”對話框中選擇“tStud”表,單擊“添加”按鈕,如圖3.203所示,關(guān)閉“顯示表”對話框。步驟2:雙擊添加“姓名”和“性別”字段,單擊“設(shè)計(jì)”選項(xiàng)卡下“顯示/隱藏”組中的“匯總”按鈕。步驟3:在“姓名”字段的“總計(jì)”行下拉列表中選擇“WHERE”,在“條件”行輸入“Len([姓名])="3"”,在“顯示”行去掉勾選。步驟4:在第三個(gè)字段位置中輸入“NUM:性別”,在下面的“總計(jì)”行下拉列表中選擇“計(jì)數(shù)”,如圖3.204所示。步驟5:將查詢保存為“qT1”,如圖3.205所示。關(guān)閉設(shè)計(jì)視圖。(2)【操作步驟】步驟1:在“創(chuàng)建”選項(xiàng)卡下的“查詢”組中單擊“查詢設(shè)計(jì)”按鈕,在彈出的“顯示表”對話框中雙擊添加表“tStud”、“tCourse”和“tScore”,關(guān)閉“顯示表”對話框。然后在“tStud”表中雙擊“姓名”字段,在“tCourse”表中雙擊“課程名”字段,在“tScore”表中雙擊“成績”字段,再在“tStud”表中雙擊“所屬院系”字段。步驟2:在“所屬院系”字段的“條件”行輸入“02”,并取消“顯爪”行中復(fù)選框的勾選,如圖3.206所示。步驟3:將查詢保存為“qT2”,關(guān)閉設(shè)計(jì)視圖。(3)【操作步驟】步驟1:在“創(chuàng)建”選項(xiàng)卡下的“查詢”組中單擊“查詢設(shè)計(jì)”按鈕,在“顯示表”對話框中雙擊“tCourse”表,關(guān)閉“顯示表”對話框。步驟2:雙擊“課程號(hào)”和“課程名”字段,添加到查詢字段。步驟3:在“課程號(hào)”字段的“條件”行中輸入“NotIn(selecttScore.課程號(hào)fromtScore)”,并取消“顯示”行中復(fù)選框的勾選。步驟4:單擊“設(shè)計(jì)”選項(xiàng)卡下“顯示/隱藏”組中的“匯總”按鈕,在兩個(gè)字段的“總計(jì)”行下拉列表中選擇“GroupBy”,如圖3.207所示。步驟5:將查詢保存為“qT3”,關(guān)閉設(shè)計(jì)視圖。(4)【操作步驟】步驟1:在“創(chuàng)建”選項(xiàng)卡下的“查詢”組中單擊“查詢設(shè)計(jì)”按鈕,在彈出的“顯示表”對話框中選擇“tStud”表,單擊“添加”按鈕,關(guān)閉“顯示表”對話框。步驟2:單擊“設(shè)計(jì)”選項(xiàng)卡下的“查詢類型”組中的“追加”按鈕,在彈出的“追加”對話框中輸入表名稱為“tTemp”,單擊“確定”按鈕,如圖3.208所示。步驟3:在“tStud”表中雙擊“學(xué)號(hào)”、“姓名”和“年齡”字段,再單擊“設(shè)計(jì)”選項(xiàng)卡下“結(jié)果”組中的“視圖”按鈕下的下拉菜單,選擇“SQL視圖”命令,將第二行的SQL語句修改為“SELECTTOP5tStud.學(xué)號(hào),tStud.姓名,tStud.年齡”,如圖3.209所示。步驟4:在“設(shè)計(jì)”選項(xiàng)中“結(jié)果”組中單擊“運(yùn)行”按鈕,在彈出的對話框中選擇“是”按鈕,最后以“qT4”保存查詢并關(guān)閉。知識(shí)點(diǎn)解析:暫無解析4、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frm,在窗體上有一個(gè)命令按鈕(名稱為Command1,標(biāo)題為“計(jì)算并輸出”)和兩個(gè)文本框(名稱分別為Text1和Text2),如圖3—90所示。程序運(yùn)行后,單擊命令按鈕,即可計(jì)算出數(shù)組Arr中10個(gè)數(shù)的正數(shù)之和pos與負(fù)數(shù)之和neg,并分別在兩個(gè)文本框中顯示出來。該程序不完整,請把它補(bǔ)充完整。要求:去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,使其能正確運(yùn)行,但不能修改程序中的其他部分,也不能修改控件的屬性。最后用原來的文件名保存工程文件和窗體文件。(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp,相應(yīng)的窗體文件為sjt4.frm。在窗體上有兩個(gè)命令按鈕,其名稱分別為Command1、Command2;一個(gè)標(biāo)簽,其名稱為Labe11;一個(gè)計(jì)時(shí)器,其名稱為Timer1,如圖3—91(a)所示。程序運(yùn)行后,如果單擊“開始”命令按鈕,則該按鈕變?yōu)榻?,而?biāo)題變?yōu)椤袄^續(xù)”,同時(shí)標(biāo)簽中的字體每隔100毫秒增大0.1倍(即變?yōu)樵瓉淼?.1倍),如圖3—91(b)所示,字體大小超過100后,自動(dòng)縮小為8:如果單擊“停止”命令按鈕,則該按鈕變?yōu)榻?,“繼續(xù)”命令按鈕變?yōu)橛行?,同時(shí)標(biāo)簽中的字體停止變化;再次單擊“繼續(xù)”命令按鈕后,標(biāo)簽中的字體繼續(xù)變化。這個(gè)程序不完整,請仔細(xì)閱讀已有內(nèi)容,并把它補(bǔ)充完整,使之能正確運(yùn)行。要求:去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,使其實(shí)現(xiàn)上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:(1)【操作步驟】步驟1:打開考生文件夾下的工程文件sjt3.vbp。步驟2:打開代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:IfArr(k)>0Thenpos=pos+Arr(k)neg=neg+Arr(k)步驟3:按要求將文件保存至考生文件夾中。(2)【操作步驟】步驟1:打開考生文件夾下的工程文件sjr4.vbp。步驟2:打開代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:Command1單擊事件中改錯(cuò)Timer1.Enabled=TrueCommand2單擊事件中改錯(cuò)Timer1.Enabled=FalseTimer1單擊事件中改錯(cuò)IfLabe11.FontSize<100ThenLabe11.FontSize=Labe11.FontSize*1.1步驟3:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:暫無解析5、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp,己給出了所有控件和部分程序。程序運(yùn)行時(shí),請按以下順序操作:1)單擊“讀入數(shù)據(jù)”按鈕,可把考生目錄下的文件in3.dat中的100個(gè)整數(shù)讀到數(shù)組a中;2)從名稱為List1的列表框中選中一項(xiàng)(如圖3—139所示)。3)單擊“計(jì)算”按鈕,則可按該選項(xiàng)的要求計(jì)算出結(jié)果并放到文本框中。4)單擊窗體右上角的關(guān)閉按鈕結(jié)束程序?!白x入數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出,請為“計(jì)算”按鈕編寫適當(dāng)?shù)氖录^程實(shí)現(xiàn)上述功能。注意:不得修改已經(jīng)存在的程序,在結(jié)束程序運(yùn)行之前,必須進(jìn)行一次計(jì)算,且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序,否則無成績。最后,程序按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp。窗體中橫線(橫坐標(biāo))的名稱為Line1,豎線(縱坐標(biāo))的名稱為Line2;五個(gè)不同顏色的矩形是一個(gè)形狀控件數(shù)組,名稱為Shape1,它們的Visible屬性都為False;從左到右的兩個(gè)按鈕的名稱分別為Command1、Command2;另有一個(gè)有五個(gè)元素的標(biāo)簽數(shù)組,名稱為Label1,其所有元素的Visible屬性都為False。如圖3—140(a)所示。程序運(yùn)行時(shí),單擊“輸入5個(gè)數(shù)據(jù)”按鈕,可輸入五個(gè)整數(shù)(最好在100~2000之間),并作為刻度值顯示在縱坐標(biāo)的左面;單擊“畫直方圖”按鈕,則按五個(gè)數(shù)的輸入順序顯示直方圖。例如若輸入的五個(gè)數(shù)是1200、500、800、1900、1500,則結(jié)果如圖3—140(b)所示。文件中已經(jīng)給出了所有控件和程序,但程序不完整,請去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。注意:不能修改程序的其他部分和各控件的屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:第1小題步驟1:打開考生文件夾中的本題工程文件sjt3.vbp,雙擊窗體中的“計(jì)算”命令按鈕,在打開的代碼編輯窗口中編寫其單擊事件過程。參考代碼:PrivateSubCommand2_Click()DimkAsInteger,i1,i2AsIntegeri1=a(1):i2=a(1)Fork=2To100Ifa(k)>i1Theni1=a(k)EndIfIfa(k)<i2Theni2=a(k)EndIfNextkIfList1.Selected(0)=TrueThenText1.Text=i1-i2EndIfIfList1.Selected(1)=TrueThenText1.Text=i1+i2EndIfIfList1.Selected(2)=TrueThenText1.Text=i1*i2EndIf步驟2:按<F5>鍵運(yùn)行程序,單擊“讀入數(shù)據(jù)”按鈕,然后在列表框中選擇一項(xiàng),并單擊“計(jì)算”按鈕,統(tǒng)計(jì)出結(jié)果。步驟3:單擊窗體右上角的關(guān)閉按鈕以結(jié)束程序。步驟4:按要求將文件保存至考生文件夾中。第2小題步驟1:打開考生文件夾中的本題工程文件sjt4.vbp,在代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:Fork=1To5Label1(k-1).Visible=TrueShape1(k-1).Height=s(k)a=Line1.Y1步驟2:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:第1小題:本題在命令按鈕的單擊事件中先利用循環(huán)統(tǒng)計(jì)字符串中大寫字母和小寫字母的值。首先假設(shè)數(shù)組中的第一個(gè)元素既為最大值也為最小值,然后依次從第二個(gè)元素開始向后循環(huán)。對每一個(gè)數(shù)組元素都加以判斷,若其比最大值還大,則其成為新的最大值;若其比最小值還小,則其成為新的最小值。這樣循環(huán)結(jié)束后可以得到數(shù)組的最大值和最小值。接下來判斷列表框中選中的是哪一項(xiàng)然后執(zhí)行對應(yīng)計(jì)算,并輸出結(jié)果。第2小題:“輸入5個(gè)數(shù)據(jù)”按鈕的單擊事件過程中,需要連續(xù)輸入5個(gè)數(shù)據(jù)并且存放到數(shù)組S中,因此k應(yīng)該由1循環(huán)到5,在循環(huán)中將輸入的數(shù)據(jù)保存到數(shù)組是中并且將其賦值給五個(gè)標(biāo)簽組成的控件數(shù)組,隨后將標(biāo)簽的Visible屬性設(shè)置為True以便顯示出來?!爱嬛狈綀D”按鈕的單擊事件過程中,源程序用For循環(huán)來依次計(jì)算每一個(gè)形狀控件的高度,該高度應(yīng)該為對應(yīng)數(shù)組元素的值;然后計(jì)算該直方圖的Top屬性值(應(yīng)為水平直線的Y1或Y2屬性值減去直方圖的高度),最后顯示該直方圖(通過設(shè)置其Visible實(shí)現(xiàn))。6、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp,其窗體上有一個(gè)名稱為Label1的控件數(shù)組,含三個(gè)標(biāo)簽,標(biāo)題分別是“開始時(shí)間”、“結(jié)束時(shí)間”和“通話費(fèi)用”;有一個(gè)名稱為Text1的控件數(shù)組,含三個(gè)初始值為空的文本框;此外還有兩個(gè)名稱分別為Cmd1和Cmd2的命令按鈕,標(biāo)題分別是“通話開始”和“通話結(jié)束”。其中通過屬性窗口對“通話結(jié)束”命令按鈕的初始狀態(tài)設(shè)置為禁用,如圖1-71所示。該程序的功能是計(jì)算公用電話計(jì)時(shí)收費(fèi)。計(jì)時(shí)收費(fèi)標(biāo)準(zhǔn)為:通話時(shí)間在3分鐘以內(nèi)時(shí),收費(fèi)0.5元;3分鐘以上時(shí),每超過1分鐘加收0.15元,不足1分鐘按1分鐘計(jì)算。程序執(zhí)行的操作如下:①如果單擊“通話開始”按鈕,則在“開始時(shí)間”右側(cè)的文本框中顯示開始時(shí)間,且“通話結(jié)束”命令按鈕變?yōu)榭捎脿顟B(tài),“通話開始”命令按鈕不可用;②如果單擊“通話結(jié)束”按鈕,則“結(jié)束時(shí)間”右側(cè)的文本框中顯示結(jié)束時(shí)間,同時(shí)計(jì)算通話費(fèi)用,并將其顯示在“通話費(fèi)用”右側(cè)的文本框中,“通話開始”命令按鈕變?yōu)榭捎脿顟B(tài),“通話結(jié)束”命令按鈕不可用。在窗體文件中已經(jīng)給出了全部控件(如圖1-71所示)和程序,但程序不完整,要求去掉程序中的注釋符,把?改為正確的內(nèi)容,以實(shí)現(xiàn)上述功能。注意:不得修改已經(jīng)存在的內(nèi)容和控件屬性,最后將修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp,文件in4.txt中有5組數(shù)據(jù),每組10個(gè),依次代表語文、英語、數(shù)學(xué)、物理、化學(xué)這5門課程10個(gè)人的成績。程序運(yùn)行時(shí),單擊“讀入數(shù)據(jù)”按鈕,可從文件in4.txt中讀入數(shù)據(jù)放到數(shù)組a中。單擊“計(jì)算”按鈕,則計(jì)算5門課程的平均分(平均分取整),并依次放入Text1文本框數(shù)組中。單擊“顯示圖形”按鈕,則顯示平均分的直方圖,如圖1-72所示。窗體文件中已經(jīng)有了全部控件,但程序不完整,要求去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。注意:不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:第1小題【操作步驟】步驟1:打開考生文件下的本題工程文件sjt3.vbp,在代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:Text1(0).Text=Str(Time())s=s+(m-3)*0.15Cmd1.Enabled=TrueCmd2.Enabled=False步驟2:按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1:打開考生文件下的本題工程文件sjt4.vbp,在代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:OpenApp.Path&"\in4.txt"ForInputAs#1s(i)=s(i)+a(i,j)s(i)=CInt(s(i)/10)Shape1(k-1).Top=m-Shape1(k–1)._HeightShape1(k-1).Visible=True步驟2:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:暫無解析7、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp,請?jiān)诖绑w上畫兩個(gè)框架,其名稱分別為F1和F2,標(biāo)題分別為“交通工具”和“到達(dá)目標(biāo)”。在F1中畫兩個(gè)單選按鈕,名稱分別為Op1和Op2,標(biāo)題分別為“飛機(jī)”和“火車”。在F2中畫兩個(gè)單選按鈕,名稱分別為Op3和Op4,標(biāo)題分別為“廣州”和“昆明”。畫一個(gè)稱為Lab1的標(biāo)簽,寬度為3000,高度為375。編寫適當(dāng)事件過程。程序運(yùn)行后,選擇不同單選按鈕并單擊窗體后在標(biāo)簽上顯示的結(jié)果見表1-4。程序的運(yùn)行情況如圖1-123所示。存盤時(shí),工程文件名為sjt3.vbp,窗體文件名為sjt3.frm。注意:考生不得修改窗體文件中已經(jīng)存在的程序,在結(jié)束程序運(yùn)行之前,必須至少進(jìn)行上面的一種操作。退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕。(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp,請?jiān)诖绑w上畫兩個(gè)文本框,其名稱分別為Text1、Text2,文本框的內(nèi)容分別設(shè)置為“計(jì)算機(jī)”、“等級(jí)考試”。然后畫一個(gè)標(biāo)簽,其名稱為Lab1,高度為375,寬度為2000。再畫兩個(gè)單選按鈕,名稱分別為Op1和Op2,標(biāo)題分別為“交換”和“連接”,最后再畫一個(gè)命令按鈕,其名稱為C1,標(biāo)題為“確定”,編寫適當(dāng)?shù)氖录绦?。程序運(yùn)行后,如果選中“交換”單選按鈕并單擊“確定”按鈕,則Text1文本框中的內(nèi)容與Text2文本框中的內(nèi)容進(jìn)行交換,并在標(biāo)簽處顯示“交換成功”(如圖1-124所示);如果選中“連接”單選按鈕并單擊“確定”按鈕后,則把交換后的Text1和Text2的內(nèi)容連接起來,并在標(biāo)簽處顯示連接后的內(nèi)容。存盤時(shí),工程文件名為sjt4.vbp,窗體文件名為sjt4.frm。注意:不得修改已經(jīng)給出的程序。在結(jié)束程序運(yùn)行之前,必須選中一個(gè)單選按鈕,并單擊“確定”按鈕。退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕,否則無成績。標(biāo)準(zhǔn)答案:第1小題【操作步驟】步驟1:打開考生文件夾下的本題工程文件sjt3.vbp。步驟2:在窗體Form1中加入兩個(gè)框架和一個(gè)標(biāo)簽以及一個(gè)命令按鈕,然后在每個(gè)框架中各加入兩個(gè)單選按鈕,分別設(shè)置它們的相關(guān)屬性,其屬性及值如表2-44所示。步驟3:打開代碼編輯窗口輸入如下代碼:參考代碼:PrivateSubForm1_Click()IfOp1AndOp3ThenLab1.Caption="坐飛機(jī)去廣州"ElseIfOp1AndOp4ThenLab1.Caption="坐飛機(jī)去昆明"ElseIfOp2AndOp3ThenLab1.Caption="坐火車去廣州"ElseIfOp2AndOp4ThenLab1.Caption="坐火車去昆明"EndIfEndSub步驟4:按要求將文件保存至考生文件夾中。步驟5:按<F5>鍵運(yùn)行程序,選擇一種交通工具和一個(gè)到達(dá)目標(biāo),并單擊命令按鈕,最后單擊窗體右上角的關(guān)閉按鈕退出程序。第2小題【操作步驟】步驟1:打開考生文件夾下的本題工程文件sjt4.vbp。步驟2:在窗體Form1中加入兩個(gè)文本框、一個(gè)標(biāo)簽和兩個(gè)單選按鈕,分別設(shè)置它們的相關(guān)屬性,其屬性及值如表2-45所示。步驟3:打開代碼編輯窗口輸入如下代碼:參考代碼:PrivateSubC1_Click()IfOp1ThenLab1.Caption=Text1.TextText1.Text=Text2.TextText2.Text=Lab1.CaptionLab1.Caption="交換成功"ElseIfOp2ThenLab1.Caption=Text1.Text&Text2.TextEndIfEndSub步驟4:按要求將文件保存至考生文件夾中。步驟5:按<F5>鍵運(yùn)行程序,選擇一個(gè)單選按鈕,并單擊命令按鈕,最后單擊窗體右上角的關(guān)閉按鈕退出程序。知識(shí)點(diǎn)解析:暫無解析8、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp,含有名稱分別為Form1、Form2的兩個(gè)窗體。其中Form1上有兩個(gè)控件(圖像框和計(jì)時(shí)器)和一個(gè)菜單項(xiàng)“操作”,含有三個(gè)菜單命令,如圖1-186(a)所示。Form2上有一個(gè)名稱為Command1、標(biāo)題為“返回”的命令按鈕,如圖1-186(b)所示。要求當(dāng)單擊“窗體2”菜單命令時(shí),隱藏Form1,顯示Form2。單擊“動(dòng)畫”菜單命令時(shí),使小汽車開始移動(dòng),一旦移到窗口的右邊界時(shí)自動(dòng)跳到窗體的左邊界重新移動(dòng)。單擊“退出”菜單命令時(shí),結(jié)束程序運(yùn)行。請去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。注意:考生不得修改窗體文件中已經(jīng)存在的程序。最后程序按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp。其窗體上已有部分控件,請按照如圖1-187所示添加框架和單選按鈕。要求:畫兩個(gè)框架,名稱分別為Frame1、Frame2,在Frame1中添加一個(gè)名為Option1的單選按鈕數(shù)組,含兩個(gè)單選鈕,標(biāo)題分別為“古典音樂”、“流行音樂”,在名稱為Frame2中添加兩個(gè)單選按鈕,名稱分別為Option2、Option3,標(biāo)題分別為“籃球”、“羽毛球”。剛運(yùn)行程序時(shí),“古典音樂”和“籃球”單選按鈕為選中狀態(tài)。單擊“選擇”按鈕,將把選中的單選按鈕的標(biāo)題顯示在標(biāo)簽Label2中,如圖1-187所示。如果“音樂”或“體育”未被選中,相應(yīng)的單選按鈕不可選。要求:按照題目要求添加控件,去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。注意:不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:第1小題【操作步驟】步驟1:打開考生文件中的本題工程文件sjt3.vbp,打開代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:SelectCaseIndexTimer1.Enabled=TrueIfPicture1.Left+Picture1.Width>=WidthThenPicture1.Left=0步驟2:按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1:打開考生文件夾下的本題工程文件sjt4.vbp,在窗體上畫兩個(gè)框架、一個(gè)含兩個(gè)元素的單選按鈕數(shù)組,兩個(gè)單選按鈕,如表2-88設(shè)置它們的屬性。步驟2:打開代碼編輯窗口,修改“選擇”按鈕的Click事件過程,代碼如下。參考代碼:IfOption1(0).Value=TrueThenIfOption2=TrueThenLabel2.Caption=s步驟3:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:暫無解析9、在考生文件夾下有一個(gè)工程文件sjt4.vbp,相應(yīng)的窗體文件為sjt4.frm。在窗體上有一個(gè)命令按鈕,其名稱為Command1,標(biāo)題為“計(jì)算”。程序運(yùn)行后,如果單擊命令按鈕,程序?qū)⒏鶕?jù)下面的公式計(jì)算π的值:π/4=1-1/3+1/5-1/7+……,所提供的窗體文件已給出了命令按鈕的事件過程,程序運(yùn)行結(jié)果如圖3-4所示。該程序不完整,請把它補(bǔ)充完整。要求:去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,使其能正確運(yùn)行,但不能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。標(biāo)準(zhǔn)答案:審題分析本題是一個(gè)數(shù)列求累加和的問題。這個(gè)數(shù)列的特點(diǎn)是,每一項(xiàng)的分子都是1,分母都是前一項(xiàng)分母加2,符號(hào)都是前一項(xiàng)符號(hào)的相反數(shù)。因此,這個(gè)數(shù)列累加求和問題使用循環(huán)來完成,在循環(huán)中令分母加2,符號(hào)取反即得到下一項(xiàng)。循環(huán)結(jié)束后需要將累加和乘4才能得到所求的圓周率的值。操作步驟步驟1:打開考生文件夾中的本題工程文件sjt4.vbp,在代碼編輯窗口中,去掉程序中的注釋符“′”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:Result=Result+Sign*1/iSign=-SignText1.Text=Result*4步驟2:按要求將文件保存至考生文件夾中??键c(diǎn)鏈接For循環(huán)結(jié)構(gòu)。知識(shí)點(diǎn)解析:暫無解析10、在考生文件夾下有一個(gè)工程文件sjt3.vbp,窗體上已經(jīng)有兩個(gè)文本框,名稱分別為Text1、Text2;一個(gè)命令按鈕,名稱為C1,標(biāo)題為“確定”;請畫兩個(gè)單選按鈕,名稱分別為Op1、Op2,標(biāo)題分別為“男生”、“女生”:再畫兩個(gè)復(fù)選框,名稱分別為Ch1、Ch2,標(biāo)題分別為“體育”、“音樂”。請編寫適當(dāng)?shù)氖录^程,使得在運(yùn)行時(shí),單擊“確定”按鈕后實(shí)現(xiàn)下面的操作:①根據(jù)選中的單選按鈕,在Text1中顯示“我是男生”或“我是女生”。②根據(jù)選中的復(fù)選框,在Text2中顯示“我的愛好是體育”、“我的愛好是音樂”或“我的愛好是體育音樂”,如圖3-65所示。注意:不得修改已經(jīng)給出的程序和已有控件的屬性。在結(jié)束程序運(yùn)行之前,必須選中一個(gè)單選按鈕和至少一個(gè)復(fù)選框,并單擊“確定”按鈕。必須使用窗體右上角的關(guān)閉按鈕結(jié)束程序,否則無成績。標(biāo)準(zhǔn)答案:審題分析根據(jù)題目要求,在本題的程序設(shè)計(jì)上.首先以O(shè)p1是否選中作為If…Then…Else語句的條件,由此分出兩種情況:Op1被選中或Op2被選中。在條件為真(即Op1被選中)時(shí)文本框1中顯示“我是男生”,否則顯示“我是女生”;接下來分別判斷兩個(gè)復(fù)選框是否選中并相應(yīng)在文本框2上顯示內(nèi)容。以上判斷和顯示操作均在C1的Click事件中完成。操作步驟步驟1:打開考生文件夾下的工程文件sjt3.vbp。步驟2:在窗體Form1中加入兩個(gè)單選按鈕和兩個(gè)復(fù)選框,分別設(shè)置它們的相關(guān)屬性,屬性及其值如表4-38所示。步驟3:打開代碼編輯窗口輸入如下代碼:參考代碼:PrivateSubC1_Click()DimaAsStrinaa="我是"IfOp1.ValueThenText1.Text=a&Op1.CaptionElseText1.Text=a&Op2.CaptionEndIfa="我的愛好是"IfCh1.Value=1ThenText2.Text=a&Ch1.CaDtiona=Text2.TextEndIfIfCh2.Value=1ThenText2.Text=a&Ch2.CaDtionEndIfEndSub步驟4:按鍵運(yùn)行程序,先選中選中一個(gè)單選按鈕和至少一個(gè)復(fù)選框,并單擊“確定"按鈕,然后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。步驟5:按要求將文件保存至考生文件夾中??键c(diǎn)鏈接選擇控件、If選擇結(jié)構(gòu)。知識(shí)點(diǎn)解析:暫無解析國家二級(jí)VB機(jī)試(簡單應(yīng)用題)模擬試卷第2套一、簡單應(yīng)用題(本題共10題,每題1.0分,共10分。)1、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp,窗體上有1個(gè)標(biāo)題為“計(jì)算”的命令按鈕,1個(gè)標(biāo)題為“1!+2!+…+10!=”的標(biāo)簽。請畫1個(gè)名稱為Text1,初始內(nèi)容為空的文本框。效果如圖3-34所示。程序功能:單擊“計(jì)算”命令按鈕,則計(jì)算“1!+2!+…+10!”的值,并將結(jié)果顯示在Text1文本框中。請將“計(jì)算”命令按鈕的Click事件過程中的注釋符去掉,把“?”改為正確的內(nèi)容,以實(shí)現(xiàn)上述程序功能。注意:考生不得修改窗體文件中已經(jīng)存在的控件和程序,最后,程序按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp,窗體上有1個(gè)名稱為標(biāo)題為“運(yùn)行”的命令按鈕。請畫2個(gè)名稱分別為Text1和Text2,初始內(nèi)容都為空的文本框,再畫2個(gè)名稱分別為Label1、Label2,標(biāo)題分別是“最大數(shù)”和“最大數(shù)位置”的標(biāo)答。效果如圖3-35所示。程序功能:單擊“運(yùn)行”按鈕,則產(chǎn)生50個(gè)不重復(fù)的介于0和100之間(含0和100)的隨機(jī)數(shù),且以每行10個(gè)數(shù)的形式顯示在窗體上;最后將這些隨機(jī)數(shù)中的最大數(shù)和最大數(shù)所處的位置顯示在Text1和Text2中。如圖3-35所示為某一次的運(yùn)行效果。請將“運(yùn)行”命令按鈕的Click事件過程中的注釋符去掉,把“?”改為正確內(nèi)容,以實(shí)現(xiàn)上述程序功能。注意:考生不得修改窗體文件中已經(jīng)存在的控件和程序,最后,程序按原文件名存盤。標(biāo)準(zhǔn)答案:第1小題【操作步驟】步驟1:打開考生文件夾中的本題工程文件sjs.vbp,在窗體上添加一個(gè)文本框,按照如下表4-22設(shè)置屬性。步驟3:按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1:打開考生文件夾中的本題工程文件sjt4.vbp,在窗體上加入兩個(gè)文本框和兩個(gè)標(biāo)簽,按照表4-23設(shè)置相關(guān)屬性。步驟2:在代碼編輯窗口中,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:j=1j=j(luò)+1arr(j)=xpos=i-1步驟3:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:暫無解析2、在考生文件夾下有一個(gè)工程文件sjt4.vbp,含有Form1和Form2兩個(gè)窗體,其中Form1為啟動(dòng)窗體,窗體上的控件如圖1所示。程序運(yùn)行后,在Form1窗體的文本框中輸入有關(guān)信息(如“密碼”文本框中顯示“*”字符),然后單擊“提交”按鈕,彈出“確認(rèn)”對話框(F’orm2窗體),并在:Form2中顯示Form1中輸入的信息,如圖2所示。單擊“確認(rèn)”按鈕,程序結(jié)束,單擊“重輸”按鈕,F(xiàn)orm2消失,回到Form1窗體。在給出的窗體文件中已經(jīng)給出了程序,但不完整。要求:①將Form1的標(biāo)題改為“注冊”,將Form2的標(biāo)題改為“確認(rèn)”;②設(shè)置適當(dāng)?shù)膶傩?,使Form2標(biāo)題欄右上角的所有按鈕消失(如圖2所示);③去掉程序中的注釋符,把其中的?改為正確的內(nèi)容。注意:不能修改程序中的其他部分,標(biāo)題等屬性的修改只能在屬性窗口中進(jìn)行。最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:[操作步驟]步驟1:打開本題工程文件,按照題目要求設(shè)置屬性,如圖3.26所示。步驟2:打開代碼編輯窗口,去掉程序中的注釋符,將問號(hào)改為正確的內(nèi)容,并在指定位置編寫代碼。參考代碼(畫下劃線部分是需填入的內(nèi)容)PrivateSubC1_Click()DimkAsIntegerForm2.Show’當(dāng)單擊"提交"按鈕時(shí),則顯示Form2Form2.PrintForm/.L1.Caption;Form1.Text1Form2.PrintForm1.L2.Caption;Form1.Text2Form2.PrintForm1.L3.Caption;Form1.Text3Form2.PrintForm1.Frame1.Caption;“’”;’取框架Frame1的標(biāo)題名稱"性別"Fork=0To1IfForm1.Qp1(k).ValueThen’通過下一條語句確定KForm2.PrintForm1.Op1(k).CaptionEndIfNextkEndSubPrivateSubFormLoad()’將PasswordChar屬性設(shè)為*則密碼輸入后顯示*Text2.PasswordChar="*"EndSub’需考生編寫的Form2中的代碼PrivateSubC1Click()EndEndSubPrivateSubC2Click()UnloadForm2EndSub步驟3:調(diào)試并運(yùn)行程序,關(guān)閉程序后按題目要求存盤。知識(shí)點(diǎn)解析:暫無解析3、在考生文件夾下有一個(gè)工程文件sjt3.vbp。窗體上有個(gè)鐘表圖案,其中代表指針的直線的名稱是Line1,還有一個(gè)名稱為Label1的標(biāo)簽和其他一些控件(如圖1所示)。在程序運(yùn)行時(shí),若用鼠標(biāo)右鍵單擊圓的邊線,則指針恢復(fù)到起始位置(如圖1所示);若用鼠標(biāo)左鍵單擊圓的邊線,則指針指向鼠標(biāo)單擊的位置(如圖2所示);若鼠標(biāo)左鍵或右鍵單擊其他位置,則在標(biāo)簽上輸出“鼠標(biāo)位置不對”。文件中已經(jīng)給出了所有控件和程序,但程序不完整,請去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。程序中的oncircle函數(shù)的作用是判斷鼠標(biāo)單擊的位置是否在圓的邊線上(判斷結(jié)果略有誤差),是則返回True,否則返回False。符號(hào)常量x0、y0是圓心距窗體左上角的距離;符號(hào)常量radius是圓的半徑。注意:不能修改程序中的其他部分和各控件的屬性。最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:[操作步驟]步驟1:打開本題工程文件。步驟2:打開代碼編輯窗口,在指定位置編寫如下代碼。參考代碼Consty0&=1110,x0&=1100,radius&=750PrivateFunctiononcircle(XAsSingle,YAsSingle)AsBooleanprecision=55000TfAbs((X-x0)*(X-x0)+(y0-Y)*(y0-Y)-radius*radius)<precisionThen’判斷鼠標(biāo)單擊的位置是否在圓邊上oncircle=TrueElseoncircle=FalseEndIfEndFunctionPrivateSubForm_MouseDown(ButtonAsTnteget,ShiftasInteger,XAsSingle,YAsSingle)ConstLEFT_BUTTON=1Ifoncircle(X,Y)Then’調(diào)用oncircle函數(shù)判斷鼠標(biāo)單擊的位置Line1.X1=x0Line1.Y1=y0IfButton=LEFT_BUTTONThenLine1.X2=XLine1.Y2=Y’直線另一端的y坐標(biāo)為鼠標(biāo)當(dāng)前的y值ElseLine1.X2=Line1.X1’直線回到初始位置x不變Line1.Y2=y0-radius&’y2為原先坐標(biāo)減去半徑的值EndTfLabel1.Caption=""Else’否則Label1顯示位置不對Label1="鼠標(biāo)位置不對"EndIfEndSub程序結(jié)束步驟3:調(diào)試并運(yùn)行程序,關(guān)閉程序后按題目要求存盤。知識(shí)點(diǎn)解析:暫無解析4、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp,其窗體上有一個(gè)列表框和一個(gè)標(biāo)題為“選擇”的命令按鈕,且列表框中已有若干列表項(xiàng)。程序的功能是:當(dāng)單擊”選擇”按鈕時(shí),如果列表框中沒有列表項(xiàng),則程序不做任何操作。否則,判斷列表框中是否有列表項(xiàng)被選中,如果沒有,則自動(dòng)選中首個(gè)列表項(xiàng)(呈藍(lán)色光條顯示);如果有,且不是最后一個(gè)列表項(xiàng),則自動(dòng)選中后一個(gè)列表項(xiàng),如果選中的是最末一項(xiàng),則自動(dòng)選中首個(gè)列表項(xiàng)。運(yùn)行時(shí)窗體界面如圖所示。程序已經(jīng)給出,但不完整,請將其中的注釋符去掉,把?改為正確的內(nèi)容,以實(shí)現(xiàn)上述程序功能。注意:考生不得修改窗體文件中已經(jīng)存在的控件和程序代碼,最后程序按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp,其窗體上有4個(gè)標(biāo)簽、1個(gè)文本框、1個(gè)計(jì)時(shí)器和1個(gè)標(biāo)題為“開始”的命令按鈕。程序的功能是:用戶在文本框中輸入一個(gè)計(jì)時(shí)時(shí)間(單位:分),并單擊“開始”按鈕后,系統(tǒng)將開始倒計(jì)時(shí),每隔1秒顯示1次剩余時(shí)間,當(dāng)?shù)竭_(dá)計(jì)時(shí)長度時(shí),系統(tǒng)倒計(jì)時(shí)結(jié)束,并彈出信息框顯示“時(shí)間到!”,程序運(yùn)行界面如圖所示。程序已經(jīng)給出,但不完整,請將其中的注釋符去掉,把?改為正確的內(nèi)容,以實(shí)現(xiàn)上述程序功能。注意:考生不得修改窗體文件中已經(jīng)存在的控件和程序代碼,最后程序按原文件名存盤。標(biāo)準(zhǔn)答案:(1)【操作步驟】步驟1:打開本題項(xiàng)目工程。步驟2:打開代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)改為正確的內(nèi)容。參考答案PrivateSubCommand1_Click()IfList1.ListCOLunt=0ThenExitSubEndIfIfList1.ListIndex=-1ThenList1.ListIndex=0ElseIfList1.List1ndex<List1.ListCount-ThenList1.ListIndex=List1.ListIndex+1ElseList1.ListIndex=0EndIfEndIfEndSub步驟3:調(diào)試并運(yùn)行程序,關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1:打開本題項(xiàng)目工程。步驟2:打開代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)改為正確的內(nèi)容。參考答案DimtAsIntegerPrivateSubCommand1_Click()t=60*Val(Text1.Text)Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()Dimm,sAsIntegerIft<=0ThenTimer1.Enabled=FalseMsgBox"時(shí)間到!"Elset=t-1m=Int(t/60)s=tMod60Labe14.Caption="剩余"&m&"分"&s&"秒"EndIfEndSub步驟3:調(diào)試并運(yùn)行程序,關(guān)閉程序后按題目要求存盤。知識(shí)點(diǎn)解析:暫無解析5、(1)在考生文件夾下有一個(gè)工程文件vbsj3.vbp,相應(yīng)的窗體文件為vbsj3.frm,在窗體上有一個(gè)標(biāo)題為“計(jì)算”的命令按鈕和一個(gè)文本框。程序運(yùn)行后,單擊命令按鈕,即可計(jì)算出數(shù)組arr中每個(gè)元素與其下標(biāo)相除所得的和,并在文本框中顯示出來,程序的運(yùn)行情況如圖3—144所示。在窗體的代碼窗口中,已給出了部分程序,其中計(jì)算數(shù)組arr中每個(gè)元素與其下標(biāo)相除所得的和的操作在通用過程Fun中實(shí)現(xiàn),請編寫該過程的代碼。要求:請勿改動(dòng)程序中的其他部分,只在FunctionFun()和EndFunction之間填入你編寫的若干語句并運(yùn)行程序。在結(jié)束程序運(yùn)行之前,必須至少正確運(yùn)行一次程序,將結(jié)果顯示在文本框中,否則無成績。最后把修改后的文件按原文件名存盤。說明:數(shù)組arr中共有40個(gè)元素,“數(shù)組arr中每個(gè)元素與其下標(biāo)相除所得的和”,是指:arr(1)/1+arr(2)/2+arr(3)/3+…+arr(40)/40(2)在考生文件夾下有一個(gè)工程文件vbsi4.vbp。程序運(yùn)行后,如果單擊“開始”按鈕,則圖片自左向右移動(dòng),同時(shí)滾動(dòng)條的滑塊隨之移動(dòng),每0.5秒移動(dòng)一次。當(dāng)圖片完全移出窗體的右邊界時(shí),立即再從窗體的左邊界開始重新移動(dòng),若單擊“停止”按鈕,則圖片停止移動(dòng),如圖3—145所示。在窗體文件中已經(jīng)給出了全部控件,但程序不完整。要求:請去掉程序中的注釋符,把程序中的“?”改為正確的內(nèi)容,使其實(shí)現(xiàn)上述功能,但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:(1)【操作步驟】步驟1:打開考生文件夾下的工程文件vbsj3.vbp。步驟2:進(jìn)入代碼編輯窗口,在FunctionFun()和EndFunction之間輸入以下代碼。參考代碼:FunctionFun(a()AsSingle)AsSingleDimsumAsSingleDimiAsIntegerFori=LBound(a)ToUBound(a)sum=sum+a(i)/iNextFun=SumEndFunction步驟3:按要求將文件保存至考生文件夾中。(2)【操作步驟】步驟1:打開考生文件夾下的工程文件vbsj4.vbp。步驟2:進(jìn)入代碼編輯窗口,去掉程序中的注釋符“’”.將問號(hào)“?”改為正確的內(nèi)容。參考代碼:Tmr1.Enabled=FalseTmr1.Interval=500IfPic1.Left>Me.WidthThenPic1.Left=0步驟3:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:暫無解析6、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp。程序的功能是通過鍵盤向文本框中輸入大、小寫字母及數(shù)字。單擊“統(tǒng)計(jì)”按鈕,分別統(tǒng)計(jì)輸入字符串中大寫字母、小寫字母及數(shù)字字符的個(gè)數(shù),并將統(tǒng)計(jì)結(jié)果分別顯示在標(biāo)簽控件數(shù)組x中,如圖3—167所示。在給出的窗體文件中已經(jīng)添加了全部控件,但程序不完整。要求:去掉程序中的注釋符,把程序中的“?”改為正確的內(nèi)容。注意:不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。(2)考生文件夾下的工程文件sjt4.vbp中有兩個(gè)名稱分別為List1、List2的列表框控件,兩個(gè)名稱分別為Command1、Command2,標(biāo)題分別為“>>”、“<<”的命令按鈕。請?jiān)贚ist1中添加“文本框”、“標(biāo)簽”、“列表框”、“單選鈕”等表項(xiàng),如圖3—168所示。程序的功能是:單擊“>>”按鈕,將List1中的表項(xiàng)添加到List2中,同時(shí)將List1清空;單擊“<<”按鈕,將List2中的表項(xiàng)添加到List1中,同時(shí)將List2清空。程序已給出,但是不完整。請將程序中的注釋符去掉,把“?”改為正確的內(nèi)容,實(shí)現(xiàn)上述功能。注意:不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:(1)【操作步驟】步驟1:打開考生文件夾中的本題工程文件sjt3.vbp,在代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:n=Len(Text1.Text)b=Asc(Mid(s,i,1))SelectCasebFori=0To2x(i)=a(i)步驟2:按要求將文件保存至考生文件夾中。(2)【操作步驟】步驟1:打開考生文件夾中的本題工程文件sjt4.vbp,通過List1列表框的List屬性添加四個(gè)項(xiàng)目:文本框、標(biāo)簽、命令按鈕、單選按鈕。步驟2:在代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:Fori=0ToLa.ListCount-1Lb.AddItemLa.List(i)NextLa.Clear步驟3:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:暫無解析7、(1)在考生文件夾中有工程文件sjt3.vbp,其中的窗體如圖3-162所示。程序剛運(yùn)行時(shí),會(huì)生成一個(gè)有10個(gè)元素的整型數(shù)組。若選中“查找最大值”(或“查找最小值”)單選按鈕,再單擊“查找”按鈕,則找出數(shù)組中的最大值(或最小值),并顯示在標(biāo)簽Label2中。請去掉程序中的注釋符,把程序中的“?”改為正確的內(nèi)容。注意:考生不得修改窗體文件中已經(jīng)存在的程序。最后把修改后的文件按原文件名存盤。(2)在考生文件夾中有一個(gè)工程文件sjt4.vbp。窗體上已有控件,如圖3-163所示。請?jiān)趯傩源翱谥袑ist1設(shè)置為可以多項(xiàng)選擇(允許使用Shift鍵或Ctrl鍵進(jìn)行選擇)列表項(xiàng)。要求:雙擊List1中的某一項(xiàng)時(shí),該項(xiàng)目被添加到List2中,同時(shí)在List1中清除該項(xiàng)目。若單擊“>>”按鈕,List1中所有的項(xiàng)目顯示在List2中(List2中已有項(xiàng)目不變),List1中的內(nèi)容不變。要求:按照題目要求設(shè)置控件屬性,去掉程序中的注釋符,把程序中的“?”改為正確的內(nèi)容。注意:不得修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:第1小題【操作步驟】步驟1:打開考生文件夾下的工程文件sjt3.vbp,在代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:IfOption1.Value=TrueThenIfa(i)>=xThenx=a(i)EndIfElseIfa(i)<yTheny=a(i)EndIf步驟2:按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1:打開考生文件夾中的本題工程文件sjt4.vbp,代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:L2.AddItemL1.List(L1.ListIndex)L1.RemoveItemL1.ListIndexFori=0ToLiSt1.LiStCount-1CallMoveItem(List1,List2)步驟2:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:暫無解析8、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp,在Form1的窗體中有一個(gè)文本框、兩個(gè)命令按鈕和一個(gè)計(jì)時(shí)器。程序的功能是在運(yùn)行時(shí),單擊“開始計(jì)數(shù)”按鈕,就開始計(jì)數(shù),每隔1秒,文本框中的數(shù)加1;單擊“停止計(jì)數(shù)”按鈕,則停止計(jì)數(shù)(如圖1-28所示)。要求:修改適當(dāng)?shù)目丶膶傩?,并去掉程序中的注釋符,把程序中?改為正確的內(nèi)容,使其實(shí)現(xiàn)上述功能,但不能修改程序中的其他部分。最后把修改后的文件以原來的文件名存盤。(2)已知出租車行駛不超過4千米時(shí)一律收費(fèi)10元。超過4千米時(shí)分段處理,具體處理方式為:15千米以內(nèi)每千米加收1.2元,15千米以上每千米收1.8元。在考生文件夾下有一個(gè)工程文件sjt4.vbp。程序的功能是:單擊“輸入”按鈕,將彈出一個(gè)輸入對話框,接收出租車行駛的里程數(shù);單擊“計(jì)算”按鈕,則可根據(jù)輸入的里程數(shù)計(jì)算應(yīng)付的出租車費(fèi),并將計(jì)算結(jié)果顯示在名稱為Text1的文本框內(nèi)。在窗體文件中已經(jīng)給出了全部控件(如圖1-29所示),但程序不完整,要求去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。注意:不得修改已經(jīng)存在的內(nèi)容和控件屬性,最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:第1小題【操作步驟】步驟1:打開本題工程文件sjt3.vbp,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:SelectCaseIndexCase0Text1.Text=Text1.Text+1步驟2:按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1:打開考生文件夾中的本題工程文件sjt4.vbp,在代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:SelectCasesf=10f=10+(s-4)*1.2CaseElsef=10+(15-4)*1.2+(s-15)*1.8步驟2:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:暫無解析9、(1)在名稱為Form1的窗體上畫一個(gè)計(jì)時(shí)器,其名稱為Timer1;再畫一個(gè)圖像框,其名稱為Image1,在該圖像框中裝入一個(gè)圖形文件pic.ico;然后畫一個(gè)水平滾動(dòng)條,其名稱為HScroll1,Min屬性值為100,Max屬性值為1200,LargeChange屬性值為100,SmallChange屬性值為25,編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后,可以使圖像框閃爍,其閃爍速度可以通過滾動(dòng)條調(diào)節(jié)。要求:圖像框的閃爍可以通過圖像框交替地顯示和隱藏來實(shí)現(xiàn)。程序中不得使用變量,每個(gè)事件過程中只能寫一條語句。注意:存盤時(shí)必須存放在考生文件夾下,工程文件名為sjt3.vbp,窗體文件名為sjt3.frm。(2)在考生目錄下有一個(gè)工程文件sjt4.vbp,包含了所有控件和部分程序,如圖1-58所示。要求如下:①利用屬性窗口設(shè)置適當(dāng)?shù)膶傩裕簽長ist1列表框添加三個(gè)項(xiàng)目:宋體、黑體、楷體_GB2312;Text1文本框設(shè)置初始值為“計(jì)算機(jī)”;Hscroll1水平滾動(dòng)條設(shè)置最小值和最大值分別為10、50。②去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,完成以下功能:如果在列表框中選擇一種字體,然后移動(dòng)滾動(dòng)條中的滾動(dòng)框,則可使文本框中的文字按所選擇的字體顯示,并可隨著滾動(dòng)框的移動(dòng)放大或縮??;如果不選擇字體直接移動(dòng)滾動(dòng)框,則顯示一個(gè)信息框,提示“請選擇字體”。注意:去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,使其實(shí)現(xiàn)上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:第1小題【操作步驟】步驟1:新建一個(gè)“標(biāo)準(zhǔn)EXE”工程,如表2-6在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2:打開代碼編輯窗口,分別編寫計(jì)時(shí)器的Timer事件過程和滾動(dòng)條的Change事件過程。參考代碼:PrivateSubHScroll1_Change()Timer1.Interval=HScroll1.ValueEndSubPrivateSubTimer1_Timer()Image1.Visible=NotImage1.VisibleEndSub步驟3:按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1:打開考生文件中的本題工程文件sjt4.vbp,如表2-7設(shè)置控件的相關(guān)屬性。步驟2:打開代碼編輯窗口,在代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:Text1.FontSize=HScroll1.ValueText1.FontName=List1.Text步驟3:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:暫無解析10、在名稱為Forml的窗體上畫兩個(gè)圖片框,名稱分別為Pl、P2,高度均為1900,寬度均為1700,通過屬性窗口把圖片文件picl.bmp放入P1中,把圖片文件pic2.jpg放入P2中:再畫一個(gè)命令按鈕,名稱為C1,標(biāo)題為”交換圖片”(如圖2-208所示)。編寫適當(dāng)?shù)氖录^程,使得在運(yùn)行時(shí),如果單擊”交換圖片”按鈕,則在P1中顯示pic2.jpg,在P2中顯示picl.bmp。程序中不得使用任何變量,也不能使用第三個(gè)圖片框。注意:存盤時(shí)必須存放在考生文件夾下,工程文件名為sit3.vbp,窗體文件名為sjt3.frm。標(biāo)準(zhǔn)答案:步驟1:新建一個(gè)”標(biāo)準(zhǔn)EXE”工程,在窗體Forml中如表3-122畫出所列控件并設(shè)置其相關(guān)屬性。步驟2:打開代碼編輯窗口,編寫命令按鈕的Click事件過程:參考代碼:PrivateSubCl_Click()Picl.Picture=LoadPicture(App.Path+_“\pic2.bmp”)Pic2.Picture=LoadPicture(App.Path+_“\picl.bmp”)EndSub步驟3:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:暫無解析國家二級(jí)VB機(jī)試(簡單應(yīng)用題)模擬試卷第3套一、簡單應(yīng)用題(本題共10題,每題1.0分,共10分。)1、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp。程序的功能是通過鍵盤向文本框中輸入正整數(shù)。在“除數(shù)”框架中選擇一個(gè)單選按鈕,然后單擊“處理數(shù)據(jù)”按鈕,將大于文本框中的正整數(shù)且能夠被所選除數(shù)整除的5個(gè)數(shù)添加到列表框List1中,如圖3—80所示。在窗體文件中已經(jīng)給出了全部控件,但程序不完整。要求:請去掉程序中的注釋符,把程序中的“?”改為正確的內(nèi)容,使其實(shí)現(xiàn)上述功能,但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp。程序運(yùn)行后,單擊“開始”按鈕,圖片自上而下移動(dòng),同時(shí)滾動(dòng)條的滑塊隨之移動(dòng),每0.5秒移動(dòng)一次。當(dāng)圖片頂端移動(dòng)到距窗體的下邊界的距離少于200時(shí),再回到窗體頂部,重新向下移動(dòng),如圖3—81所示。在窗體文件中已經(jīng)給出了全部控件,但程序不完整。要求:請去掉程序中的注釋符,把程序中的“?”改為正確的內(nèi)容,使其實(shí)現(xiàn)上述功能,但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:第1小題步驟1:打開考生文件下的本題工程文件sjt3.vbp,在代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:IfOption1.Item(i)=TrueTheny=val(Option1(i).Caption)DoWhilei<=5List1.AddItemx步驟2:按要求將文件保存至考生文件夾中。第2小題步驟1:打開考生文件夾下的工程文件sjt4.vbp。步驟2:進(jìn)入代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)“?”改為正確的內(nèi)容。參考代碼:Timer1.Interva1=500VScroll1.Value=Picture1.TopPicture1.Top=0步驟3:按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析:第1小題:判斷整數(shù)A能被整數(shù)B整除的條件表達(dá)式為:AModB=0。本題源程序在“計(jì)算數(shù)據(jù)”的單擊事件過程中,通過For循環(huán)逐一判斷單選按鈕數(shù)組中的每個(gè)元素是否選中,用變量y記錄選中單選按鈕所標(biāo)識(shí)的數(shù)字,并調(diào)用過程“calc”計(jì)算滿足條件的正整數(shù)。在過程“calc”中,通過Do循環(huán)依次判斷大干文本框中數(shù)的正整數(shù)是否能被變量y整除,將能被整除的前5個(gè)數(shù)添加到列表框List1中。第2小題:本題源程序利用計(jì)時(shí)器的Timer事件來控制圖片的移動(dòng),因此單擊“開始”按鈕啟動(dòng)計(jì)時(shí)器,而單擊“停止”按鈕就是要停止計(jì)時(shí)器。在計(jì)時(shí)器的Timer事件過程中,通過每次使圖片框的Top屬性值增量200實(shí)現(xiàn)移動(dòng),并讓垂直滾動(dòng)條滑塊的位置隨圖片框的Top屬性值變化。當(dāng)圖片頂端移動(dòng)到距窗體的下邊界的距離少于200時(shí)(即VScroll1.Value+200>=Form1.Height.200)時(shí),則重新從窗體頂端開始移動(dòng),即Picture1.Top=0。由于題目要求不能在設(shè)計(jì)階段修改控件屬性,要想在單擊“開始”按鈕時(shí)能啟動(dòng)計(jì)時(shí)器,就需在窗體加載事件過程中設(shè)置計(jì)時(shí)器的Interval屬性,即Timer1.Interva1=500。2、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp。程序運(yùn)行后,單擊“讀入數(shù)據(jù)”按鈕,可將考生文件夾下in3.txt文件中的所有英文單詞讀入,并在Text1文本框中顯示;單擊“插入列表框”按鈕,則按順序?qū)⒚總€(gè)單詞作為一項(xiàng)添加到List1列表框中(如圖所示)。在irr3.txt文件中,每個(gè)單詞之間用一個(gè)空格字符隔開,最后一個(gè)單詞的后面沒有空格。已經(jīng)給出了所有控件和程序,但程序不完整。要求:請去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,使其能正確運(yùn)行,但不能修改程序中的其他部分和控件屬性。最后用原來的文件名保存工程文件和窗體文件。(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp,窗體上已經(jīng)添加所有控件,如圖所示。在程序運(yùn)行時(shí),如果單擊“開始”按鈕,則每隔0.1秒窗體上的汽車圖標(biāo)向右移動(dòng)一次(初始狀態(tài)下不移動(dòng));如果單擊“停止”按鈕,則停止移動(dòng)。請完成以下工作:①設(shè)置適當(dāng)控件的適當(dāng)屬性,使得每0.1秒汽車圖標(biāo)向右移動(dòng)一次,而初始狀態(tài)下不移動(dòng)。②請去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。③為兩個(gè)命令按鈕編寫適當(dāng)?shù)氖录^程,最后以原文件名存盤。注意:不得修改已經(jīng)給出的程序。編寫事件的過程中不能使用變量,每個(gè)事件過程中只能有一條語句。標(biāo)準(zhǔn)答案:(1)【操作步驟】步驟1:打開本題工程文件。步驟2:打開代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)改為正確的內(nèi)容。參考答案PrivateSubCommand1_Click()Dimst$,ch$OpenApp.Path&"\in3.txt"ForInputAs#1’打開文件DoWhileNotEOF(1)’文件指針是否到達(dá)文件末尾Input#1,ch’達(dá)到文件末尾返回true。否則返回falsest=st&ch’將讀出的數(shù)據(jù)加到原有數(shù)據(jù)末尾LoopClose#’關(guān)閉文件Text1=st’將內(nèi)容顯示在文本框中EndSubPrivateSubCommand2_Click()Dimst$,word$,c$St=Text1n=Len(st)Fork=1Tonc=Mid(st,k,1)’從st中依次取出1個(gè)字符進(jìn)行比較Ifc<>""ThenWord=word&CElseList1.AddItemWordword=""’將word清空,為下一次作準(zhǔn)備EndIfNextList1.AddItemwordEndSub步驟3:調(diào)試并運(yùn)行程序,關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1:打開本題工程文件,設(shè)置計(jì)時(shí)器Interval的屬性為100,將Enabled屬性設(shè)置為False。步驟2:打開代碼編輯窗口,在指定位置編寫如下代碼。參考答案PrivateSubTimer1Timer()P1.Left=P1.Left+20EndSub’需要考生編寫的內(nèi)容PrivateSubC1_Click()Timer1.Enabled=TrueEndSubPrivateSubC2_Click()Timer1.Enabled=FalseEnd.Sub步驟3:調(diào)試并運(yùn)行程序,關(guān)閉程序后按題目要求存盤。知識(shí)點(diǎn)解析:暫無解析3、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp,在Form1的窗體中有一個(gè)文本框、一個(gè)計(jì)時(shí)器和兩個(gè)命令按鈕。程序的功能是在運(yùn)行時(shí),單擊“開始計(jì)數(shù)”按鈕,就開始計(jì)數(shù)(如圖所示),每隔1秒,文本框中的數(shù)加1;單擊“停止計(jì)數(shù)”按鈕,則停止計(jì)數(shù)。要求:修改適當(dāng)?shù)目丶膶傩?,并去掉程序中的注釋符,把程序中?改為正確的內(nèi)容,使其實(shí)現(xiàn)上述功能,但不能修改程序中的其他部分。最后將修改后的文件以原來的文件名存盤。(2)已知出租車行駛不超過4公里時(shí)一律收費(fèi)10元。超過4公里時(shí)分段處理,具體處理方式為:15公里以內(nèi)每公里加收1.2元,15公里以上每公里收1.8元。在考生文件夾下有一個(gè)工程文件sjt4.vbp。程序的功能是:單擊“輸入”按鈕,將彈出一個(gè)輸入對話框,接收出租車行駛的里程數(shù);單擊“計(jì)算”按鈕,則可根據(jù)輸入的里程數(shù)計(jì)算應(yīng)付的出租車費(fèi),并將計(jì)算結(jié)果在名稱為Text1的文本框內(nèi)顯示。在窗體文件中已經(jīng)給出了全部控件(如圖所示),但程序不完整,要求去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。注意:不得修改已經(jīng)存在的內(nèi)容和控件屬性,最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案:(1)【操作步驟】步驟1:打開本題工程文件,設(shè)置計(jì)時(shí)器Interval屬性為1000,Enabled屬性設(shè)置為False。步驟2:打開代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)改為正確的內(nèi)容。參考答案PrivateSubC1_Click(IndexAsInteger)SelectCaseIndex’通過控件下標(biāo)確定單擊哪一個(gè)按鈕Case1Timer1.Enabled=FalseCase0’控制下標(biāo)從0開始,此處應(yīng)為0Timer1.Enabled=TrueEndSelectEndSubPrivateSubTimer1Timer()Text1.Text=Text1.Text+1’Text1中的內(nèi)容加1顯示EndSub步驟3:調(diào)試并運(yùn)行程序,關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1:打開本題工程文件。步驟2:打開代碼編輯窗口,去掉程序中的注釋符“’”,將問號(hào)改為正確的內(nèi)容。參考答案DimsAsIntegerPrivateSubCommand1_Click()s=Val(InputBox("輸入里程數(shù)(單位:公里)"))’s用于存儲(chǔ)里程數(shù)EndSubPrivateSubCommand2_Click()Tfs>0ThenSelectCases’對s進(jìn)行判斷CaseIs<=4f=10’根據(jù)題意s<=4時(shí)f=10CaseIs<=15f=10+(s-4)*1.2’同理CaseIs>15f=10+11*1.2+(s-15)*1.8’同理EndSelectText1.Text=f’在Text1中顯示結(jié)果ElseMsgBox"請單擊"輸入"按鈕輸入里程數(shù)!"EndIfEndSub步驟3:調(diào)試并運(yùn)行程序,關(guān)閉程序后按題目要求存盤。知識(shí)點(diǎn)解析:暫無解析4、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp。窗體上有名稱為Timer1的定時(shí)器,以及名稱為Line1和Line2的兩條水平直線。請用名稱為Shape1的形狀控件,在兩條直線之間畫一個(gè)寬和高都相等的形狀,其顯示形式為圓,并設(shè)置適當(dāng)屬性使其滿足以下要求:①圓的頂端距窗體Form1頂端的距離為360;②圓的顏色為紅色(紅色對應(yīng)的值為&H000000FF&或&HFF&),如圖3—124所示。程序運(yùn)行時(shí),Shape1將在Line1和Line2之間運(yùn)動(dòng)。當(dāng)Shape1的頂端到達(dá)Line1時(shí),會(huì)自動(dòng)改變方向而向下運(yùn)動(dòng);當(dāng)Shape1的底部到達(dá)Line2時(shí),會(huì)改變方向而向上運(yùn)動(dòng)。文件中給出的程序不完整,請去掉程序中的注釋符,把程序中的?改為正確內(nèi)容,使其實(shí)現(xiàn)上述功能。注意:不能修改程序的其他部分和已給出控件的屬性。最后將修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 二零二五年度產(chǎn)業(yè)園品牌推廣及市場合作合同3篇
- 2025年度濟(jì)南旅游開發(fā)合作合同2篇
- 2025版文化藝術(shù)行業(yè)崗位勞動(dòng)合同規(guī)范匯編3篇
- 二零二五年度冠梁材料供應(yīng)與安裝承包合同3篇
- 二零二五年度房屋買賣合同:針對共有產(chǎn)權(quán)及子女入學(xué)權(quán)益3篇
- 2025年度版權(quán)許可使用合同:數(shù)字音樂平臺(tái)著作權(quán)授權(quán)協(xié)議2篇
- 皮帶修復(fù)課程設(shè)計(jì)
- 海南外國語職業(yè)學(xué)院《西方思想文化專題研究》2023-2024學(xué)年第一學(xué)期期末試卷
- 海南外國語職業(yè)學(xué)院《環(huán)保設(shè)備基礎(chǔ)》2023-2024學(xué)年第一學(xué)期期末試卷
- 海南體育職業(yè)技術(shù)學(xué)院《建筑力學(xué)(一)》2023-2024學(xué)年第一學(xué)期期末試卷
- 科勒衛(wèi)浴行業(yè)分析
- 湖南省邵陽市初中聯(lián)考2023-2024學(xué)年九年級(jí)上學(xué)期期末地理試題
- 美術(shù)概論課件
- 綠籬移栽施工方案
- 機(jī)器人論文3000字范文
- 中國保險(xiǎn)行業(yè)協(xié)會(huì)-2022年度商業(yè)健康保險(xiǎn)經(jīng)營數(shù)據(jù)分析報(bào)告
- 新人教版小學(xué)五年級(jí)數(shù)學(xué)上冊知識(shí)點(diǎn)歸納總結(jié)
- 四年級(jí)上冊口算、豎式計(jì)算、脫式計(jì)算
- 腎內(nèi)科降低透析器凝血發(fā)生率品管圈PDCA成果匯報(bào)
- 回族做禮拜的念詞集合6篇
- 臺(tái)區(qū)線損綜合分析臺(tái)區(qū)線損分類及計(jì)算方法
評論
0/150
提交評論