電大《VisualBasic程序設(shè)計》形考作業(yè)任務(wù)01考試題及答案

經(jīng)典word整理文檔，僅參考，雙擊此處可刪除頁眉頁腳。本資料屬于網(wǎng)絡(luò)整理，如有侵權(quán)，請聯(lián)系刪除，謝謝！最新電大《VisualBasic程序設(shè)計》形考作業(yè)任務(wù)01考試題及答案VisualBasic01-06網(wǎng)考試題及答案100%通過VisualBasic程序設(shè)計》形考共有61至任務(wù)21至任務(wù)6需在考試中多次抽取試卷，直到出現(xiàn)01任務(wù)_0001、02任務(wù)03任務(wù)04任務(wù)05任務(wù)06任務(wù)_0001試卷，就可以按照該套試卷答案答題。做考題時，利體化答案，敬請查看。01任務(wù)01任務(wù)_0001一、單項選擇題（共25道試題，共50啟動VBA.窗體B.程序C.文件工程2.A..exeB..cabC..txtD..ocx3.當(dāng)一個工程中含有多個窗體時，A.啟動VB時創(chuàng)建的第一個窗體B.第一個添加的窗體最后一個添加的窗體D.在“工程屬性”對話框中指定的窗體4.下列A.應(yīng)用程序的界面是窗體B.應(yīng)用程序的界面是對象C.每個應(yīng)用程序都要生成一個工程D.一個應(yīng)用程序由若干個VisualBasic文件組成5.A.工程文件B.窗體文件C.標(biāo)準(zhǔn)模塊文件D.類模塊文件6.當(dāng)運行程序時，系統(tǒng)自動執(zhí)行啟動窗體的（）事件過程。A.LoadB.ClickC.UnloadD.GotFocus7.VB集成開發(fā)環(huán)境中，A.工具欄B.工具箱C.屬性窗口D.工程管理器8.確定一個A.Top或LoftB.Top和LoftC.Width或HeightD.Width和Height9.A.窗體的標(biāo)題由Caption屬性確定B.窗體的Name屬性與Caption屬性相同C.窗體的背景圖片由其Picture屬性設(shè)定通過設(shè)置Icon屬性可使窗體獲得最小花時的圖標(biāo)10.在VB中，要控件或語句，然后按的鍵是（）A.HelpB.F1C.F10D.Enter11.A.一個控件具有什么屬性是VisualBasic不能改變B.一個控件具有什么屬性是VisualBasic預(yù)先設(shè)計好的，用戶可以改變C.一個控件的屬性既可以在屬性窗口中設(shè)置，也可以用程序代碼設(shè)置D.一個控件的屬性在屬性窗口中設(shè)置后，還可以利用程序代碼為其設(shè)置新值在界面設(shè)計時，雙擊窗體中的對象后，VisualBasicA.立即窗口B.屬性窗口C.代碼窗口D.工程資源管理器窗口13.當(dāng)使用上下文相關(guān)的幫助時，選擇要幫助的內(nèi)容，然后按（）鍵，就可出現(xiàn)MSDN窗口直接顯示所需的幫助信息。A.HelpB.F10C.EscD.F114.如果想讓文本框中的內(nèi)容在運行時不能編輯，需將文本框的（）屬性設(shè)置為。A.LockedB.MultiLineC.TabStopD.Visible15.在VB6.0集成A.編輯、調(diào)試、運行程序，但不能生成可執(zhí)行文件B.編輯、D.生成可執(zhí)行文件16.VisualBasic應(yīng)用程序處于執(zhí)行模式時，這時A.B.設(shè)計界面可以設(shè)計界面，不能編輯代碼既能設(shè)計界面，也能編寫代碼17.要改變控件的寬度，應(yīng)該修改控件的（）屬性。A.TopB.LeftC.WidthD.Height18.Timer控件只有一個事件，該事件的名稱是（）A.LoadB.TimerC.ClickD.Run19.要在命令按紐上顯示圖形，應(yīng)首先設(shè)置的屬性是（）A.EnabledB.StyleC.CaptionD.Icon20.后綴為.frm的文件表示VB的（A.窗體文件B.類模塊文件C.工程文件D.標(biāo)準(zhǔn)類模塊文件21.無論何種控件，共同具有的屬性是（）A.TextB.NameC.CaptionD.ForeColor22.情況下，VB在應(yīng)用程序執(zhí)行時，總是把（）指定為啟動窗體。A.不包含任何控件的窗體B.設(shè)計時的第一個窗體C.包含控件最多的窗體D.命名為Frm1的窗體23.該修改控件的（）屬性。A.TopB.LeftC.WidthD.Height24.VisualBasic是一種面向?qū).B.程控件、過程和模塊25.設(shè)置其定時是否開啟的屬性是（）A.IndexB.TagC.EnabledD.Left二、作2501.設(shè)計一個簡單的倒計時程序，要求：（1）在文本框中輸入倒計時的分鐘數(shù)后，單擊開始按紐就開始倒計時，倒計時結(jié)束時，彈出時間到的信息框。程序運行界面如圖5所示：（2）將應(yīng)用程序打包，并安裝運行。件名為vbxk1-05.vbpvbxk1-05.frmvbxk1-05。參考答案：程序代碼如下：DimttAsIntegerLabel1.Caption=“現(xiàn)在開始倒計時“Command1.Visible=FalseTimer1.Enabled=Truett=Val(Text1)*60EndSubPrivateSubCommand1_Click()PrivateSubTimer1_Timer()tt=tt-1Text1=ttIftt=0Thena=MsgBox(“時間到!“,vbOKOnly,“倒計時“)Command1.Visible=TrueTimer1.Enabled=FalseEndIfEndSub2.在名稱為Form1Text1和Text2，它們的高、寬分別為2400和2400。窗體的標(biāo)題為“窗口”。請通過屬性窗口設(shè)置適當(dāng)?shù)膶傩詽M足以下要求：1）Text2可以顯示多行文本，且有垂直和水平兩個滾動條；2）運行時在Text1中輸入的字符都顯示為。運行后的窗體如圖1所示。件名為vbxk1-01.vbpvbxk1-01.frmvbxk1-01。參考答案：程序代碼如下：PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuFormatEndIfEndSubPrivateSubM1_Click()Text1.FontBold=TrueEndSubPrivateSubM2_Click()Text1.FontItalic=TrueEndSubPrivateSubM3_Click()Text1.FontUnderline=TrueEndSub02任務(wù)02任務(wù)_0001一、單項選擇題（共25道試題，共501.能夠?qū)崿F(xiàn)窗體總在最前端界面效果的API函數(shù)是（A.SetWindowPosB.SetWindowAPIC.SetWindowShapeD.DeclareAPI2.在窗體上畫兩個文本框（其Name屬性分別為Text1和Tex12Name屬性為Command1,然后編寫如下事件過程：PrivateSubCommand1_Click()x=1:n=0DoWhilex100x=x*10n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序運A.10和0B.2和100C.3和50D.4和1683.下面程序段的循環(huán)結(jié)構(gòu)執(zhí)行后，iFori=1To10Step2y=y+iNextiPrintiA.25B.10C.11D.因為y的初值不知道，所以不確定4.把字符串型轉(zhuǎn)換為數(shù)值型需要使A.ValB.StrC.AscD.Chr5.以下可以作為VisualBasic變量名的A.SINB.CO1C.COS（）D.X（）6.可通過設(shè)置一普通窗體的何種屬性，將它轉(zhuǎn)變成MDI子窗體（A.MDIChild=TrueB.WindowState=NormalC.MDIChild=FalseD.WindowState=Maximized7.下列關(guān)于過程A.過程的傳值調(diào)用是將實參的具體值傳遞給形參B.過程的傳址調(diào)用是將實參在內(nèi)存的地址傳遞給形參C.過程的傳值調(diào)用參數(shù)是單向傳遞的，過程的傳址調(diào)用參數(shù)是雙向傳遞的D.無論過程傳值調(diào)用還是過程傳址調(diào)用，參數(shù)傳遞都是雙向的8.數(shù)學(xué)式子Sin30°寫成VBA.Sin30B.Sin（）C.SIN（30°）D.Sin（30*3.14/180）9.“x是小于80的非負(fù)數(shù)，用VBA.0￡x80B.0=x80C.0=xAndx80D.0=xOrx8010.下面正確的A.x+y=30B.y=p*r*rC.y=x+30D.3y=x11.A.都要由用戶定義B.有的由用戶定義，有的由系統(tǒng)定義C.都是由系統(tǒng)預(yù)先定義D.是不固定的12.如果要在窗體代碼編輯器的通用部分定義私有Sub過程，則正確的語句是（A.PublicSubB.PrivateSubC.PublicFunctionD.PrivateFunction13.A.TimeB.YearC.NowD.Date14.賦值語句：a=123+MID(“*****”,3,2)執(zhí)行后，aA.123B.34C.*****D.15715.DimA(1To6,6)AsString定義的數(shù)A.36B.49C.42D.5016.VB提供了結(jié)構(gòu)化程序設(shè)計的3種基本結(jié)構(gòu)，這3A.遞歸結(jié)構(gòu)，選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)B.選擇結(jié)構(gòu)，過程結(jié)構(gòu)，順序結(jié)構(gòu)選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)，順序結(jié)構(gòu)17.要退出Do…Loop循環(huán)，可使用的語句是（）語句。A.ExitB.ExitForC.EndDoD.ExitDo如果希望以模態(tài)方式顯示窗體Form1A.Form1.Show0B.Form1.ShowC.Form1.Show1D.Form1.Show0,119.表達式6+10Mod4*2+1A.9B.11C.1D.320.下列4A.45xyzB.SingleC.x-yzD.x_yz21.在窗體上按下鼠標(biāo)左鍵時產(chǎn)生的事件是（）A.KeyDownB.MouseUpC.MouseMoveD.MouseDown22.A.一行只能寫一條語句B.一條語句可以分多行書寫C.每行的首字符必須大寫長度不能超過255個字符可通過何種屬性判斷ListA.ListIndexB.ListCountC.ListTextD.LisItem24.以下程序段x=1y=4DoUntily4x=x*yy=y+1LoopPrintxA.1B.4C.8D.2025.A.ValB.StrC.AscD.Chr2501.創(chuàng)建一個多功能計算器程序，程序運算界面如圖2-6所示。要求：用控件數(shù)組設(shè)計數(shù)字按鈕（）用API函數(shù)實現(xiàn)總在前面效果”注意：存盤時保存在以學(xué)號或姓名命名的文件夾下，工程文件名為vbxk2-03.vbpvbxk2-03.frm名為vbxk2-03。參考答案：程序代碼如下：OptionExplicitPrivateSubCmd1_Click()DimjAsIntegerOpenApp.Path“＼in.txt“ForInputAs#1Forj=1To100Input#1,i(j)Text1.Text=Text1.Texti(j)Space(5)NextClose#1EndSubPrivateSubCmd2_Click()DimjAsIntegerDimkAsIntegerDimi(1To100)AsIntegerDimtempAsIntegerDimflagAsBooleanForj=1To100flag=FalseFork=1To100-jIfi(k)i(k+1)Thentemp=i(k)i(k)=i(k+1)i(k+1)=tempflag=TrueEndIfNextIfNotflagThenExitForEndIfNextText1.Text=““Forj=1To100Text1.Text=Text1.Texti(j)Space(5)Nextputdatai,100EndSub2.編寫某市公用電話收費程序，程序運行界面如圖2-103分鐘以下，收費0.5元；3分鐘以上，則每超過一分鐘加收0.15元；在7:00～19:00之間通話，按上述收費標(biāo)準(zhǔn)全價收費，在其它時間通話者，一律按收費標(biāo)準(zhǔn)的半價收費。要求程序運行后，點擊開始通話按鈕，在文本框text1中以hh:mm:ss結(jié)束通話按鈕，在文本框text2hh:mm:ss擊計費text3text4中顯示通話的費用，點擊清楚按鈕，清楚全部數(shù)據(jù)。件名為vbxk2-07.vbpvbxk2-07.frmvbxk2-07。參考答案：程序代碼如下：PrivateSubOption1_Click()Text1.Alignment=0EndSubPrivateSubOption2_Click()PrivateSubOption3_Click()Text1.Alignment=2Text1.Alignment=1EndSubEndSubPrivateSubOption4_Click()Text1.FontName=“宋體“EndSubPrivateSubOption5_Click()黑體“EndSub03任務(wù)03任務(wù)_00011.在窗體上建立一個驅(qū)動器列表框、目錄列表框、文件列表框、圖片框、文本框。要求程序運行后，驅(qū)動器列表框Drive1的默認(rèn)驅(qū)動器設(shè)置為DFile1中所列的圖片*.bmp,*.gif和則相應(yīng)的圖片顯示在圖片框Picture1中，文件的路徑顯示在文本框中。程序運行結(jié)果如圖3-1所示。件名為vbxk3-01.vbpvbxk3-01.frmvbxk3-01。參考答案：程序代碼如下：PrivateSubFile1_Click()Command1.Enabled=TrueText1.Text=File1.Path+File1.FileNameDimobjPicAsPictureSetobjPic=LoadPicture(Text1.Text)IfFile1.ListCount0Then＇Picture1.Picture=objPicEndIfEndSubPrivateSubForm_Load()Drive1.Drive=“d:“Dir1.Path=“d:＼“＇Drive1.DriveDir1.RefreshFile1.Pattern=“*.jpg;*.bmp;*.gif|(*.bmp,*.gif,*.jpg)“File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSub2.利用文件系統(tǒng)控件編寫一個Word文件查找顯示程序，程序運行界面如圖3-2所示。要求：（1）在文件列表框中只顯示后綴為.doc的文件。（2工程－部件菜單項引入“MicrosoftRichTextBoxControl6.0”RichTextBox控件添加到工具箱中，用這個控件顯示RTF格式的Word文件。（3）單擊打開按鈕，在文本框中顯示RTF格式的Word文件。件名為vbxk3-02.vbpvbxk3-02.frmvbxk3-02。參考答案：程序代碼如下：PrivateSubCommand1_Click()DimwdAppAsNewWord.ApplicationDimwdDocAsWord.DocumentDimstrFileNameAsStringstrFileName=File1.Path+“wdApp.Visible=False＼“+File1.FileNameSetwdDoc=wdApp.Documents.Open(strFileName)wdDoc.SaveAs“C:＼臨時文件.rtf“,6wdDoc.ClosewdApp.QuitRichTextBox1.FileName=“C:＼臨時文件.rtf“Kill“c:＼臨時文件.rtf“EndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub04任務(wù)04任務(wù)_00041100開發(fā)一個如圖4-1所示指針式時鐘程序。要求：（1）要求用Shap控件、Line控件和Label控件設(shè)計表盤，用圖形方法動態(tài)生成指針，用時鐘控件控制時鐘的轉(zhuǎn)動。（2）圓形表盤在窗體的中央，其直徑要求與窗體的高度和寬度相等。件名為vbxk4-01.vbpvbxk4-02.frmvbxk4-01。參考答案：程序代碼如下：Constpi=3.***-*****3PrivateSubForm_Load()Form1.Scale(-14,14)-(14,-14)EndSubPrivateSubTimer1_Timer()DimxAsIntegerDimyAsIntegerDimsec,min,hrAsIntegersec=Second(Time)min=Minute(Time)Form1.DrawWidth=2x=9*Sin(sec*pi/30)y=9*Cos(sec*pi/30)Form1.Line(0,0)-(x,y),vbRedForm1.DrawWidth=3x=7*Sin(min*pi/30)y=7*Cos(min*pi/30)Form1.Line(0,0)-(x,y)Form1.DrawWidth=4hr=hr+min/60x=6*Sin(hr*pi/6)hr=Hour(Time)Form1.Clsy=6*Cos(hr*pi/6)Form1.Line(0,0)-(x,y)EndSub05任務(wù)05任務(wù)_0001一、作品題（共1道試題，共1001.開發(fā)一個成InsertUpdate刪除（）和查詢（）功能。開發(fā)步驟及要求：１．準(zhǔn)備工作建立名稱為－成績查詢文件夾，在該圖標(biāo)開發(fā)過程中的全部文件存放在－成績查詢文件夾中。２．建立成績查詢數(shù)據(jù)庫用MicrosoftAccess或SQLServer創(chuàng)建一個名稱為成績的數(shù)據(jù)庫，其中包含三張數(shù)據(jù)表，即學(xué)生－－－5、表－6所參考答案：程序代碼如下：--創(chuàng)建數(shù)據(jù)庫；createdatabasestudent;go--usestudent;go--創(chuàng)建成績表createtablestudentScore(stuidvarchar(10)primarykey,--學(xué)號cidvarchar(10),--課程號socrevarchar(20)--成績)go--創(chuàng)建學(xué)生情況表createtablestudentStatus(stuidvarchar(10)primarykey,stuNamevarchar(20))go--創(chuàng)建課程情況表createtablecurriculum(cidvarchar(10),cNamevarchar(50))go--添加記錄insertintostudentStatusvalues(＇001＇,＇張紅＇)goinsertintostudentStatusvalues(＇002＇,＇李強＇)goinsertintostudentStatusvalues(＇003＇,＇王麗＇)goinsertintocurriculumvalues(＇001＇,＇數(shù)據(jù)庫原理＇)goinsertintocurriculum...06任務(wù)06任務(wù)_0001（共1道試題，共100程序調(diào)試參考答案：程序代碼如下：（1）根據(jù)如下所給程序代碼進行程序調(diào)試PrivateSubCommand1_Click()List1.AddItemText.TextEndSub排序按鈕的Click事件PrivateSubCommand2_Click()Dimi,jAsInteger＇定義數(shù)組，以List1的項目個數(shù)為數(shù)組維數(shù)DimstrList(List1.ListCount)AsInteger＇定義中間臨時變量，用于數(shù)據(jù)交換DimstrTmpAsIntegerList1中的項目導(dǎo)入到strList數(shù)組中Fori=0ToList1.ListCountstrList(i)=List1.List(i)Nexti＇按“冒泡”算法完成排序工作Fori=0ToUBound(strList)Forj=i+1ToUBound(strList)IfstrList(i)strList(j)ThenstrTmp=strList(i)strList(i)=strList(j)strLis