【MOOC】程序設(shè)計(jì)基礎(chǔ)（VB）-西北農(nóng)林科技大學(xué) 中國(guó)大學(xué)慕課MOOC答案

【MOOC】程序設(shè)計(jì)基礎(chǔ)（VB）-西北農(nóng)林科技大學(xué)中國(guó)大學(xué)慕課MOOC答案第一章單元測(cè)驗(yàn)1、【單選題】VB集成開(kāi)發(fā)環(huán)境有三種工作模式，不屬于三種工作模式之一的是（）。本題答案：【編輯模式】2、【單選題】類(lèi)是同種（）的集合和抽象。本題答案：【對(duì)象】3、【單選題】程序代碼“Text1．Text=VisualBasic，其中的Text1、Text和VisualBasic分別代表（）。本題答案：【對(duì)象、屬性、值】4、【單選題】要使某對(duì)象在運(yùn)行時(shí)不可顯示，應(yīng)對(duì)()屬性進(jìn)行設(shè)置。本題答案：【Visible】5、【單選題】不論任何控件，共同具有的屬性是()屬性。本題答案：【Name】6、【單選題】啟動(dòng)窗體時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的()事件過(guò)程。本題答案：【Load】7、【單選題】程序運(yùn)行后，在窗體上單擊鼠標(biāo)，此時(shí)窗體不會(huì)接受到的事件是()。本題答案：【Load】8、【單選題】在VisualBasic中最基本的對(duì)象是()，它是應(yīng)用程序界面設(shè)計(jì)的基礎(chǔ)，是其他控件的容器。本題答案：【窗體】9、【單選題】PrivateSubForm_click()PrintHelloMe.ForeColor=vbRedEndSub第一次單擊窗體，輸出Hello的顏色為：（）本題答案：【黑色（默認(rèn)顏色）】10、【單選題】對(duì)于窗體Form1，執(zhí)行了Form1.Left=Form1.Left-300語(yǔ)句后，則該窗體()。本題答案：【左移】11、【單選題】當(dāng)標(biāo)簽需要自動(dòng)調(diào)整標(biāo)簽大小以適應(yīng)文本長(zhǎng)度時(shí)，可設(shè)置的屬性是（）。本題答案：【AutoSize】12、【單選題】下列敘述錯(cuò)誤的是（）。本題答案：【VB是面向過(guò)程的程序設(shè)計(jì)語(yǔ)言】13、【單選題】文本框不具有（）屬性。本題答案：【caption】第二章單元測(cè)驗(yàn)1、【單選題】下列可以將變量x、y的值互換的是（）。本題答案：【t=x:x=y:y=t】2、【單選題】多條語(yǔ)句要書(shū)寫(xiě)在一行，用（）符號(hào)作分隔符。本題答案：【：】3、【單選題】賦值語(yǔ)句g=200+Mid(31415926,3,2)執(zhí)行后，變量g的值是（）。本題答案：【241】4、【單選題】表達(dá)式A%+B+C!-D#的結(jié)果為()。本題答案：【雙精度】5、【單選題】下列符號(hào)中，可以用作變量名的是()。本題答案：【abc123】6、【單選題】-35000的數(shù)據(jù)類(lèi)型是()。本題答案：【字符串型常量】7、【單選題】下列選項(xiàng)中，為日期型常量的是（）。本題答案：【#5/10/2002#】8、【單選題】設(shè)S=Myname，可得到字符串My的選項(xiàng)是（）。本題答案：【Left(S,2)】9、【單選題】用于返回字符串的長(zhǎng)度函數(shù)是（）。本題答案：【Len()】10、【單選題】語(yǔ)句PrintFormat(32548.5,000,000.00)的輸出結(jié)果是（）。本題答案：【032,548.50】11、【單選題】Int(198.555*10+0.5)/10的值()。本題答案：【198.6】12、【單選題】要使變量x賦值為[50～100]間的一個(gè)隨機(jī)整數(shù)，正確的語(yǔ)句是()。本題答案：【x=INT(51*RND+50)】13、【單選題】如果x是一個(gè)正實(shí)數(shù)，可使x保留2位小數(shù)的表達(dá)式是()。本題答案：【0.01*Int(100*(x+0.005))】14、【單選題】表達(dá)式Val(4.5674e2)的值為()。本題答案：【456.74】15、【單選題】已知a=abcdefgh，則表達(dá)式right(a,4)+Mid(a,3,4)的值是()。本題答案：【efghcdef】16、【單選題】如果變量a=12、b=the、c=sdf、d=30，則表達(dá)式a*3mod4d\4ANDbcANDdc的值是()。本題答案：【True】17、【單選題】數(shù)學(xué)關(guān)系3≤x10表示成正確的VB表達(dá)式為()。本題答案：【3=xANDx10】18、【單選題】在VB中，能正確表達(dá)“X是小于100的非負(fù)數(shù)”的表達(dá)式是（）。本題答案：【X=0AndX100】19、【單選題】Dimx%,y%x=Inputbox(請(qǐng)輸入第一個(gè)數(shù))y=Inputbox(請(qǐng)輸入第二個(gè)數(shù))printx+y當(dāng)輸入分別為12和34時(shí)，程序輸出為（）。本題答案：【46】20、【單選題】有如下代碼：dimaaslong,baslonga=Inputbox(請(qǐng)輸入第一個(gè)數(shù))b=Inputbox(請(qǐng)輸入第二個(gè)數(shù))printab程序運(yùn)行后，在兩個(gè)對(duì)話框中先后輸入12345和54321，則輸出結(jié)果是（）。本題答案：【1234554321】基本控制結(jié)構(gòu)隨堂測(cè)試1、【單選題】VB三種結(jié)構(gòu)化程序設(shè)計(jì)的基本結(jié)構(gòu)是（）。本題答案：【順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)】第三章單元測(cè)驗(yàn)1、【單選題】VB的三種結(jié)構(gòu)化程序設(shè)計(jì)的基本結(jié)構(gòu)是（）。本題答案：【順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)】2、【單選題】設(shè)用Max表示x、y中較大的數(shù)，則下面語(yǔ)句中不正確的是（）。本題答案：【Ify=xThenMax=yMax=x】3、【單選題】下面語(yǔ)句執(zhí)行后，變量W的值為（）。W=Choose(Int(3.6),Red,Green,Blue,Yellow)本題答案：【Blue】4、【單選題】設(shè)窗體上有一個(gè)文本框Text1，以下程序段的功能是（）。PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii65OrKeyAscii90ThenKeyAscii=0EndIfEndSub本題答案：【該文本框只能接收A-Z之間的字母字符】5、【單選題】循環(huán)結(jié)構(gòu)Fori=1to20step5一共執(zhí)行（）次循環(huán)。本題答案：【4】6、【單選題】如下循環(huán)結(jié)構(gòu)執(zhí)行結(jié)束后i值將等于（）。Fori=1To15Step4……Nexti本題答案：【17】7、【單選題】下列程序段能實(shí)現(xiàn)在Form窗體上按指定格式分多行輸出數(shù)據(jù)，問(wèn)每行能輸出（）個(gè)數(shù)據(jù)。Dimi%Fori=1To30PrintTab(((i-1)Mod5)*6);i;Nexti本題答案：【5】8、【單選題】InputBox函數(shù)返回值的類(lèi)型為()。本題答案：【字符型】9、【單選題】下列程序的運(yùn)行結(jié)果是（）。a=78Ifa50Theni=5ElseIfa60Theni=6ElseIfa70Theni=7ElseIfa80Theni=8EndIfPrinti本題答案：【5】10、【單選題】以下程序代碼能執(zhí)行的是（）。本題答案：【Ifa=1Thenb=0ElseIfc=0Thend=0EndIf】11、【單選題】某工廠當(dāng)年產(chǎn)值為12億，以后每年的產(chǎn)值按5%的速度增長(zhǎng)，能正確計(jì)算四年后總產(chǎn)值的程序是（）。本題答案：【s=12:sum=12:r=0.05Fori=1996To1998s=s*(1+r)sum=sum+sNextiPrintsum】12、【單選題】下列程序段中不能正確計(jì)算1!、2!、3!的值是（）。本題答案：【Fori=1to3Forj=1toin=1n=n*jNextjPrintnNexti】13、【單選題】以下說(shuō)法正確的是（）。本題答案：【ExitDo語(yǔ)句只能退出Do……Loop循環(huán)】14、【單選題】以下程序段的運(yùn)行結(jié)果是（）。a=abcdeFori=3To1Step-2x=Left(a,i)y=Right(a,i)z=zxyNextiPrintz本題答案：【abde】15、【單選題】下面If語(yǔ)句統(tǒng)計(jì)滿足性別(sex)為男、職稱(chēng)(duty)為副教授以上、年齡(age)小于40歲條件的人數(shù)，不正確的語(yǔ)句是()。本題答案：【Ifsex=男Andage40Andduty=教授Andduty=副教授Thenn=n+1】第五章單元測(cè)驗(yàn)1、【單選題】用冒泡排序算法對(duì)下列數(shù)據(jù)：123742192735564410，進(jìn)行從小到大的排序，在將最大的數(shù)“沉”到最后時(shí)，數(shù)據(jù)的順序是（）。本題答案：【123719273542441056】2、【單選題】用某種方法排序，調(diào)整序列如下，所選排序方法為（）。7428106304281763012847630128476301234768012347680123467801234678本題答案：【選擇排序】3、【單選題】對(duì)N個(gè)記錄進(jìn)行簡(jiǎn)單選擇排序，最少的比較次數(shù)為（）。本題答案：【N-1次】4、【單選題】對(duì)于長(zhǎng)度為9的有序表，在進(jìn)行折半查找時(shí)，查找失敗，最多需要比較（）次。本題答案：【4次】5、【單選題】折半查找有序表(4,6,10,12,20,30,50,70,88,100)。若查找表中元素58,則它將依次與表中（）比較大小,最終的查找結(jié)果是失敗。本題答案：【20,70,30,50】6、【單選題】下面的程序用于根據(jù)文本框X中輸入的內(nèi)容進(jìn)行以下處理：若X為2、4、6，則打印X的值為2、4、6；若X在11到15之間，則打印X的值為大于等于11小于等于15；若X大于20，則打印X的值大于20；否則，打印X不在范圍內(nèi)。PrivateSubCommand1_Click()SelectCaseVal(X.Text)CasePrintX的值為2,4,6Case11to15PrintX的值為大于等于11小于等于15CaseIs20PrintX的值大于20CaseElsePrintX不在范圍內(nèi)EndSelectEndSub本題答案：【2,4,6】7、【單選題】找出被3、5、7除，余數(shù)均為1的最小的5個(gè)正整數(shù)。PrivateSubCommand1_Click()Dimcountn%,n%n=1:countn=0Don=n+1IfThenPrintncountn=countn+1EndIfLoopuntilcountn=5EndSub本題答案：【nmod3=1Andnmod5=1Andnmod7=1】8、【單選題】編程顯示100~500之間所有的水仙花數(shù)之和。(水仙花數(shù)是3位數(shù)，其各位數(shù)立方之和等于該數(shù)本身)PrivateSubForm_Click()Print100~500之間所有的水仙花數(shù)為：Dimx%,a%,b%,c%Forx=100To500a=xMod10b=(xMod100)\10c=x\100IfThenPrintxNextxEndSub本題答案：【x=a^3+b^3+c^3】9、【單選題】輸入兩個(gè)整數(shù)M，N，求它倆的最大公約數(shù)。PrivateSubCommand1_Click()Dimm%,n%，t%，x%m=Val(InputBox(請(qǐng)輸入第1個(gè)數(shù)m：))n=Val(InputBox(“請(qǐng)輸入第2個(gè)數(shù)n：”))IfmnThent=m:m=n:n=tFory=nTo1Step-1IfThenPrint最大公約數(shù)為：;yExitForEndIfNextyEndSub本題答案：【mMody=0AndnMody=0】10、【單選題】從鍵盤(pán)輸入一個(gè)數(shù)N，判斷是否為質(zhì)數(shù)。PrivateSubCommand1_Click()DimN%,I%,K%N=Val(InputBox(N=？))K=N-1ForI=2ToKIfNModI=0ThenExitForNextIIfThenPrintN;“是質(zhì)數(shù)ElsePrintN;“不是質(zhì)數(shù)EndIfEndSub本題答案：【IK】第六章單元測(cè)驗(yàn)1、【單選題】要想從子過(guò)程調(diào)用后返回兩個(gè)結(jié)果，下面子過(guò)程語(yǔ)句說(shuō)明合法的是（）。本題答案：【Subf(n%,m%)】2、【單選題】以下敘述錯(cuò)誤的是（）。本題答案：【表達(dá)式中可以調(diào)用Sub過(guò)程】3、【單選題】假定定義了一個(gè)過(guò)程SubAdd(aAsSingle,bAsSingle)，則正確的調(diào)用語(yǔ)句是()。本題答案：【Add12,12】4、【單選題】Sub過(guò)程與Function過(guò)程的區(qū)別是（）。本題答案：【Sub過(guò)程名不能返回值，而Function過(guò)程可通過(guò)過(guò)程名返回值?！?、【單選題】定義過(guò)程時(shí)，關(guān)鍵字Private的作用是（）。本題答案：【此過(guò)程只可以被本窗體模塊中的其他過(guò)程調(diào)用?！?、【單選題】同一個(gè)模塊內(nèi)的不同過(guò)程之間相互傳遞數(shù)據(jù)，以下敘述錯(cuò)誤的是（）。本題答案：【利用過(guò)程級(jí)變量】7、【單選題】過(guò)程中定義的變量，在過(guò)程結(jié)束后，對(duì)該過(guò)程保留變量的值，則應(yīng)該使用（）關(guān)鍵字。本題答案：【Static】8、【單選題】下面的程序輸出100-300之間的素?cái)?shù)，閱讀程序并填空。Functionsushu(ByvalxAsInteger)AsBooleanDimiAsIntegersushu=FalseFori=2Tosqr(x)IfxModi=0ThenexitforNextiIfi=sqr(x)Then_____________EndFunctionPrivateSubCommand1_Click()DimmAsIntegerForm=100To300Ifsushu(m)ThenPrintm;NextmEndSub本題答案：【sushu=True】9、【單選題】下列程序可以求方陣對(duì)角線元素之和。OptionBase1PrivateFunctiondjx(a%(),n%)AsIntegerDimi%Fori=1TonSum=Sum+a(i)NextiIfnMod20ThenSum=Sum-a(n\2+1,n\2+1)EndIfdjx=SumEndFunctionPrivateSubCommand1_Click()Dima%(),n%n=InputBox(n=)ReDima%(n,n)Fori=1TonForj=1Tona(i,j)=Int(Rnd*9+1)Printa(i,j);NextjPrintNextiPrint對(duì)角線元素之和為：_____________EndSub本題答案：【djx(a,n)】10、【單選題】下列程序用選擇法升序排序。閱讀程序并填空。OptionBase1PrivateSubpaixu(a())n=Ubound(a)Fori=1Ton-1k=iForj=i+1TonIfa(j)a(k)Thenk=jNextjt=a(i):a(i)=a(k):a(k)=tNextiEndSubPrivateSubCommand1_Click()Dimb(),iAsIntegerb=Array(15,8,4,13,6,10,17,1)n=UBound(b)Print排序前：;Fori=1TonPrintb(i);NextiPrint_____________Print排序后：;Fori=1TonPrintb(i);NextiEndSub本題答案：【callpaixu(b)】11、【填空題】在窗體的通用程序段中用關(guān)鍵詞Dim聲明的是()級(jí)變量。本題答案：【模塊】12、【填空題】變量的作用域可以分為過(guò)程級(jí)、()和全局級(jí)。本題答案：【模塊級(jí)】13、【填空題】在子過(guò)程的調(diào)用中，要按地址進(jìn)行參數(shù)傳遞，實(shí)參只能是變量或()。本題答案：【數(shù)組】14、【填空題】形參是數(shù)組時(shí)，只能采用（）傳遞方式。本題答案：【傳地址】7.1測(cè)驗(yàn)1、【單選題】文件號(hào)最大可取的值為（）本題答案：【512】7.2隨堂測(cè)驗(yàn)1、【單選題】下列關(guān)于順序文件說(shuō)法正確的是（）本題答案：【記錄按進(jìn)入的先后順序存放的，讀出也是按原寫(xiě)入的先后順序讀出】7.3隨堂測(cè)驗(yàn)1、【單選題】要從磁盤(pán)上讀入一個(gè)文件名為“c:\t1.txt”的順序文件，下列（）是正確的語(yǔ)句H、2本題答案：【F=c:\t1.txtOpenFForInputAs#2】7.4隨堂測(cè)驗(yàn)1、【單選題】使用Open語(yǔ)句打開(kāi)文件時(shí)，下面哪個(gè)打開(kāi)方式是以隨機(jī)方式打開(kāi)文件()本題答案：【Random】7.5隨堂測(cè)驗(yàn)1、【單選題】下面關(guān)于隨機(jī)文件的描述不正確的是()本題答案：【一個(gè)文件中記錄號(hào)不必唯一】第7章單元測(cè)驗(yàn)1、【單選題】要向已有數(shù)據(jù)的c:\test\test．txt順序文件添加數(shù)據(jù)，正確的文件打開(kāi)命令是（）。H、51l本題答案：【OpenC:\test\test.txtForAppendAs#511】2、【單選題】以下有關(guān)文件的說(shuō)法中，錯(cuò)誤的是（）。本題答案：【用Binary方式打開(kāi)一個(gè)隨機(jī)文件，每次讀寫(xiě)數(shù)據(jù)的字節(jié)長(zhǎng)度取決于隨機(jī)文件的記錄長(zhǎng)度】3、【單選題】以下有關(guān)文件的說(shuō)法中，正確的是（）本題答案：【打開(kāi)隨機(jī)文件時(shí)，參數(shù)Len的值可任意設(shè)置】4、【單選題】執(zhí)行語(yǔ)句OpenSample.datForRandomAs#1Len=50后，對(duì)文件Sample.dat中的數(shù)據(jù)能夠進(jìn)行的操作是()本題答案：【即可以讀，也可以寫(xiě)】5、【單選題】為建一個(gè)隨機(jī)文件，其中每一條記錄由多個(gè)不同數(shù)據(jù)類(lèi)型的數(shù)據(jù)項(xiàng)組成，應(yīng)使用（）。本題答案：【記錄類(lèi)型】6、【填空題】數(shù)據(jù)文件按訪問(wèn)模式分為：（）、隨機(jī)文件、和二進(jìn)制文件。本題答案：【順序文件】7、【填空題】數(shù)據(jù)文件按照存儲(chǔ)信息的形式可以分為ASCII文件和（）。本題答案：【二進(jìn)制文件】8、【填空題】在順序文件中可以一次讀入一行字符的語(yǔ)句是（）。本題答案：【LineInput】9、【填空題】如果用Open語(yǔ)句打開(kāi)文件時(shí)缺省了訪問(wèn)類(lèi)型，則VB默認(rèn)的訪問(wèn)類(lèi)型是（）本題答案：【隨機(jī)訪問(wèn)】10、【填空題】用Openc:\student.txtForinputAs#1打開(kāi)文件student.txt后，調(diào)用函數(shù)（）可判斷文件的記錄指針是否達(dá)到了文件末尾。本題答案：【Eof（1）】選擇題1、【單選題】確定一個(gè)窗體或控件的大小的屬性是()本題答案：【W(wǎng)idth和Height】2、【單選題】要判斷在文本框內(nèi)是否按下了空格鍵，最好在文本框的()事件過(guò)程進(jìn)行判斷。本題答案：【KeyPress】3、【單選題】以下說(shuō)法錯(cuò)誤的是（）本題答案：【一個(gè)工程中包含有Form1、Form2、Form3這3個(gè)窗體對(duì)象，當(dāng)單擊啟動(dòng)按鈕時(shí)，程序一定先運(yùn)行Form1窗體，而不能先運(yùn)行其他窗體對(duì)象。】4、【單選題】在立即窗口執(zhí)行如下語(yǔ)句，則輸出結(jié)果是（）。x$=Mydocumenty$=Deletec$=y$Ucase(Mid(x$,3,8))printc本題答案：【DeleteDOCUMENT】5、【單選題】InputBox函數(shù)返回值的類(lèi)型為()。本題答案：【字符串】6、【單選題】數(shù)學(xué)關(guān)系3≤x10表示成正確的VB表達(dá)式為()本題答案：【3=xANDx10】7、【單選題】如果變量a=12、b=the、c=sdf、d=30，則表達(dá)式a*3mod4d\4ANDbcANDdc的值是()。本題答案：【True】8、【單選題】VB的三種結(jié)構(gòu)化程序設(shè)計(jì)的基本結(jié)構(gòu)是（）。本題答案：【順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)】9、【單選題】下面語(yǔ)句執(zhí)行后，變量W的值為（）。W=Choose(Int(4.3),Red,Green,Blue,Yellow)本題答案：【Yellow】10、【單選題】下列程序的運(yùn)行結(jié)果是（）。a=7SelectCaseaCaseIs2b=a+1CaseIs3b=a+2CaseIs5b=a+3CaseElseb=a+4EndSelectPrintb本題答案：【8】11、【單選題】下列程序段的執(zhí)行結(jié)果為（）。A=2:B=1DoA=A+BB=B+1LoopWhileA5PrintA,B本題答案：【53】12、【單選題】下列程序段的輸出結(jié)果為（）。DimA(5)Fori=1to5A(i)=i*iNextiPrintA(i)本題答案：【下標(biāo)越界出錯(cuò)信息】13、【單選題】有關(guān)數(shù)據(jù)文件的正確描述是()本題答案：【因?yàn)殡S機(jī)文件中的記錄是等長(zhǎng)的，所以可以對(duì)文件中的記