VisualBasic程序设计作业题解

1、VisualBasic 程序设计作业题解Visual Basic程序设计作业题解作业3一、选择题1 .Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括（）。A顺序文件B. Unix文件C. 二进制文件D 随机文件答案：B2 .随机文件进行文件读写的单位是 （ ）。A 字节B .记录C.整个文件D .字符答案：B3. 为了使目录路径列表Dir1的内容符合驱动 器列表框Drivel的选择，应当（）。A . 在 Dir1_Click 事件中加入Dir1.Path=Drive1.DriveB . 在 Drive1_Click 事件中加入 Dir1.Path=Drive1.Dr

2、iveC .在Dir1_Click事件中加入Drive1.Path=.Drive.PathD .在Dir1_Click事件中加入Drive1.Path=.Dir1.Path答案：A4.为了使Drivel驱动器列表框、Dir1目录 路径列表框和Filel文件列表框能同步协调工作， 需要在（）。A . Drivel的Change事件过程中加入 Drive1.Drive=Dir1.Path,在 Dir1 的 Change 事件过 程中加入 Dir1.Path=File1.Path 代码。B . Drive1的Change事件过程中加入 Dir1.Path=Drive1.Drive,在 Dir1 的

3、Change 事件过 程中加入 File1.Path=Dir1.Path 代码。C . Dir1 的 Change事件过程 中加入 Dir1.Path=Drive1.Drive,在 File1 的 Click 事件过程 中加入 File1.Path=File1.FileName 代码。D . Dir1 的 Change事件过程 中加入 Dir1.Path=Drive1.Drive,在 Filel 的 Click 事件过程 中加入 File1.Path=Dir1.FileName 代码。答案：C5. 下面关于顺序文件的描述正确的是 ( )。A每条记录的长度必须相同B. 可通过编程对文件中的某条记

4、录方便地 修改C. 数据只能以ASCII码形式存放在文件 中，所以可通过文本编辑软件显示D文件的组织结构复杂答案：C6 . KILL 语句在 VB语言中的功能是 ( )。A 清内存B 清病毒C 删除在磁盘上的文件D 清屏幕答案：C7 可用来改变坐标度量单位的是()A. Drawstyle 属性B. DrawWidth 属性C. Scale 属性D. ScaleMode 属性 答案：D8以下的属性和方法中，可重定义坐标系的 是()。A. Drawstyle 属性B. DrawWidth 属性C. Scale 属性D. ScaleMode 属答案：B9当使用Line方法画直线后，当前坐标在 ( )

5、。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. 设置对象的边框类型的属性是（）。A. DrawstyleB. BorderstyleC. DrawWidthD. ScaleMode答案：B12. 为了清除图片框 Picture1中的图形，应采用的正确方法是（）。A .选择图片框，然后按Del键B.执行语句

6、Picture1.Pictyre=LoadPicture（“）C .执行语句 Picture1.Pictyre=”D.选择图片框，在窗口属性中选择Picture属性条，然后按回车键答案：B13.要绘制多种形状的图形，需要设置Shape 控件的（）属性。A.ShapeB.BordrestyleC.FillStyleD.Style答案：A14 .要绘制多种式样的直线，需要设置 Li nee 控件的（）属性。A.ShapeB.BordrestyleC.FillStyleD.Style答案：B15.如果准备读文件，打开顺序文件“text.dat 的正确语句是（）。A. open ”ext.dat ”

7、For write As # 1B. open ”text.dat ” For Binary As # 1C. ope n ”ext.dat ” For In put As # 1D. open ”text.dat ” For Random As # 1 答案：C16如果准备向随机文件写入数据，正确的 语句是（）。A Print # 1,recB Write # 1,recC Put # 1,recD Get # 1,rec答案：C17.下列“ Commo nDialog1 控件程序代码, Commondialog1.Action=1 ,代表（）。A 文件另存为B 打开文件C .色彩D打印答案

8、：B18 FileFiles.Pattern= ”.bat 程序代码执行 后，会显示（）。A .只包含扩展文件名为“ *.bat ”的文件B第一个bat文件C 包含所有文件D.会显示磁盘的路径答案：A19.下列数据对象数据模型中采用OLE DB访问数据库的是（）。DAORDOADORDO 或 ADOA.B.C.D.答案：C20设ADOrs为Recordset对象，从“学生 基本情况表中获取所有记录的语句是（）。A. ADOrs.Open Select * From 学生基本情况 表”B. ADOrs.Execute Select * From 学生基本情 况表”C. ADOrs.New sel

