VisualBasic程序设计作业题解.doc

《VisualBasic程序设计作业题解.doc》由会员分享，可在线阅读，更多相关《VisualBasic程序设计作业题解.doc（21页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Visual Basic程序设计作业题解作 业 3一、选择题1Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括 。A顺序文件BUnix文件C二进制文件D随机文件答案：B2随机文件进展文件读写的单位是 。A字节B记录C整个文件D字符答案：B3为了使目录路径列表Dir1的内容符合驱动器列表框Drive1的选择，应当 。A在Dir1_B在Drive1_C在Dir1_D在Dir1_答案：A4为了使Drive1驱动器列表框、Dir1目录路径列表框与File1文件列表框能同步协调工作，需要在 。ADrive1的Change事件过程中参加Drive1.Drive=Dir1.Path

2、,在Dir1的Change事件过程中参加Dir1.Path=代码。BDrive1的Change事件过程中参加Dir1.Path=Drive1.Drive,在Dir1的Change事件过程中参加代码。CDir1的Change事件过程中参加Dir1.Path=Drive1.Drive,在File1的Click事件过程中参加代码。DDir1的Change事件过程中参加Dir1.Path=Drive1.Drive,在File1的Click事件过程中参加代码。答案：C5下面关于顺序文件的描述正确的选项是 。A每条记录的长度必须一样B可通过编程对文件中的某条记录方便地修改C数据只能以ASCII码形式存放在

3、文件中，所以可通过文本编辑软件显示D文件的组织构造复杂答案：C6KILL语句在VB语言中的功能是 。A清内存B清病毒C删除在磁盘上的文件D清屏幕答案：C7可用来改变坐标度量单位的是 。ADrawstyle属性 BDrawWidth属性CScale属性DScaleMode属性答案：D8以下的属性与方法中，可重定义坐标系的是 。ADrawstyle属性BDrawWidth属性CScale属性DScaleMode属答案：B9当使用Line方法画直线后，当前坐标在 。A0，0B直线起点C直线终点D容器的中心答案：A10Line200，200 Step500，500将在窗体 画一直线。A200，200到

4、500，500B200，200到300，300C200，200到700，700D300，300到500，500答案：C11设置对象的边框类型的属性是 。ADrawstyleBBorderstyleCDrawWidthDScaleMode答案：B12为了去除图片框Picture1中的图形，应采用的正确方法是 。A选择图片框，然后按Del键B执行语句Picture1.Pictyre=LoadPicture (“)C执行语句Picture1.Pictyre=D选择图片框，在窗口属性中选择Picture属性条，然后按回车键答案：B13要绘制多种形状的图形，需要设置Shape控件的 属性。AShapeB

5、BordrestyleCFillStyleDStyle答案：A14要绘制多种式样的直线，需要设置Linee控件的 属性。AShapeBBordrestyleCFillStyleDStyle答案：B15如果准备读文件，翻开顺序文件“的正确语句是 。Aopen For write As # 1Bopen For Binary As # 1Copen For Input As # 1Dopen For Random As # 1答案：C16如果准备向随机文件写入数据，正确的语句是 。APrint # 1,recBWrite # 1,recCPut # 1,recDGet # 1,rec答案：C 17

6、以下“CommonDialog1控件程序代码，Commondialog1.Action=1 ,代表 。A文件另存为B翻开文件C色彩D打印答案：B 18*.bat程序代码执行后，会显示 。A只包含扩展文件名为“*.bat的文件B第一个bat文件C包含所有文件D会显示磁盘的路径答案：A 19以下数据对象数据模型中采用OLE DB访问数据库的是 。ADAOBRDOCADODRDO 或 ADO答案：C 20设ADOrs为Recordset对象，从“学生根本情况表中获取所有记录的语句是 。AADOrs.Open “select * From 学生根本情况表BADOrs.Execute “select *

