Basic程序设计作业题解Word文件下载.docx

1、ADrawstyle属性 BDrawWidth属性CScale属性DScaleMode属性D8以下的属性和方法中，可重定义坐标系的是（ ）。ADrawstyle属性DScaleMode属9当使用Line方法画直线后，当前坐标在（ ）。A（0，0）B直线起点C直线终点D容器的中心10Line（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）11设置对象的边框类型的属性是（ ）。ADrawstyleBBorderstyl

2、eCDrawWidthDScaleMode12为了清除图片框Picture1中的图形，应采用的正确方法是（ ）。A选择图片框，然后按Del键B执行语句Picture1.Pictyre=LoadPicture （“”）C执行语句Picture1.Pictyre=”D选择图片框，在窗口属性中选择Picture属性条，然后按回车键13要绘制多种形状的图形，需要设置Shape控件的（ ）属性。AShapeBBordrestyleCFillStyleDStyle14要绘制多种式样的直线，需要设置Linee控件的（ ）属性。15如果准备读文件，打开顺序文件“text.dat”的正确语句是（ ）。Aopen

3、 ”text.dat” For write As # 1Bopen ”text.dat” For Binary As # 1Copen ”text.dat” For Input As # 1Dopen ”text.dat” For Random As # 116如果准备向随机文件写入数据，正确的语句是（ ）。APrint # 1,recBWrite # 1,recCPut # 1,recDGet # 1,rec 17下列“CommonDialog1”控件程序代码，Commondialog1.Action=1 ,代表（ ）。A文件另存为B打开文件C色彩D打印 18FileFiles.Patter

4、n=”*.bat”程序代码执行后，会显示（ ）。A只包含扩展文件名为“*.bat”的文件B第一个bat文件C包含所有文件D会显示磁盘的路径 19下列数据对象数据模型中采用OLE DB访问数据库的是（ ）。ADAOBRDOCADODRDO 或 ADO 20设ADOrs为Recordset对象，从“学生基本情况表”中获取所有记录的语句是（ ）。AADOrs.Open “select * From 学生基本情况表”BADOrs.Execute “select * From 学生基本情况表”CADOrs.New “select * From 学生基本情况表”DADOrs.Select “select

5、* From 学生基本情况表”21VB中将变量x1声明为Excel应用程序对象的方法是（ ）。ADim x1 As Excel.ApplicationBDim x1 As Excel.WorkbookCDim x1 As Excel.WorksheetDDim x1 As Excel.Worksheets二、填空题1如果要新建一个顺序文件，用Open语句时，操作方式关键词是 。Output2在Visual Basic程序中实现复制文件”c:”到d:盘根目录下的语句为 。Filecopy c:,d: 3在Visual Basic程序中实现删除文件”d:tem.tmp”的语句为 。 答案：Kill

6、 “d:tem.tmp 4按文件号为1打开顺序文件SQLNEW.DAT，用于写入数据，语句为 。Open “SQLNEW.DAT” For Output As #15按文件号为2打开顺序文件SQLOLD.DAT，用于从该文件读出数据，语句为 。Open “SQLOLD.DAT” For Inputt As #26若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则x轴的整方向向 ，y轴的整方向向 。右 上 7Stretch属性设置为 时，图像框可以改变大小移适应其中的图像。True 8在图片框Picture1中画一个左上角在（500，500），边长为500的红色实心正

7、方形的语句为 。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对象的连接。ActiveConnection11VB将数据库分为本地数据库、 和 三种类型。外部数据库 远程数据库12采用ADO模型时，当使用Open方法打开一个记录集后，与ADOrs.Fields（”学号”）等效的语句是 。ADOrs（“学号”）13A

8、DO模型中一般可通过Connection对象的Execute方法执行 、 、 等三种不返回结果集的SQL语句。增加 删除 修改 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

9、 Sum As Integer For I = 1 To 100 Sum = Sum + I Next I Print SumEnd Sub5050 2 Private Sub Form_Click（） A = 10: b = 15: c = 20: d = 25 Print A; Spc（5）; b; Spc（7）; c Spc（8）; Space$（5）; Print c; Spc（3）; +; d; Print Spc（3）;= c + d说明：一行中有多个语句时各语句之间需要插入冒号“：”；Spc（n） 用来在输出中插入空白字符，n为空白字符数；逗号“，”分界符分隔要显示的多个项目，每

10、个项目之间距离一个制表符（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% 4 Private Sub Command1_Click（） Dim a, b As Integer a = 3.4 b = 3.4 Text1.Text = a Text2.Text = bText1显示3.4，T

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

