VisualBasic程序設(shè)計作業(yè)題解

/VisualBasic程序設(shè)計作業(yè)題解作業(yè)3一、選擇題1．VisualBasic依據(jù)計算機訪問文件的方式將文件分成三類，其中不包括（）。A．依次文件B．Unix文件C．二進制文件D．隨機文件答案：B2．隨機文件進行文件讀寫的單位是（）。A．字節(jié)B．記錄C．整個文件D．字符答案：B3．為了使書目路徑列表Dir1的內(nèi)容符合驅(qū)動器列表框Drive1的選擇，應(yīng)當(dāng)（）。A．在Dir1_Click事務(wù)中加入Dir1.Path=Drive1.DriveB．在Drive1_Click事務(wù)中加入Dir1.Path=Drive1.DriveC．在Dir1_Click事務(wù)中加入Drive1.Path=.Drive.PathD．在Dir1_Click事務(wù)中加入Drive1.Path=.Dir1.Path答案：A4．為了使Drive1驅(qū)動器列表框、Dir1書目路徑列表框和File1文件列表框能同步協(xié)調(diào)工作，須要在（）。A．Drive1的Change事務(wù)過程中加入Drive1.Drive=Dir1.Path,在Dir1的Change事務(wù)過程中加入Dir1.Path=File1.Path代碼。B．Drive1的Change事務(wù)過程中加入Dir1.Path=Drive1.Drive,在Dir1的Change事務(wù)過程中加入File1.Path=Dir1.Path代碼。C．Dir1的Change事務(wù)過程中加入Dir1.Path=Drive1.Drive,在File1的Click事務(wù)過程中加入File1.Path=File1.FileName代碼。D．Dir1的Change事務(wù)過程中加入Dir1.Path=Drive1.Drive,在File1的Click事務(wù)過程中加入File1.Path=Dir1.FileName代碼。答案：C5．下面關(guān)于依次文件的描述正確的是（）。A．每條記錄的長度必需相同B．可通過編程對文件中的某條記錄便利地修改C．?dāng)?shù)據(jù)只能以ASCII碼形式存放在文件中，所以可通過文本編輯軟件顯示D．文件的組織結(jié)構(gòu)困難答案：C6．KILL語句在VB語言中的功能是（）。A．清內(nèi)存B．清病毒C．刪除在磁盤上的文件D．清屏幕答案：C7．可用來變更坐標(biāo)度量單位的是（）。A．Drawstyle屬性B．DrawWidth屬性C．Scale屬性D．ScaleMode屬性答案：D8．以下的屬性和方法中，可重定義坐標(biāo)系的是（）。A．Drawstyle屬性B．DrawWidth屬性C．Scale屬性D．ScaleMode屬答案：B9當(dāng)運用Line方法畫直線后，當(dāng)前坐標(biāo)在（）。A．（0，0）B．直線起點C．直線終點D．容器的中心答案：A10．Line（200，200）—Step（500，500）將在窗體（）畫始終線。A．（200，200）到（500，500）B．（200，200）到（300，300）C．（200，200）到（700，700）D．（300，300）到（500，500）答案：C11．設(shè)置對象的邊框類型的屬性是（）。A．DrawstyleB．BorderstyleC．DrawWidthD．ScaleMode答案：B12．為了清除圖片框Picture1中的圖形，應(yīng)采納的正確方法是（）。A．選擇圖片框，然后按Del鍵B．執(zhí)行語句Picture1.Pictyre=LoadPicture(“”)C．執(zhí)行語句Picture1.Pictyre=””D．選擇圖片框，在窗口屬性中選擇Picture屬性條，然后按回車鍵答案：B13．要繪制多種形態(tài)的圖形，須要設(shè)置Shape控件的（）屬性。A．ShapeB．BordrestyleC．FillStyleD．Style答案：A14．要繪制多種式樣的直線，須要設(shè)置Linee控件的（）屬性。A．ShapeB．BordrestyleC．FillStyleD．Style答案：B15．假如打算讀文件，打開依次文件“text.dat”的正確語句是（）。A．open”text.dat”ForwriteAs#1B．open”text.dat”ForBinaryAs#1C．open”text.dat”ForInputAs#1D．open”text.dat”ForRandomAs#1答案：C16．假如打算向隨機文件寫入數(shù)據(jù)，正確的語句是（）。A．Print#1,recB．Write#1,recC．Put#1,recD．Get#1,rec答案：C17．下列“CommonDialog1”控件程序代碼，Commondialog1.Action=1,代表（）。A．文件另存為B．打開文件C．色調(diào)D．打印答案：B18．FileFiles.Pattern=”*.bat”程序代碼執(zhí)行后，會顯示（）。A．只包含擴展文件名為“*.bat”的文件B．第一個bat文件C．包含全部文件D．會顯示磁盤的路徑答案：A19．下列數(shù)據(jù)對象數(shù)據(jù)模型中采納OLEDB訪問數(shù)據(jù)庫的是（）。A．DAOB．RDOC．ADOD．RDO或ADO答案：C20．設(shè)ADOrs為Recordset對象，從“學(xué)生基本狀況表”中獲得全部記錄的語句是（）。A．ADOrs.Open“select*From學(xué)生基本狀況表”B．ADOrs.Execute“select*From學(xué)生基本狀況表”C．ADOrs.New“select*From學(xué)生基本狀況表”D．ADOrs.Select“select*From學(xué)生基本狀況表”答案：A21．VB中將變量x1聲明為Excel應(yīng)用程序?qū)ο蟮姆椒ㄊ牵ǎ?。A．Dimx1AsExcel.ApplicationB．Dimx1AsExcel.WorkbookC．Dimx1AsExcel.WorksheetD．Dimx1AsExcel.Worksheets答案：A二、填空題1．假如要新建一個依次文件，用Open語句時，操作方式關(guān)鍵詞是。答案：Output2．在VisualBasic程序中實現(xiàn)復(fù)制文件”c:\”到d:盤根書目下的語句為。答案：Filecopyc:\,d:3．在VisualBasic程序中實現(xiàn)刪除文件”d:\tem.tmp”的語句為。答案：Kill“d:\tem.tmp4．按文件號為1打開依次文件SQLNEW.DAT，用于寫入數(shù)據(jù)，語句為。答案：Open“SQLNEW.DAT”ForOutputAs#15．按文件號為2打開依次文件SQLOLD.DAT，用于從該文件讀出數(shù)據(jù)，語句為。答案：Open“SQLOLD.DAT”ForInputtAs#26．若窗體的左上角坐標(biāo)為（-200，250），右下角坐標(biāo)為（300，-150），則x軸的整方向向，y軸的整方向向。答案：右上7．Stretch屬性設(shè)置為時，圖像框可以變更大小移適應(yīng)其中的圖像。答案：True8．在圖片框Picture1中畫一個左上角在（500，500），邊長為500的紅色實心正方形的語句為。答案：Picture1.Line(500,500)-(1000,1000),vbRed,BF9．設(shè)CurrentX=50,CurrentY=100,執(zhí)行指令”Lint(100,20)-Step(300,500”后，Current=。答案：(400,520)10．運用ADO模型時，可通過屬性建立Recordset和Connection對象的連接。答案：ActiveConnection11．VB將數(shù)據(jù)庫分為本地數(shù)據(jù)庫、和三種類型。答案：外部數(shù)據(jù)庫遠程數(shù)據(jù)庫12．采納ADO模型時，當(dāng)運用Open方法打開一個記錄集后，和ADOrs.Fields（”學(xué)號”）等效的語句是。答案：ADOrs(“學(xué)號”)13．ADO模型中一般可通過Connection對象的Execute方法執(zhí)行、、等三種不返回結(jié)果集的SQL語句。答案：增加刪除修改14．設(shè)StrSQL、Str1為字符串變量，其中Str1的值為”001”，那么執(zhí)行賦值語句StrSQL=”Select*fromTable1Where學(xué)號=’”+Str1+”’”后，StrSQL的值等于。答案：Select*fromTabel1Where學(xué)號=’001’15．在VB中，將Foxpro稱為外部數(shù)據(jù)庫，Access稱為，SQLServer稱為。答案：本地數(shù)據(jù)庫遠程數(shù)據(jù)庫三、程序設(shè)計題1．PrivateSubForm_Click()StaticSumAsIntegerForI=1To100Sum=Sum+INextIPrintSumEndSub答案：50502．PrivateSubForm_Click()A=10:b=15:c=20:d=25PrintA;Spc(5);b;Spc(7);cPrintA;Spc(8);b;Space$(5);cPrintc;Spc(3);"+";Spc(3);d;PrintSpc(3);"=";Spc(3);c+dEndSub答案：說明：一行中有多個語句時各語句之間須要插入冒號“：”；Spc(n)用來在輸出中插入空白字符，n為空白字符數(shù)；逗號“，”分界符分隔要顯示的多個項目，每個項目之間距離一個制表符（TAB）；分號“；”表示全部的項目并列顯示（盡管下一個Print語句已經(jīng)換行），中間沒有空格3．PrivateSubForm_Click()Fori%=1To3Forj%=1ToiPrintLTrim(Str(i%))+"*"+LTrim(Str(j%))+"=";i%*j%;Nextj%PrintNexti%EndSub答案：4．PrivateSubCommand1_Click()Dima,bAsIntegera=3.4b=3.4Text1.Text=aText2.Text=bEndSub答案：Text1顯示3.4，Text2顯示3。如下圖所示。5．PrivateSubForm_Click()Fori=1To5PrintTab(11-i);ForJ=1Toi*2-1Print"*";NextNextiEndSub答案：四、程序設(shè)計題1．在窗體上建立一個驅(qū)動器列表、書目列表框、文件列表框、圖片框。要求程序運行后，驅(qū)動器列表框Drive1的默認驅(qū)動器設(shè)置為C盤，選擇File1中所列的圖片文件（*.bmp和*.jgp），則相應(yīng)的圖片顯示在圖片框Picture1中。程序運行結(jié)果如圖10所示。答案：程序代碼：PrivateSubForm_Load()'設(shè)置控件的有效狀態(tài)Drive1.Enabled=TrueDir1.Enabled=TrueFile1.Enabled=True'設(shè)置過濾器File1.Pattern="*.jpg"'設(shè)置控件的初始驅(qū)動器Drive1.Drive="g:\"Picture1.AutoSize=TrueEndSubPrivateSubDir1_Change()'變更書目File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()'變更驅(qū)動器Dir1.Path=Drive1.DriveEndSubPrivateSubFile1_Click()FilePath=File1.Path&"\"&File1.FileNamePicture1.Picture=LoadPicture(FilePath)EndSub2．余弦曲線的方程為y=cosx,畫出x從-2到2的余弦曲線，并在坐標(biāo)軸上標(biāo)出刻度，如圖11所示。圖11答案：程序代碼：'聲明π常量Constpi=3.141592653Dimx,yAsDoublePrivateSubForm_Load()'自定義坐標(biāo)Form1.Scale(-2*pi,1#)-(2*pi,-1#)EndSubPrivateSubform_Click()Form1.Line(-2*pi,0)-(2*pi,0)'畫X軸Form1.Line(0,1.5)-(0,-1.5)'畫Y軸'標(biāo)記坐標(biāo)原點Form1.CurrentX=0:Form1.CurrentY=0:Form1.Print0'標(biāo)記"-2π"Form1.CurrentX=-2*pi:Form1.CurrentY=0.2:Form1.Print"-2π"'標(biāo)記"-π"Form1.CurrentX=-1.08*pi:Form1.CurrentY=-0.05:Form1.Print"-π"'標(biāo)記"-π"Form1.CurrentX=0.95*pi:Form1.CurrentY=-0.05:Form1.Print"π"'標(biāo)記"-2π"Form1.CurrentX=1.8*pi:Form1.CurrentY=0.2:Form1.Print"2π"'標(biāo)記"1"Form1.CurrentX=0.02:Form1.CurrentY=0.5:Form1.Print0.5'標(biāo)記"-1"Form1.CurrentX=0.05:Form1.CurrentY=-0.5:Form1.Print-0.5'畫正弦曲線Forx=-2*piTo2*piSteppi/180y=Cos(x)DrawWidth=1'定義點的大小Form1.PSet(x,y),QBColor(0)'畫點NextxEndSub3．運用Line控件顯示直線，并且可以顯示直線的線寬和線型。運行程序界面如圖12所示。圖12答案：程序代碼：PrivateSubForm_Load()Option1(0).Value=FalseOption1(1).Value=FalseOption1(2).Value=FalseCheck1.Caption=""EndSubPrivateSubForm_click()ScaleWidth=100ScaleHeight=100DrawWidth=4Line(15,20)-(35,60)Option1(0).Value=TrueCheck1.Caption="線寬為4"EndSub4．運用Shape控件顯示幾種圖形，并且可以設(shè)置圖形的邊框和填充效果等。程序運行界面如圖13所示。圖13答案：程序代碼：PrivateSubForm_Click()ScaleWidth=100ScaleHeight=100IfOption1(0).Value=TrueThenShape1.Shape=0ElseIfOption1(1).Value=TrueThenShape1.Shape=1ElseIfOption1(2).Value=TrueThenShape1.Shape=3ElseIfOption1(3).Value=TrueThenShape1.Shape=4EndIfIfOption2(0).Value=TrueThenShape1.BorderStyle=0ElseIfOption2(1).Value=TrueThenShape1.BorderStyle=2ElseIfOption2(2).Value=TrueThenShape1.BorderStyle=1ElseIfOption2(3).Value=TrueThenShape1.BorderStyle=3ElseIfOption2(3).Value=TrueThenShape1.BorderStyle=4EndIfIfOption3(0).Value=TrueThenShape1.FillStyle=1ElseIfOption3(1).Value=TrueThenShape1.FillStyle=2ElseIfOption3(2).Value=TrueThenShape1.FillStyle=3ElseIfOption3(3).Value=TrueThenShape1.FillStyle=6EndIfEndSub5．運用SQLServer或Access建立名稱為“學(xué)生”的數(shù)據(jù)庫，在其中創(chuàng)建“students”的數(shù)據(jù)表，其結(jié)構(gòu)及初始記錄如表1所示。運用ADO對象和MSFlexGrid控件設(shè)計數(shù)據(jù)庫列表顯示程序。程序的設(shè)計界面和運行結(jié)果如圖14、圖15所示。表1學(xué)號姓名專業(yè)2004001張紅軟件專業(yè)2004003朱強會計專業(yè)2004002王麗軟件專業(yè)圖14圖15答案：程序代碼標(biāo)準(zhǔn)模塊代碼PublicADOcnAsConnectionPrivateSubMai