7、 From 学生根本情况表CADOrs.New “select * From 学生根本情况表DADOrs.Select “select * From 学生根本情况表答案：A21VB中将变量x1声明为Excel应用程序对象的方法是 。答案：A二、填空题1如果要新建一个顺序文件，用Open语句时，操作方式关键词是 。答案：Output2在Visual Basic程序中实现复制文件到d:盘根目录下的语句为答案： c:command ,d: 3在Visual Basic程序中实现删除文件的语句为 。 答案：Kill “ 4按文件号为1翻开顺序文件SQLNEW.DAT，用于写入数据，语句为 。 答案：O

8、pen “ For Output As #15按文件号为2翻开顺序文件SQLOLD.DAT，用于从该文件读出数据，语句为答案：Open “ For Inputt As #26假设窗体的左上角坐标为-200，250，右下角坐标为300，-150，那么x轴的整方向向 ，y轴的整方向向 。答案：右 上 7Stretch属性设置为 时，图像框可以改变大小移适应其中的图像。答案：True 8在图片框Picture1中画一个左上角在500，500，边长为500的红色实心正方形的语句为 。答案：Picture1.Line (500, 500)-(1000, 1000), vbRed, BF9设Current

9、X=50,CurrentY=100,执行指令Lint(100,20)-Step(300,500后，Current=答案：(400,520) 10使用ADO模型时，可通过 属性建立Recordset与Connection对象的连接。 答案：ActiveConnection11VB将数据库分为本地数据库、 与 三种类型。答案：外部数据库 远程数据库12采用ADO模型时，当使用Open方法翻开一个记录集后，与ADOrs.Fields学号等效的语句是 。答案：ADOrs(“学号)13ADO模型中一般可通过Connection对象的Execute方法执行 、 、 等三种不返回结果集的SQL语句。 答案：

10、增加 删除 修改 14设StrSQL、Str1为字符串变量，其中Str1的值为001，那么执行赋值语句StrSQL=Select * from Table1 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

11、 Print SumEnd Sub答案：5050 2 Private Sub Form_Click() A = 10: b = 15: c = 20: 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为空白字符数；逗号“，分界符分隔要显示的多个工程，每个工程之间距离一个

12、制表符TAB；分号“；表示所有的工程并列显示尽管下一个Print语句已经换行，中间没有空格 3 Private Sub Form_Click() For i% = 1 To 3 For j% = 1 To i Print LTrim(Str(i%) + * + LTrim(Str(j%) + =; i% * j%; Next j% Print Next i%End Sub答案： 4 Private Sub Command1_Click() Dim a, b As Integer Text1.Text = a Text2.Text = bEnd Sub答案：Text1显示3.4，Text2显示3

13、。如以下图所示。 5 Private Sub Form_Click() For i = 1 To 5 Print Tab(11 - i); For J = 1 To i * 2 - 1 Print *; Next Next iEnd Sub 答案：四、程序设计题1在窗体上建立一个驱动器列表、目录列表框、文件列表框、图片框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为C盘，选择File1中所列的图片文件*.bmp与*.jgp，那么相应的图片显示在图片框Picture1中。程序运行结果如图10所示。答案：程序代码：Private Sub Form_Load() 设置控件的有效状态 D

14、rive1.Enabled = True Dir1.Enabled = True = True 设置过滤器 = *.jpg 设置控件的初始驱动器 Drive1.Drive = g: Picture1.AutoSize = TrueEnd SubPrivate Sub Dir1_Change() 改变目录End SubPrivate Sub Drive1_Change() 改变驱动器End SubPrivate Sub () Picture1.Picture = LoadPicture()End Sub 2余弦曲线的方程为y=cosx,画出x从-2到2的余弦曲线，并在坐标轴上标出刻度，如图11所

15、示。 图11答案：程序代码：声明常量Dim x, y As DoublePrivate Sub Form_Load() 自定义坐标 Form1.Scale (-2 * pi, 1#)-(2 * pi, -1#)End SubPrivate Sub form_Click() Form1.Line (-2 * pi, 0)-(2 * pi, 0) 画X轴 Form1.Line (0, 1.5)-(0, -1.5) 画Y轴 标记坐标原点 Form1.CurrentX = 0: Form1.CurrentY = 0: Form1.Print 0 标记-2 Form1.CurrentX = -2 * p

16、i: Form1.CurrentY = 0.2: Form1.Print -2 标记- Form1.CurrentX = -1.08 * pi: Form1.CurrentY = -0.05: Form1.Print - 标记- Form1.CurrentX = 0.95 * pi: Form1.CurrentY = -0.05: Form1.Print 标记-2 Form1.CurrentX = 1.8 * pi: Form1.CurrentY = 0.2: Form1.Print 2 标记1 标记-1 画正弦曲线 For x = -2 * pi To 2 * pi Step pi / 18

17、0 y = Cos(x) DrawWidth = 1 定义点的大小 Form1.PSet (x, y), QBColor(0) 画点 Next xEnd Sub 3使用Line控件显示直线，并且可以显示直线的线宽与线型。运行程序界面如图12所示。 图12 答案：程序代码：Private Sub Form_Load() Option1(0).Value = False Option1(1).Value = False Option1(2).Value = False Check1.Caption = End SubPrivate Sub Form_click() ScaleWidth = 100

18、 ScaleHeight = 100 DrawWidth = 4 Line (15, 20)-(35, 60) Option1(0).Value = True Check1.Caption = 线宽为4End Sub4使用Shape控件显示几种图形，并且可以设置图形的边框与填充效果等。程序运行界面如图13所示。 图13答案：程序代码：Private Sub Form_Click() ScaleWidth = 100 ScaleHeight = 100 If Option1(0).Value = True Then Shape1.Shape = 0 ElseIf Option1(1).Value

19、 = True Then Shape1.Shape = 1 ElseIf Option1(2).Value = True Then Shape1.Shape = 3 ElseIf Option1(3).Value = True Then Shape1.Shape = 4 End If If Option2(0).Value = True Then Shape1.BorderStyle = 0 ElseIf Option2(1).Value = True Then Shape1.BorderStyle = 2 ElseIf Option2(2).Value = True Then Shape1.

20、BorderStyle = 1 ElseIf Option2(3).Value = True Then Shape1.BorderStyle = 3 ElseIf Option2(3).Value = True Then Shape1.BorderStyle = 4 End If If Option3(0).Value = True Then Shape1.FillStyle = 1 ElseIf Option3(1).Value = True Then Shape1.FillStyle = 2 ElseIf Option3(2).Value = True Then Shape1.FillSt

21、yle = 3 ElseIf Option3(3).Value = True Then Shape1.FillStyle = 6 End IfEnd Sub5使用SQL Server或Access建立名称为“学生的数据库，在其中创立“students的数据表，其构造及初始记录如表1所示。使用ADO对象与MSFlexGrid控件设计数据库列表显示程序。程序的设计界面与运行结果如图14、图15所示。表1学 号姓 名专 业张 红软件专业朱 强会计专业王 丽软件专业 图14 图15答案：程序代码标准模块代码Public ADOcn As ConnectionPrivate Sub Main() 定义数

22、据连接字符串 Dim strAccess As String 用于连接Access数据库 strAccess = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:VB_N作业编程题演示作业3.三.5db1.mdb;Persist Security Info=False 创立连接 Set ADOcn = New Connection ADOcn.Open strAccessEnd Sub窗体form_Click()事件代码Private Sub form_Click() Dim strSQL, strRecord As String 声明一个记录集对

23、象，并与ADOcn关联 Dim ADOrs As New Recordset ADOrs.ActiveConnection = ADOcn ADOrs.Open select * from 学生 初始化MSFlexGrid表格 MSFlexGrid1.Rows = 0 行数 MSFlexGrid1.Cols = 3 列数 设置表格标题栏 strRecord = 学号 + vbTab + 姓名 + vbTab + 专业 MSFlexGrid1.AddItem strRecord 从第一条记录开场循环，直到表尾 拼写表格内容 strRecord = Trim(ADOrs(学号) + vbTab + Trim(ADOrs(姓名) + vbTab + Trim(ADOrs(专业) 向表内田加行 MSFlexGrid1.AddItem strRecord 取下一 条记录 LoopEnd Sub“关闭“按钮Command3_Click()事件代码Private Sub Command3_Click() EndEnd Sub第 页