12、led = True Dir1.Enabled = True File1.Enabled = True设置过滤器 File1.Pattern = *.jpg设置控件的初始驱动器 Drive1.Drive = g: Picture1.AutoSize = TruePrivate Sub Dir1_Change（）改变目录 File1.Path = Dir1.PathPrivate Sub Drive1_Change（）改变驱动器 Dir1.Path = Drive1.DrivePrivate Sub File1_Click（） FilePath = File1.Path & & File1.Fi

13、leName Picture1.Picture = LoadPicture（FilePath） 2余弦曲线的方程为y=cosx,画出x从-2到2的余弦曲线，并在坐标轴上标出刻度，如图11所示。 图11声明常量Const pi = 3.141592653Dim x, y As Double自定义坐标 Form1.Scale （-2 * pi, 1#）-（2 * pi, -1#）Private Sub form_Click（） Form1.Line （-2 * pi, 0）-（2 * pi, 0） 画X轴 Form1.Line （0, 1.5）-（0, -1.5） 画Y轴标记坐标原点 Form1.

14、CurrentX = 0: Form1.CurrentY = 0: Form1.Print 0标记-2 Form1.CurrentX = -2 * pi: Form1.CurrentY = 0.2: Form1.Print - Form1.CurrentX = -1.08 * pi: Form1.CurrentY = -0.05: Form1.CurrentX = 0.95 * pi: Form1.CurrentX = 1.8 * pi:21 Form1.CurrentX = 0.02: Form1.CurrentY = 0.5: Form1.Print 0.5-1 Form1.Current

15、X = 0.05: Form1.CurrentY = -0.5: Form1.Print -0.5画正弦曲线 For x = -2 * pi To 2 * pi Step pi / 180 y = Cos（x） DrawWidth = 1 定义点的大小 Form1.PSet （x, y）, QBColor（0） 画点 Next x 3使用Line控件显示直线，并且可以显示直线的线宽和线型。运行程序界面如图12所示。 图12 Option1（0）.Value = False Option1（1）.Value = False Option1（2）.Value = False Check1.Capt

16、ion = Private Sub Form_click（） ScaleWidth = 100 ScaleHeight = 100 DrawWidth = 4 Line （15, 20）-（35, 60） Option1（0）.Value = True线宽为44使用Shape控件显示几种图形，并且可以设置图形的边框和填充效果等。程序运行界面如图13所示。 图13Private Sub Form_Click（） If Option1（0）.Value = True Then Shape1.Shape = 0 ElseIf Option1（1）.Value = True Then Shape1.S

17、hape = 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.BorderStyle = 1 ElseI

18、f Option2（3）.Value = True Then Shape1.BorderStyle = 3 Shape1.BorderStyle = 4 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.FillStyle = 3 ElseIf Option3（3）.Value = True Then Shape1.FillStyle = 6

19、5使用SQL Server或Access建立名称为“学生”的数据库，在其中创建“students”的数据表，其结构及初始记录如表1所示。使用ADO对象和MSFlexGrid控件设计数据库列表显示程序。程序的设计界面和运行结果如图14、图15所示。表1学 号姓 名专 业2004001张 红软件专业2004003朱 强会计专业2004002王 丽 图14 图15程序代码标准模块代码Public ADOcn As ConnectionPrivate Sub Main（）定义数据连接字符串 Dim strAccess As String用于连接Access数据库 strAccess = Provide

20、r=Microsoft.Jet.OLEDB.4.0;Data Source=D:VB_N作业编程题演示作业3.三.5db1.mdb;Persist Security Info=False创建连接 Set ADOcn = New Connection ADOcn.Open strAccess Form1.Show窗体form_Click（）事件代码 Dim strSQL, strRecord As String声明一个记录集对象，并与ADOcn关联 Dim ADOrs As New Recordset ADOrs.ActiveConnection = ADOcn ADOrs.Open selec

21、t * from 学生初始化MSFlexGrid表格 MSFlexGrid1.Clear MSFlexGrid1.Rows = 0 行数 MSFlexGrid1.Cols = 3 列数设置表格标题栏 strRecord = 学号 + vbTab + 姓名专业 MSFlexGrid1.AddItem strRecord从第一条记录开始循环，直到表尾 Do While Not ADOrs.EOF拼写表格内容 strRecord = Trim（ADOrs（） + vbTab + Trim（ADOrs（）向表内田加行取下一 条记录 ADOrs.MoveNext Loop“关闭“按钮”Command3_Click（）事件代码Private Sub Command3_Click（） End