07759Visual Basic程序設(shè)計(jì)201607真題及答案_第1頁(yè)
07759Visual Basic程序設(shè)計(jì)201607真題及答案_第2頁(yè)
07759Visual Basic程序設(shè)計(jì)201607真題及答案_第3頁(yè)
已閱讀5頁(yè),還剩4頁(yè)未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

2016720167VB182016720167VB8820167VisualBasic(課程代碼07759)一、單項(xiàng)選擇題(16116)合題目要求的,請(qǐng)將其選出并將“答題卡”的相應(yīng)代碼涂黑。錯(cuò)涂、多涂或未涂均無(wú)分。1個(gè)名稱為Combo15A.Combo1.Removeltem4 B.Combo1.RemoveltemCombo1.ListCountC.Combo1.Removeltem5 D.Combo1.RemoveltemCombo1.Text執(zhí)行下列程序后輸出的是PrivateSubCommandl_Click()Ch$=″ABCDEFGHIJ″PrintMid(Right(cb$,5),Len(left(ch$,3)),3)EndSubA.FGH B.HIJ C.FGHIJ D.ABCDE為了把焦點(diǎn)移到某個(gè)指定的控件,所使用的方法是SetFocus B.Visible C.Refresh D.GetFocus決定LabelA.Text B.Name C.Caption D.Forecolor窗體上有一個(gè)控件CommandCommand_Click() B.Commandl_Dblclick()C.Cornmand_Dblclick() D.Commandl_Click()設(shè)a=5,b=4,c=3,d=2(3>2*bOra=cAndb<>cOr1 B.2 C.True D.False對(duì)于不同的對(duì)象有不同的屬性,但所有的對(duì)象都共同擁有的屬性是Picture B.Icon C.Caption D.Name下列循環(huán)語(yǔ)句中在任何情況下都至少執(zhí)行一次循環(huán)體的是DoWhile<條> B.條件循環(huán)體 循環(huán)體Loop WendC.Do D.Do循環(huán)體 循環(huán)體LoopUntil<條> Loop已知有下列過(guò)程序PrivateSubCompare(aAslnteger,bAsStnng,Optionalx)……EndSub正確調(diào)用此過(guò)程的語(yǔ)句是A.Compare5B.Compare(12,″abc″,True)C.CallCompare(5) D.Compareprocl5,″abc″,F(xiàn)alse為了將變量a,b,cData.txtPrinta,b,c,#文件號(hào) B.Print文件,a,b,cC.Outputa,b,c,文件號(hào) D.Output文件,a,b,c窗體文件存盤(pán)后,形成的磁盤(pán)文件擴(kuò)展名為A..cls B..frm C..bas D..12.下列語(yǔ)句中正確的注釋語(yǔ)句是A.z=x+yRerndim求z的值 B.y=200給y賦值C.z=300Rem給z賦值 D.x=100′給x賦值數(shù)組Arr(2To5,-2ToA.Arr(3,3) B.Arr(5,1) C.Arr(4,O) D.Arr(3,2)為使該菜單項(xiàng)被標(biāo)記,應(yīng)該設(shè)置為T(mén)rueA.Checked B.Visible C.Enabled D.15.指定文件對(duì)話框中所選擇的文件名(不包括路徑)的屬性是A.DialogTitle B.FileTitle C.FileName D.Filter啟動(dòng)過(guò)程SubMainA.標(biāo)準(zhǔn)模塊(.bas) B.類模(.c1s)C.窗體模塊(.frm) D.工程文(.vbp)二、判斷改錯(cuò)題(本大題共10小題,每小題2分,共20分)判斷下列每小題的正誤。正確的在題后括號(hào)內(nèi)打“√”;錯(cuò)誤的打“×”,并改正劃線部分。Function使用InputBox函數(shù)可接受用戶輸入數(shù)據(jù)。19.標(biāo)準(zhǔn)模塊中的局部變量能被工程中的其它模塊引用。20.事21.窗體大小可以通過(guò)設(shè)置屬性Height和Top來(lái)改變。22.在聲明數(shù)組時(shí),下標(biāo)必須是變量。23.設(shè)置形狀控件的Shape屬性可以在窗體上畫(huà)出矩形、圓和橢圓。24.如果一個(gè)菜單項(xiàng)的visible屬性為False,它的子菜單也會(huì)顯示。25.VB26.用通用對(duì)話框能建立文件對(duì)話框和字體對(duì)話框。三、簡(jiǎn)答題(281627.什么是閑置循環(huán)?DoEvents圖形控件中的圖片框和圖像框有什么異同?四、解讀程序題(26212)明,在程序中空格處填寫(xiě)正確代碼。填錯(cuò)、未填均無(wú)分。下列程序的功能是:把程序文件data.txt的內(nèi)容全部讀入內(nèi)存,并在文本框Text1中顯示出來(lái)。PrivateSubCommandl_Click()DimsDataAsStringText1.Text=″″Open″c:\data.For As DoWhileNotEOF(3)Input#3, Text1.Text=Textl.Text&sDataLoopClose#3EndSub如下是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為T(mén)extl的文本框數(shù)組,然后畫(huà)一個(gè)名為T(mén)ext2的文本框和名為Commandl610令按鈕,去掉一個(gè)最高分和一個(gè)最低分后的平均分即為最后得分,將最后得分顯示在Text2文本框中,如30PrivateSubCommandl_Click()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSingleSum=0max=0min=10Fork=0To5IfTextl(k)>10ThenTextl(k)=10IfTextl(k)<0ThenTextl(k)=10Ifmax<Textl(k)ThenEndIfIfmin>Textl(k)ThenMin=Textl(k)EndIfsum= Nextksum= Text2.Text=EndSub五、程序閱讀題(本大題共4小題,每小題4分,共16分)閱讀程序,在題后的空格處填寫(xiě)程序運(yùn)行的結(jié)果。填錯(cuò)、未填均無(wú)分。在窗體畫(huà)一個(gè)命令按(Command1)、一個(gè)文本(Text1)和一個(gè)標(biāo)(Labell),然后編寫(xiě)如下兩個(gè)事件過(guò)程程序運(yùn)行后單擊命令按鈕將顯示一個(gè)輸入對(duì)話框如果在該對(duì)話框中輸入字符則在標(biāo)簽中顯示的內(nèi)容。PrivateSubCommand1_Click()Dims$s$=InputBoxText1.Text=s$EndSubPrivateSubText_Change()Labell.Caption=UCase(Mid(Textl.Text,6))EndSub在窗體上有一個(gè)命令按(Command1)和一個(gè)文本(Text1),編寫(xiě)如下程序代碼,當(dāng)運(yùn)行程序后,擊命令按鈕,文本框Text1中顯示的值。PrivateSubCommandl_Click()DimArr(5,5)AsIntegerDimi,jAsIntegerFori=lTo4Forj=2ToArr(i,j)=NextjNextiText1.Text=Arr(2,2)+Arr(3,3)EndSub在窗體上有一個(gè)命令按(Command1)和兩個(gè)文本(Text1和Text2),編寫(xiě)如下程序代碼,當(dāng)運(yùn)行程后,單擊命令按鈕,文本框Text2中顯示的值。PrivateXAsIntegerDimyAsIntegerPrivateSubCommand1_Click()X=5r=1OCallProc(X,y)Text1.Text=XText2.TextXEndSubPrivateSubProc(aAsInteger,ByValbAsInteger)DimyAsIntegerX=a*aY=b+b+XEndSub在窗體上畫(huà)一個(gè)命令按(Command1),然后編寫(xiě)如下事件過(guò)程,程序運(yùn)行后,單擊命令按鈕,輸出結(jié)果。PrivateSubCommand1_Click()DimA,B,CAsIntegerA=1B=2C=3A=A+BB=B+CC=B+AA=B-AB=C-AC=B+AEndIfPrintEndSub六、編程題(本大題共2小題,每小題10分,共20分)編寫(xiě)程序?qū)崿F(xiàn)題目所給要求。請(qǐng)編寫(xiě)程序求函數(shù)的根x3x44x210在區(qū)間[10.0001f(x)=0f(a)×f(b)>0,則令a=c,否則令b=c;當(dāng)|b-c|<給定誤差,則c編寫(xiě)一個(gè)Funciton過(guò)程Cala,用來(lái)計(jì)算下列的數(shù)量Command1調(diào)用,并計(jì)算n=99n=199MsgBoxS11

2...

n1n 2 3 n20167VisualBasic―、單項(xiàng)選擇題(本大題共16小題,每小題1分,共16分)1——5:ABACD 6——10:CDCAB 二、判斷改錯(cuò)題(本大題共10小題,每小題2分,共20分)題號(hào)判斷更正17×Sub18√19×全局變量20√21×Width22×常量23√24×True25√26√三、簡(jiǎn)答題(本大題共2小題,每小題8分,共16分)27.(l)當(dāng)執(zhí)行閑置循環(huán)時(shí),將占用全部CPU時(shí)間,不允許執(zhí)行其他事件過(guò)程,使系統(tǒng)處于無(wú)限循環(huán)中,沒(méi)有任何反應(yīng)。(2)VisualBasic提供DoEvents應(yīng)其他的事件任務(wù),處理完畢后然后回到原來(lái)的程序繼續(xù)執(zhí)行。VisualBasic(2)兩者的區(qū)別是圖像框比圖片框占用內(nèi)存小,顯示速度快。圖片框比圖像框靈活,且適用于動(dòng)態(tài)環(huán)能作為父控件,而且不能通過(guò)Print方法接收文本;圖像框具有Stretch屬性,可以自動(dòng)調(diào)整圖像大小來(lái)適應(yīng)圖像框的尺寸。四、解讀程序題(本大題共2小題,每小題6分,每空2分,共12分)Input #3 sDatamax=Text1(k) sum+Text1(k) sum-max-min五、程序閱讀題(本大題共4小題,每小題4分,共16分)31.SOFT 32.10 33.25 34.16六、編程題(本大題共2小題,每小題10分,共20分)PrivateSubCommandl_Click()DimxAsSingle,aAsSingle,bAsSingle,cAsDimfaAsSingle,fbAsSingle,fcAsSinglea=0b=1c=(a+b)/2fa=a^3-a^4+4*a^2-1fb=b^3-b^4+4*b^2-1If(fa*fb<O)ThenDofa=a^3-a^4+4*a^2-1fc=c^3-c^4+4*c^2-1If(fa*fc>O)Thena=cElseb=cEndIfC=(a+b)/2LoopUntilAbs(b-c)<O.0001EndIfPrint″實(shí)根為:″&c;EndSubPrivateSubCommandl_Click()DimnlAsSingle

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論