9、ect * From 学生基本情况 表”D. ADOrs.Select select * From 学生基本情况表答案：A21. VB中将变量x1声明为Excel应用程序对 象的方法是（）。A. Dim x1 As ExceLApplicationB. Dim x1 As Excel.WorkbookC. Dim x1 As Excel.WorksheetD . Dim x1 As Excel.Worksheets答案：A二、填空题1.如果要新建一个顺序文件，用Open语句时， 操作方式关键词是。答案：Output2 .在 Visual Basic程序中实现复制文 件”c: ”到d:盘根目录下

10、的语句为答案：Filecopy c:,d:3 .在 Visual Basic程序中实现删除文件 ”d:tem.tmp ” 的 语 句为答案：Kill d:tem.tmp4 .按文件号为1打开顺序文件 SQLNEW.DAT ,用于写入数据，语句 为。答案：Open SQLNEW.DAT For Output As #15.按文件号为2打开顺序文件SQLOLD.DAT , 用于从该文件读出数据，语句为答案：Ope n SQLOLD.DAT ” For In putt As #26. 若窗体的左上角坐标为(-200, 250),右下 角坐标为(300, -150),则x轴的整方向向 , y 轴的整方

11、向 向。答案：右上7. Stretch 属性设置为时，图像框可以改变大小移适应其中的图像。答案：True&在图片框Picture1中画一个左上角在(500, 500),边长为 500的红色实心正方形的语句答案：PicturelLine (500, 500)-(1000, 1000), vbRed, BF9 .设 CurrentX=50,CurrentY =100,执行指令” Lint(100,20Step(300,500 后, Current=答案：（400,520）10 .使用 ADO 模型时，可通过 属性建立 Recordset和Conn ection对象的连接。答案：ActiveConn

12、ection11 . VB将数据库分为本地数据库、 和三种类型。答案：外部数据库远程数据库12.采用ADO模型时，当使用Open方法打开 一个记录集后，与 ADOrs.Fields （”学号”）等效 的语句是。答案：ADOrs（ “学号”）13. ADO模型中一般可通过 Conn ection对象 的 Execute 方法执行、等三种不返回结果集的SQL语句答案：增加 删除 修改14设StrSQL、Str1为字符串变量，其中Str1的值为” 001,那么执行赋值语句StrSQL=” Select * from Tablel Where 学号=” +Str1+ 后；”StrSQL的值等于。答案：

13、Select * from Tabell Where 学号=00115 在VB中，将Foxpro称为外部数据库，Access称为, SQL Server 称为。答案：本地数据库远程数据库二、程序设计题1. Private Sub Form_Click()Static Sum As In tegerFor I = 1 To 100Sum = Sum + INext IPrint SumEnd Sub 答案：5050A = 10: b = 15: c = 20: d = 25Print A; Spc(5); b; Spc(7); cPrint A; Spc(8); b; Space$(5); cP

14、rint c; Spc(3); +; Spc(3); d;Print Spc(3); =; Spc(3); c + dEnd Sub答案:说明：一行中有多个语句时各语句之间需要插入冒号“：”；Spc（n）用来在输出中插入空白字符，n为 空白字符数；逗号“，”分界符分隔要显示的多个项目，每 个项目之间距离一个制表符（TAB）；分号“；”表示所有的项目并列显示（尽管下一个Print语句已经换行），中间没有空格For i% = 1 To 3For j% = 1 To iPrint LTrim(Str(i%) + *LTrim(Str(j%) + =; i% * j%;Next j%PrintNext

15、 i%End Sub答案:4.Private Sub Comma nd1_Click()Dim a, b As In tegera = 3.4b = 3.4Text1.Text = aText2.Text = bEnd Sub答案：Textl显示3.4, Text2显示3。如下图所示5. Private Sub Form_Click()For i = 1 To 5Print Tab(11 - i);For J = 1 To i * 2 - 1Print *;NextNext iEnd Sub答案：ISuF orml* *ip- np四、程序设计题1 .在窗体上建立一个驱动器列表、目录列表框、

16、文件列表框、图片框。要求程序运行后，驱动器 列表框Drivel的默认驱动器设置为 C盘，选择 Filel中所列的图片文件（*bmp和*.jgp），则相应 的图片显示在图片框 Picturel中。程序运行结果 如图10所示。答案：程序代码：Private Sub Form_Load() 设置控件的有效状态Drive1.E nabled = TrueDir1.E nabled = TrueFile1.E nabled = True设置过滤器File1.Pattern = *.jpg 设置控件的初始驱动器Drive1.Drive = g:Picture1.AutoSize = TrueEnd Sub

17、Private Sub Dir1_Cha nge()改变目录Filel.Path = Dirl.PathEnd SubPrivate Sub Drive1_Cha nge()改变驱动器Dirl.Path = Drivel.DriveEnd SubPrivate Sub File1_Click()FilePathFile1.Path &File1.FileNamePicture1.Picture = LoadPicture(FilePath)2余弦曲线的方程为 y=cosx,画出x从-2 到2的余弦曲线，并在坐标轴上标出刻度，如图11所示图11答案：程序代码:声明n常量Const pi = 3.

18、141592653Dim x, y As DoublePrivate Sub Form_Load()自定义坐标Form1.Scale (-2 * pi, 1#)-(2 * pi, -1#)Private Sub form_Click()Forml.Line (-2 * pi, 0)-(2 * pi, 0)画 X 轴Forml.Li ne (0, 1.5)-(0, -1.5)画Y轴标记坐标原点Form1.Curre ntX = 0: Form1.Curre ntY =0: Form1.Pri nt 0标记-2 n Form1.Curre ntX =-2* pi:Form1.CurrentY =

19、0.2: Form1.Print -2 n标记-n Form1.Curre ntX =-1.08* pi:Form1.Curre ntY = -0.05: Form1.Pri nt - n 标记-n Form1.Curre ntX =0.95* pi:Form1.CurrentY = - 0.05: Form1.Print n 标记-2 n Form1.Curre ntX= 1.8pi:Forml.CurrentY = 0.2: Forml.Print 2 n标记1Forml.Curre ntX=0.02:Forml.CurrentY = 0.5: Forml.Print 0.5标记-1For

20、ml.Curre ntX=0.05:Forml.Curre ntY = -0.5: Forml.Pri nt -0.5画正弦曲线For x = -2 * pi To 2 * pi Step pi / 180y = Cos(x)DrawWidth = 1定义点的大小Forml.PSet (x, y), QBColor(0) 画占八、Next xEnd Sub3.使用Line控件显示直线，并且可以显示直线的线宽和线型。运行程序界面如图12所示。Line件筈习厂綾宽茹雄-! x|图12答案：程序代码：Private Sub Form_Load()Optio n1(0).Value = FalseOp

21、tio n1(1).Value = FalseOptio n1(2).Value = FalseCheck1.Captio n =End SubPrivate Sub Form_click()ScaleWidth = 100ScaleHeight = 100DrawWidth = 4Line (15, 20)-(35, 60)Optio n1(0).Value = TrueCheckl.Caption =线宽为 4 End Sub4. 使用Shape控件显示几种图形，并且可以设 置图形的边框和填充效果等。程序运行界面如图 13所示。图13答案：程序代码：Private Sub Form_Cli

22、ck()ScaleWidth = 100ScaleHeight = 100If Optio n1(0).Value = True The nShape1.Shape = 0ElseIf Optio n1(1).Value = True The nShape1.Shape = 1Elself Optio n1(2).Value = True ThenShapel.Shape = 3Elself Optio n1(3).Value = True ThenShapel.Shape = 4End IfIf Optio n2(0).Value = True The nShape1.BorderStyle

23、 = 0ElseIf Optio n2(1).Value = True ThenShape1.BorderStyle = 2ElseIf Optio n2(2).Value = True ThenShape1.BorderStyle = 1ElseIf Optio n2(3).Value = True ThenShape1.BorderStyle = 3ElseIf Optio n2(3).Value = True ThenShape1.BorderStyle = 4End IfIf Optio n3(0).Value = True The nShape1.FillStyle = 1Elsel

24、f Optio n3(1).Value = True ThenShapel.FillStyle = 2Elself Optio n3(2).Value = True ThenShape1.FillStyle = 3ElseIf Optio n3(3).Value = True ThenShape1.FillStyle = 6End IfEnd Sub5 使用SQL Server或Access建立名称为“学 生的数据库，在其中创建“ students”的数据表， 其结构及初始记录如表1所示。使用ADO对象和 MSFlexGrid控件设计数据库列表显示程序。程序 的设计界面和运行结果如图14、图15所示。表1学号姓名专业2004001张红软件专业2004003朱强会计专业2004002王丽软件专业文件此 編辑 视團妁 工程E）格式 调试）运行 査询 関序”0”茁跑建阴芹.工程 1 _ Ni cirosoft Vi snial Basic 设计ii Ttel - Forml orml图14图15答案：程序代码标准模块代码Public ADOc n As Co nn ec