VisualBasic程序设计作业题解Visual Basic程序设计作业题解作业 3一、选择题1．Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括（）。
A．顺序文件B．Unix文件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．在Dir1_Click事件中加入Drive1.Path=.Dir1.Path答案：A4．为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要在（）。
A．Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path,在Dir1的Change事件过程中加入Dir1.Path=File1.Path代码。
B．Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive,在Dir1的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,在File1的Click事件过程中加入File1.Path=Dir1.FileName代码。
答案：C5．下面关于顺序文件的描述正确的是（）。
A．每条记录的长度必须相同B．可通过编程对文件中的某条记录方便地修改C．数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示D．文件的组织结构复杂答案：C6．KILL语句在VB语言中的功能是（）。
A．清内存B．清病毒C．删除在磁盘上的文件D．清屏幕答案：C４7．可用来改变坐标度量单位的是（）。
A．Drawstyle属性B．DrawWidth属性C．Scale属性D．ScaleMode属性答案：D8．以下的属性和方法中，可重定义坐标系的是（）。
A．Drawstyle属性B．DrawWidth属性C．Scale属性D．ScaleMode属答案：B9当使用Line方法画直线后，当前坐标在（）。
A．（0，0）B．直线起点C．直线终点D．容器的中心答案：A５10．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．执行语句Picture1.Pictyre=LoadPicture (“”)C．执行语句Picture1.Pictyre=””D．选择图片框，在窗口属性中选择Picture６属性条，然后按回车键答案：B13．要绘制多种形状的图形，需要设置Shape 控件的（）属性。
A．ShapeB．BordrestyleC．FillStyleD．Style答案：A14．要绘制多种式样的直线，需要设置Linee 控件的（）属性。
A．ShapeB．BordrestyleC．FillStyleD．Style答案：B15．如果准备读文件，打开顺序文件“text.dat”的正确语句是（）。
A．open ”text.dat” For write As # 1B．open ”text.dat” For Binary As # 1７C．open ”text.dat” For Input As # 1D．open ”text.dat” For Random As # 1答案：C16．如果准备向随机文件写入数据，正确的语句是（）。
A．Print # 1,recB．Write # 1,recC．Put # 1,recD．Get # 1,rec答案：C17．下列“CommonDialog1”控件程序代码，Commondialog1.Action=1 ,代表（）。
A．文件另存为B．打开文件C．色彩D．打印答案：B18．FileFiles.Pattern=”*.bat”程序代码执行后，会显示（）。
A．只包含扩展文件名为“*.bat”的文件８B．第一个bat文件C．包含所有文件D．会显示磁盘的路径答案：A19．下列数据对象数据模型中采用OLE DB 访问数据库的是（）。
A．DAOB．RDOC．ADOD．RDO 或ADO答案：C20．设ADOrs为Recordset对象，从“学生基本情况表”中获取所有记录的语句是（）。
A．ADOrs.Open “select * From 学生基本情况表”B．ADOrs.Execute “select * From 学生基本情况表”C．ADOrs.New “select * From 学生基本情况表”D．ADOrs.Select “select * From 学生基本情９况表”答案：A21．VB中将变量x1声明为Excel应用程序对象的方法是（）。
A．Dim x1 As Excel.ApplicationB．Dim x1 As Excel.WorkbookC．Dim x1 As Excel.WorksheetD．Dim x1 As Excel.Worksheets答案：A二、填空题1．如果要新建一个顺序文件，用Open语句时，操作方式关键词是。
答案：Output2．在Visual Basic程序中实现复制文件”c:\”到d:盘根目录下的语句为。
答案：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，用于从该文件读出数据，语句为。
答案：Open “SQLOLD.DAT” For Inputt As #2 6．若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则x轴的整方向向，y轴的整方向向。
答案：右上7．Stretch属性设置为时，图像框可以改变大小移适应其中的图像。
答案：True8．在图片框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模型时，可通过属性建立Recordset和Connection对象的连接。
答案：ActiveConnection11．VB将数据库分为本地数据库、和三种类型。
答案：外部数据库远程数据库12．采用ADO模型时，当使用Open方法打开一个记录集后，与ADOrs.Fields（”学号”）等效的语句是。
答案：ADOrs(“学号”)13．ADO模型中一般可通过Connection对象的Execute方法执行、、等三种不返回结果集的SQL语句。
答案：增加删除修改14．设StrSQL、Str1为字符串变量，其中Str1的值为”001”，那么执行赋值语句StrSQL=”Sele ct * from Table1 Where 学号=’”+Str1+”’”后，StrSQL的值等于。
答案：Select * from Tabel1 Where 学号=’001’15．在VB中，将Foxpro称为外部数据库，Access称为，SQL Server称为。
答案：本地数据库远程数据库三、程序设计题1．Private Sub Form_Click()Static Sum As IntegerFor 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); cPrint 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 i%End Sub答案：4．Private Sub Command1_Click()Dim a, b As Integera = 3.4b = 3.4Text1.Text = aText2.Text = bEnd Sub答案：Text1显示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答案：四、程序设计题1．在窗体上建立一个驱动器列表、目录列表框、文件列表框、图片框。
要求程序运行后，驱动器列表框Drive1的默认驱动器设置为C盘，选择File1中所列的图片文件（*.bmp和*.jgp），则相应的图片显示在图片框Picture1中。