《Basic程序设计作业题解.doc》由会员分享，可在线阅读，更多相关《Basic程序设计作业题解.doc（13页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic程序设计作业题解作 业 3一、选择题1Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括（ ）。A顺序文件BUnix文件C二进制文件D随机文件答案：B2随机文件进行文件读写的单位是（ ）。A字节B记录C整个文件D字符答案：B3为了使目录路径列表Dir1的内容符合驱动器列表框Drive1的选择，应当（ ）。A在Dir1_Click事件中加入Dir1.Path=Drive1.DriveB在Drive1_Click事件中加入Dir1.Path=Drive1.DriveC在Dir1_Click事件中加入Drive1.Path=.Drive.PathD在D
2、ir1_Click事件中加入Drive1.Path=.Dir1.Path答案：A4为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要在（ ）。ADrive1的Change事件过程中加入Drive1.Drive=Dir1.Path,在Dir1的Change事件过程中加入Dir1.Path=File1.Path代码。BDrive1的Change事件过程中加入Dir1.Path=Drive1.Drive,在Dir1的Change事件过程中加入File1.Path=Dir1.Path代码。CDir1的Change事件过程中加入Dir1.Path=Drive
3、1.Drive,在File1的Click事件过程中加入File1.Path=File1.FileName代码。DDir1的Change事件过程中加入Dir1.Path=Drive1.Drive,在File1的Click事件过程中加入File1.Path=Dir1.FileName代码。答案：C5下面关于顺序文件的描述正确的是（ ）。A每条记录的长度必须相同B可通过编程对文件中的某条记录方便地修改C数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示D文件的组织结构复杂答案：C6KILL语句在VB语言中的功能是（ ）。A清内存B清病毒C删除在磁盘上的文件D清屏幕答案：C7可用来改变
4、坐标度量单位的是（ ）。ADrawstyle属性 BDrawWidth属性CScale属性DScaleMode属性答案：D8以下的属性和方法中，可重定义坐标系的是（ ）。ADrawstyle属性BDrawWidth属性CScale属性DScaleMode属答案：B9当使用Line方法画直线后，当前坐标在（ ）。A（0，0）B直线起点C直线终点D容器的中心答案：A10Line（200，200） Step（500，500）将在窗体（ ）画一直线。A（200，200）到（500，500）B（200，200）到（300，300）C（200，200）到（700，700）D（300，300）到（500，5
5、00）答案：C11设置对象的边框类型的属性是（ ）。ADrawstyleBBorderstyleCDrawWidthDScaleMode答案：B12为了清除图片框Picture1中的图形，应采用的正确方法是（ ）。A选择图片框，然后按Del键B执行语句Picture1.Pictyre=LoadPicture (“”)C执行语句Picture1.Pictyre=”D选择图片框，在窗口属性中选择Picture属性条，然后按回车键答案：B13要绘制多种形状的图形，需要设置Shape控件的（ ）属性。AShapeBBordrestyleCFillStyleDStyle答案：A14要绘制多种式样的直线，
6、需要设置Linee控件的（ ）属性。AShapeBBordrestyleCFillStyleDStyle答案：B15如果准备读文件，打开顺序文件“text.dat”的正确语句是（ ）。Aopen ”text.dat” For write As # 1Bopen ”text.dat” For Binary As # 1Copen ”text.dat” For Input As # 1Dopen ”text.dat” For Random As # 1答案：C16如果准备向随机文件写入数据，正确的语句是（ ）。APrint # 1,recBWrite # 1,recCPut # 1,recDGet
7、 # 1,rec答案：C 17下列“CommonDialog1”控件程序代码，Commondialog1.Action=1 ,代表（ ）。A文件另存为B打开文件C色彩D打印答案：B 18FileFiles.Pattern=”*.bat”程序代码执行后，会显示（ ）。A只包含扩展文件名为“*.bat”的文件B第一个bat文件C包含所有文件D会显示磁盘的路径答案：A 19下列数据对象数据模型中采用OLE DB访问数据库的是（ ）。ADAOBRDOCADODRDO 或 ADO答案：C 20设ADOrs为Recordset对象，从“学生基本情况表”中获取所有记录的语句是（ ）。AADOrs.Open
8、“select * From 学生基本情况表”BADOrs.Execute “select * From 学生基本情况表”CADOrs.New “select * From 学生基本情况表”DADOrs.Select “select * From 学生基本情况表”答案：A21VB中将变量x1声明为Excel应用程序对象的方法是（ ）。ADim x1 As Excel.ApplicationBDim x1 As Excel.WorkbookCDim x1 As Excel.WorksheetDDim x1 As Excel.Worksheets答案：A二、填空题1如果要新建一个顺序文件，用Ope
9、n语句时，操作方式关键词是 。答案：Output2在Visual Basic程序中实现复制文件”c:”到d:盘根目录下的语句为 。答案：Filecopy c:,d: 3在Visual Basic程序中实现删除文件”d:tem.tmp”的语句为 。 答案：Kill “d:tem.tmp 4按文件号为1打开顺序文件SQLNEW.DAT，用于写入数据，语句为 。 答案：Open “SQLNEW.DAT” For Output As #15按文件号为2打开顺序文件SQLOLD.DAT，用于从该文件读出数据，语句为 。答案：Open “SQLOLD.DAT” For Inputt As #26若窗体的左
10、上角坐标为（-200，250），右下角坐标为（300，-150），则x轴的整方向向 ，y轴的整方向向 。答案：右 上 7Stretch属性设置为 时，图像框可以改变大小移适应其中的图像。答案：True 8在图片框Picture1中画一个左上角在（500，500），边长为500的红色实心正方形的语句为 。答案：Picture1.Line (500, 500)-(1000, 1000), vbRed, BF9设CurrentX=50,CurrentY=100,执行指令”Lint(100,20)-Step(300,500”后，Current= 。答案：(400,520) 10使用ADO模型时，可通过
11、 属性建立Recordset和Connection对象的连接。 答案：ActiveConnection11VB将数据库分为本地数据库、 和 三种类型。答案：外部数据库 远程数据库12采用ADO模型时，当使用Open方法打开一个记录集后，与ADOrs.Fields（”学号”）等效的语句是 。答案：ADOrs(“学号”)13ADO模型中一般可通过Connection对象的Execute方法执行 、 、 等三种不返回结果集的SQL语句。 答案：增加 删除 修改 14设StrSQL、Str1为字符串变量，其中Str1的值为”001”，那么执行赋值语句StrSQL=”Select * from Tabl
12、e1 Where 学号=”+Str1+”后，StrSQL的值等于 。答案： Select * from Tabel1 Where 学号=00115在VB中，将Foxpro称为外部数据库，Access称为 ，SQL Server称为 。 答案：本地数据库 远程数据库 三、程序设计题1 Private Sub Form_Click() Static Sum As Integer For I = 1 To 100 Sum = Sum + I Next I Print SumEnd Sub答案：5050 2 Private Sub Form_Click() A = 10: b = 15: c = 20
13、: d = 25 Print A; Spc(5); b; Spc(7); c Print A; Spc(8); b; Space$(5); c Print c; Spc(3); +; Spc(3); d; Print Spc(3); =; Spc(3); c + dEnd Sub 答案：说明：一行中有多个语句时各语句之间需要插入冒号“：”；Spc(n) 用来在输出中插入空白字符，n为空白字符数；逗号“，”分界符分隔要显示的多个项目，每个项目之间距离一个制表符（TAB）；分号“；”表示所有的项目并列显示（尽管下一个Print语句已经换行），中间没有空格 3 Private Sub Form_Click() For i% = 1 To 3 Fo
