計(jì)算機(jī)模擬題1

計(jì)算機(jī)模擬題1二．填空1.窗體是用來存放_(tái)____的容器，窗體的left和top屬性是相對_____對象的。2.對象的標(biāo)題文字的顏色是由_____屬性決定的。3.語句PrintNot10>15And8<5+2的輸出結(jié)果為_____。4.用Dimc(2to5)AsInteger語句定義的數(shù)組占用_____個(gè)字節(jié)的內(nèi)存空間。5.要編寫一個(gè)VisualBasic程序，該程序通過單選按鈕來設(shè)置文本框中字體的顏色。程序中用到的控件及其屬性清單如表7-1所示。表7-1控件名稱（Name）標(biāo)題（Caption）文本（Text）文本框Text1無“計(jì)算機(jī)等級考試”單選按鈕1Option1“紅色”無單選按鈕2Option2“綠色”無單選按鈕3Option3“藍(lán)色”無已知紅、綠、藍(lán)三種顏色分別用”vbRed”、”vbGreen”、”vbBlue”表示。請?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。PrivateSubOption1_Click()五【程序設(shè)計(jì)】'-------------------------------------------------'題目：編寫函數(shù)fun，函數(shù)的功能是：當(dāng)x的初值為10，'每年增長率為百分之一，計(jì)算多少年以后x的值能達(dá)到y(tǒng)，'并顯示所需年數(shù)的值（變量名必須為n）。'要求使用Do...LoopUntil語句來實(shí)現(xiàn)。'-------------------------------------------------'注意：請?jiān)谥付ǖ氖录?nèi)編寫代碼'代碼只能寫在兩行標(biāo)識(shí)之間'不得修改已有代碼'保存時(shí)不得修改窗體和工程文件的名稱及路徑，否則后果自負(fù)?！緟⒖即a】x=10n=0Dox=x*1.01n=n+1LoopUntilx>=yfun=n'------------------------------------------------'六【程序改錯(cuò)】'------------------------------------------------'1.題目：在下面的程序段中過程pd可以判斷任意三個(gè)數(shù)能'否構(gòu)成三角形的三邊，利用該過程的判定結(jié)果，'對能構(gòu)成三角形的計(jì)算其面積，構(gòu)不成的顯示"'不能構(gòu)成三角形"【改錯(cuò)1】 【參考答案】Dimx%,y%,z%,s!,bAsBoolean,hAsSingleDimx%,y%,z%,sasSingle,bAsBoolean,hAsSing、【改錯(cuò)2】 【參考答案】Ifb=notfalsethenifb=truethen【改錯(cuò)3】【參考答案】PublicFunctionpd(x%,y%,z%)AsBooleanPublicFunctionpd(x,y,z)AsBooleanPublicFunctionpd(xasInteger,yasInteger,zasInteger)AsBoolea2.'【程序改錯(cuò)】'------------------------------------------------'題目：下面程序可輸出如下圖形：'*'***'*****'*******'*********'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimmAsInteger,nAsInteger,sAsString,iAsInteger,jAsIntegern=4m=1s="*"Fori=5To1Step-1'**********ERROR**********PrintSpc(n)Forj=1To2*m-1Prints;NextjPrint'**********ERROR**********n=n+1'**********ERROR**********m=m-1Nexti【改錯(cuò)1】 【參考答案】PrintSpc(n);PrintSpc(i);?Spc(n);?Spc(i)【改錯(cuò)2】 【參考答案】n=n-1【改錯(cuò)3】 【參考答案】m=m+15.'------------------------------------------------'【程序改錯(cuò)】'------------------------------------------------'題目：以下程序段用于輸出100-300的所有素?cái)?shù)'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,iAsInteger,switAsIntegerForn=101To300Step2k=Int(Sqr(n))i=2'**********ERROR**********swit=1'**********ERROR**********Whileswit=0IfnModi=0Thenswit=1Else'**********ERROR**********i=i-1EndIfWendIfswit=0ThenPrintn;EndIfNextnEndSub【改錯(cuò)1】 錯(cuò)誤【學(xué)生答案】swit=1【參考答案】swit=0============================================================【改錯(cuò)2】0【參考答案】whilei<=kandswit=0whilek>=iAndswit=0【參考答案】i=i+1============================================================七．程序填空1.下面的程序?qū)崿F(xiàn)：從鍵盤輸入一個(gè)數(shù)字，將其插入一個(gè)有序數(shù)組中，插入后的數(shù)組仍保持有序。PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerFori=1To8a(i)=2*i-1Printa(i);NextiPrintx=InputBox("請輸入要插入的整數(shù)")'**********FILL**********_____i=8DoWhilea(i)>x'**********FILL**********_____i=i-1Loop'**********FILL**********Ifi>0Then_____Fori=1To9Printa(i);Nexti【空1【參考答案】a(0)=x【空2】【參考答案】a(i+1)=a(i)a(1+i)=a(i)【空3】 【參考答案】a(i+1)=xa(1+i)=x5'------------------------------------------------'【程序改錯(cuò)】'------------------------------------------------'題目：以下程序段用于輸出100-300的所有素?cái)?shù)'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,iAsInteger,switAsIntegerForn=101To300Step2k=Int(Sqr(n))i=2'**********ERROR**********swit=1'**********ERROR**********Whileswit=0IfnModi=0Thenswit=1Else'**********ERROR**********i=i-1EndIfWendIfswit=0ThenPrintn;EndIfNextnEndSub【改錯(cuò)1】 錯(cuò)誤【學(xué)生答案】swit=1【參考答案】swit=0============================================================【改錯(cuò)2】 錯(cuò)誤【學(xué)生答案】Whileswit=0【參考答案】whilei<=kandswit=0whilek>=iAndswit=0============================================================【改錯(cuò)3】 錯(cuò)誤【學(xué)生答案】i=i-1【參考答案】i=i+1八.窗體設(shè)計(jì)題目：請按照題目要求設(shè)計(jì)指定的窗體。建立如(圖1)所示界面。 ------------------------------------------------1、窗體設(shè)置1）名稱設(shè)置為"ColorPicker"。2）標(biāo)題內(nèi)容為"調(diào)色板"。3）隱藏控件菜單欄。4）邊框樣式設(shè)置為1。5）窗體啟動(dòng)位置設(shè)置為2。2、在窗體的左側(cè)添加圖片框（PictureBox）1）名稱設(shè)置為"picYanSe"。2）背景色設(shè)置為"&H000000FF&"。3、在圖片框的右側(cè)添加如下3個(gè)標(biāo)簽（Label），3個(gè)標(biāo)簽都為自動(dòng)調(diào)整大小1）名稱設(shè)置為"lblHong"；標(biāo)題內(nèi)容為"紅(R)"；窗體快捷鍵設(shè)置為"ALT+R"?！?。2）名稱設(shè)置為"lblLv"；標(biāo)題內(nèi)容為"綠(G)"；窗體快捷鍵設(shè)置為"ALT+G"。3）名稱設(shè)置為"lblLan"；標(biāo)題內(nèi)容為"藍(lán)(B)"；窗體快捷鍵設(shè)置為"ALT+B"。4、在標(biāo)簽的右側(cè)添加如下3個(gè)橫向滾動(dòng)條（HScrollBar）,3個(gè)滾動(dòng)條的最大值都為255。1）名稱設(shè)置為"scrHong"；值設(shè)置為255。2）名稱設(shè)置為"scrLv"。3）名稱設(shè)置為"scrLan"。5、在滾動(dòng)條的右側(cè)添加如下3個(gè)文本框（TextBox），3個(gè)文本框的文本對齊方式都為2。1）名稱設(shè)置為"txtHong"；文本內(nèi)容為"255"。2）名稱設(shè)置為"txtLv"；文本內(nèi)容為"0"。3）名稱設(shè)置為"txtLan"；文本內(nèi)容為"0"。6、在窗體的最下面添加如下2個(gè)命令按鈕（CommandButton），1）名稱設(shè)置為"cmdTianJia"；標(biāo)題內(nèi)容為"添加顏色(A)"；窗體快捷鍵設(shè)置為"ALT+A"。2）名稱設(shè)置為"cmdGuanBi"；標(biāo)題內(nèi)容為"關(guān)閉"。答案：標(biāo)準(zhǔn)答案：Name=ColorPicker學(xué)生答案：Name=Form1【窗體屬性評分】 錯(cuò)誤【窗體】結(jié)果文檔.FRM標(biāo)準(zhǔn)答案：BorderStyle=1'FixedSingle學(xué)生答案：BorderStyle=【窗體屬性評分】 錯(cuò)誤【窗體】結(jié)果文檔.FRM標(biāo)準(zhǔn)答案：Caption=調(diào)色板學(xué)生答案：Caption=Form1【窗體屬性評分】 錯(cuò)誤【窗體】結(jié)果文檔.FRM標(biāo)準(zhǔn)答案：ControlBox=0'False學(xué)生答案：ControlBox=【窗體屬性評分】 錯(cuò)誤【窗體】結(jié)果文檔.FRM標(biāo)準(zhǔn)答案：StartUpPosition=2'屏幕中心學(xué)生答案：StartUpPosition=3'窗口缺省【控件屬性評分】 錯(cuò)誤【控件】VB.PictureBox_picYanSe標(biāo)準(zhǔn)答案：Name=picYanSe學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.PictureBox_picYanSe標(biāo)準(zhǔn)答案：BackColor=&H000000FF&學(xué)生答案：BackColor=【控件屬性評分】 錯(cuò)誤【控件】VB.Label_lblLv標(biāo)準(zhǔn)答案：Name=lblLv學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.Label_lblLv標(biāo)準(zhǔn)答案：Caption=綠(&G):學(xué)生答案：Caption=【控件屬性評分】 錯(cuò)誤【控件】VB.Label_lblLan標(biāo)準(zhǔn)答案：Name=lblLan學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.Label_lblLan標(biāo)準(zhǔn)答案：Caption=藍(lán)(&B):學(xué)生答案：Caption=【控件屬性評分】 錯(cuò)誤【控件】VB.HScrollBar_scrHong標(biāo)準(zhǔn)答案：Name=scrHong學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.HScrollBar_scrHong標(biāo)準(zhǔn)答案：Value=255學(xué)生答案：Value=【控件屬性評分】 錯(cuò)誤【控件】VB.HScrollBar_scrLv標(biāo)準(zhǔn)答案：Name=scrLv學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.HScrollBar_scrLan標(biāo)準(zhǔn)答案：Name=scrLan學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.TextBox_txtHong標(biāo)準(zhǔn)答案：Name=txtHong學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.TextBox_txtHong標(biāo)準(zhǔn)答案：Text=255學(xué)生答案：Text=【控件屬性評分】 錯(cuò)誤【控件】VB.TextBox_txtLv標(biāo)準(zhǔn)答案：Name=txtLv學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.TextBox_txtLv標(biāo)準(zhǔn)答案：Text=0學(xué)生答案：Text=【控件屬性評分】 錯(cuò)誤【控件】VB.TextBox_txtLan標(biāo)準(zhǔn)答案：Name=txtLan學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.TextBox_txtLan標(biāo)準(zhǔn)答案：Text=0學(xué)生答案：Text=【控件屬性評分】 錯(cuò)誤【控件】VB.CommandButton_cmdTianJia標(biāo)準(zhǔn)答案：Name=cmdTianJia學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.CommandButton_cmdTianJia標(biāo)準(zhǔn)答案：Caption=添加顏色(&A)學(xué)生答案：Caption=【控件屬性評分】 錯(cuò)誤【控件】VB.CommandButton_cmdGuanBi標(biāo)準(zhǔn)答案：Name=cmdGuanBi學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.CommandButton_cmdGuanBi標(biāo)準(zhǔn)答案：Caption=關(guān)閉學(xué)生答案：Caption=三．Word.1、請?jiān)诘?段文字"曲曲折折的荷塘上面......"之上插入一段文字"荷塘月色"作為標(biāo)題，設(shè)置字體為"隸書"，字形為"加粗，傾斜"，字號(hào)為"18"，字體效果為"陰文"，顏色為"綠色"，對齊方式為"居中"。2、在文字"荷塘月色"下面再插入一段文字"朱自清"，設(shè)置對齊方式為"右對齊"。3、設(shè)置第3段"曲曲折折的荷塘上面......而葉子卻更見風(fēng)致了。"首字下沉，行數(shù)為"2行"，首字字體為"隸書"，距正文"1磅"4、設(shè)置第4段"月光如流水一般......卻又像是畫在荷葉上。"底紋圖案式樣為"淺色網(wǎng)格"，圖案顏色為"黃色"，應(yīng)用范圍為"段落"，段前間距為"12磅"，段后間距為"12磅"5、設(shè)置最后一段的最后一句"于是又記起......蓮子清如水"文字的動(dòng)態(tài)效果為"七彩霓虹"?！緝?nèi)容】 錯(cuò)誤標(biāo)準(zhǔn)答案：荷塘月色學(xué)生答案：無【字體】 錯(cuò)誤標(biāo)準(zhǔn)答案：隸書學(xué)生答案：無【加粗】 錯(cuò)誤標(biāo)準(zhǔn)答案：True學(xué)生答案：無【斜體】 錯(cuò)誤標(biāo)準(zhǔn)答案：True學(xué)生答案：無【字號(hào)】 錯(cuò)誤標(biāo)準(zhǔn)答案：小二或18學(xué)生答案：無【陰文】 錯(cuò)誤標(biāo)準(zhǔn)答案：True學(xué)生答案：無【顏色】 錯(cuò)誤標(biāo)準(zhǔn)答案：綠色學(xué)生答案：無【對齊方式】 錯(cuò)誤標(biāo)準(zhǔn)答案：居中對齊學(xué)生答案：無【內(nèi)容】 錯(cuò)誤標(biāo)準(zhǔn)答案：朱自清學(xué)生答案：無【對齊方式】 錯(cuò)誤標(biāo)準(zhǔn)答案：右對齊學(xué)生答案：無【下沉文字】 錯(cuò)誤標(biāo)準(zhǔn)答案：曲學(xué)生答案：無【首字下沉字體】 錯(cuò)誤標(biāo)準(zhǔn)答案：隸書學(xué)生答案：無【首字下沉行數(shù)】 錯(cuò)誤標(biāo)準(zhǔn)答案：2學(xué)生答案：無【首字下沉距正文位置】 錯(cuò)誤標(biāo)準(zhǔn)答案：1學(xué)生答案：無【底紋顏色(前景)】 錯(cuò)誤標(biāo)準(zhǔn)答案：黃色學(xué)生答案：自動(dòng)或RGB(0,0,0)【底紋圖案樣式】 錯(cuò)誤標(biāo)準(zhǔn)答案：淺色網(wǎng)格學(xué)生答案：清除【段前間距】 錯(cuò)誤標(biāo)準(zhǔn)答案：12學(xué)生答案：0【段后間距】 錯(cuò)誤標(biāo)準(zhǔn)答案：12學(xué)生答案：0【字體動(dòng)畫效果】 錯(cuò)誤標(biāo)準(zhǔn)答案：七彩霓虹四．Excel在工作表sheet1中完成如下操作：1、設(shè)置表格中"借書證號(hào)"列單元格的水平對齊方式為"居中"。2、利用公式計(jì)算出總共借出的冊數(shù)，并將結(jié)果放在相應(yīng)單元格中。3、篩選借書冊數(shù)大于4本的數(shù)據(jù)。在工作表sheet2中完成如下操作：4、設(shè)置標(biāo)題"亞美華電器集團(tuán)"單元格字號(hào)為"16"，字體為"楷體_GB2312"。5、為D7單元格添加批注，內(nèi)容為"純利潤"。6、將表格中的數(shù)據(jù)以"銷售額"為關(guān)鍵字，按降序排序。在工作表sheet3中完成如下操作：7、將工作表重命名為"成績表"。8、利用"姓名"和"語文"列數(shù)據(jù)建立圖表，圖表標(biāo)題為"語文成績表"，圖表類型為"堆積面積圖"，并作為其中對象插入Sheet3中。選擇8.下列Excel運(yùn)算符的優(yōu)先級最高的是().A、*B、^C、+D、/【參考答案】 B【學(xué)生答案】[未答此題]9.直接刪除文件,不送入回收站的快捷鍵是().A、<Alt>+<Del>B、<Del>C、<Shift>+<Del>D、<Ctrl>+<Del>【參考答案】 C【學(xué)生答案】[未答此題]10.電子郵件的特點(diǎn)之一是()A、采用存儲(chǔ)一轉(zhuǎn)發(fā)方式在網(wǎng)絡(luò)上逐步傳遞信息，不象電話那樣直接、即時(shí)，但費(fèi)用教低B、只要在通信雙方的計(jì)算機(jī)之間建立起直接的通信線路后，便可快速傳遞數(shù)字信息C、比郵政信函、電報(bào)、電話、傳真都更快D、在通信雙方的計(jì)算機(jī)都開機(jī)工作的情況下方可快速傳遞數(shù)字信息【參考答案】 A【學(xué)生答案】[未答此題]11.設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體LoopWhile<條件>則以下敘述中錯(cuò)誤的是______。A、如果“條件”總是為True，則不停地執(zhí)行循環(huán)體B、若“條件”是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體C、循環(huán)體中可以使用ExitDo語句D、“條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)【參考答案】 B【學(xué)生答案】[未答此題]12.設(shè)在窗體上有一個(gè)名稱為Combo1的組合框，含有5個(gè)項(xiàng)目，要?jiǎng)h除最后一項(xiàng)，正確的語句是______。A、Combo1.RemoveItem5B、Combo1.RemoveItemCombo1.ListCountC、Combo1.RemoveItemCombo1.TextD、Combo1.RemoveItem4【參考答案】 錯(cuò)誤D【學(xué)生答案】[未答此題]13.下面程序運(yùn)行時(shí)，若輸入"VisualBasicProgramming"，則在窗體上輸出的是______。PrivateSubCommand1_Click()Dimcount(25)AsInteger,chAsStringch=UCase(InputBox("請輸入字母字符串"))Fork=1ToLen(ch)n=Asc(Mid(ch,k,1))-Asc("A")Ifn>=0Then【參考答案】 錯(cuò)誤C【學(xué)生答案】[未答此題]14.在窗體上畫一個(gè)文本框，一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為Text1、Command1和Label1，文本框的Text1屬性設(shè)置為空白，然后編寫如下事件過程：PrivateSubCommand1_Click()x=Int(Val(Text1.Text)+0.5)Label1.Caption=Str(x)EndSub程序運(yùn)行后，在文本框中輸入28.653，單擊命令按鈕，標(biāo)簽中顯示的內(nèi)容是：______。A、29B、30C、27D、28【參考答案】 錯(cuò)誤B【學(xué)生答案】[未答此題]15.以下敘述中錯(cuò)誤的是______。A、用Shell函數(shù)可以調(diào)用能夠在Windows下運(yùn)行的程序B、用Shell函數(shù)可以調(diào)用可執(zhí)行文件，也可調(diào)用VisualBasic的內(nèi)部函數(shù)C、調(diào)用Shell函數(shù)的格式應(yīng)為：<變量名>=Shell(......)D、用Shell函數(shù)不能執(zhí)行DOS命令【參考答案】 錯(cuò)誤A【學(xué)生答案】[未答此題]16.函數(shù)過程F1的功能是：如果參數(shù)b為奇數(shù)，則返回值為1，否則返回值為0。以下能正確實(shí)現(xiàn)上述功能的代碼的是______。A、FunctionF1(bAsInteger)IfbMod2<>0ThenReturn0ElseReturn1EndIfEndFunctionB、FunctionF1(bAsInteger)IfbMod2=0ThenF1=1ElseF1=0EndIfEndFunctionC、FunctionF1(bAsInteger)IfbMod2=0ThenF1=0ElseF1=1EndIfEndFunctionD、FunctionF1(bAsInteger)IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunction【參考答案】 錯(cuò)誤C【學(xué)生答案】[未答此題]17.以下敘述中錯(cuò)誤的是______。A、在多窗體程序中，每個(gè)窗體都可以建立自己的菜單系統(tǒng)B、如果把一個(gè)菜單項(xiàng)的Enabled屬性設(shè)置為False，則該菜單項(xiàng)不可見C、除分隔線外，所有菜單項(xiàng)都能接收Click事件D、下拉式菜單和彈出式菜單都用菜單編輯器建立【參考答案】 錯(cuò)誤C【學(xué)生答案】[未答此題]18.在窗體上有一個(gè)名稱為Check1的復(fù)選框數(shù)組（含4個(gè)復(fù)選框），還有一個(gè)名稱為Text1的文本框，初始內(nèi)容為空。程序運(yùn)行時(shí)，單擊任何復(fù)選框，則把所有選中的復(fù)選框后面的文字羅列在文本框中（見圖）。下面能實(shí)現(xiàn)此功能的事件過程是______。A、PrivateSubCheck1_Click(IndexAsInteger)Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'雙引號(hào)中是空格EndIfNextkEndSubB、PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'雙引號(hào)中是空格ExitForEndIfNextkEC、PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(Index).Value=1ThenText1.Text=Text1.Text&Check1(Index).Caption&""'雙引號(hào)中是空格EndIfNextkEndSubD、PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'雙引號(hào)中是空格EndIfNextkEndSub【參考答案】 錯(cuò)誤D19.下列哪條語句是錯(cuò)的______。A、exitfunctionB、exitwhileC、exitsubD、exitdo【參考答案】 錯(cuò)誤B【學(xué)生答案】[未答此題]20.設(shè)有以下程序：PrivateSubForm_Click()x=50Fori=1To4y=InputBox("請輸入一個(gè)整數(shù)")y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub程序運(yùn)A、50B、120C、100D、70【參考答案】 錯(cuò)誤C【學(xué)生答案】[未答此題21.以下關(guān)于函數(shù)過程的敘述中，正確的是______。A、函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系B、當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞C、在函數(shù)過程中，過程的返回值可以有多個(gè)D、如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型【參考答案】 錯(cuò)誤A【學(xué)生答案】[未答此題]22.把窗體的KeyPreview屬性設(shè)