Basic程序设计作业题解Word文件下载.docx
《Basic程序设计作业题解Word文件下载.docx》由会员分享，可在线阅读，更多相关《Basic程序设计作业题解Word文件下载.docx（17页珍藏版）》请在冰豆网上搜索。
A．Drawstyle属性
B．DrawWidth属性
C．Scale属性
D．ScaleMode属性
D
8．以下的属性和方法中，可重定义坐标系的是（）。
A．Drawstyle属性
D．ScaleMode属
9当使用Line方法画直线后，当前坐标在（）。
A．（0，0）
B．直线起点
C．直线终点
D．容器的中心
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）
11．设置对象的边框类型的属性是（）。
A．Drawstyle
B．Borderstyle
C．DrawWidth
D．ScaleMode
12．为了清除图片框Picture1中的图形，应采用的正确方法是（）。
A．选择图片框，然后按Del键
B．执行语句Picture1.Pictyre=LoadPicture（“”）
C．执行语句Picture1.Pictyre=””
D．选择图片框，在窗口属性中选择Picture属性条，然后按回车键
13．要绘制多种形状的图形，需要设置Shape控件的（）属性。
A．Shape
B．Bordrestyle
C．FillStyle
D．Style
14．要绘制多种式样的直线，需要设置Linee控件的（）属性。
15．如果准备读文件，打开顺序文件“text.dat”的正确语句是（）。
A．open”text.dat”ForwriteAs#1
B．open”text.dat”ForBinaryAs#1
C．open”text.dat”ForInputAs#1
D．open”text.dat”ForRandomAs#1
16．如果准备向随机文件写入数据，正确的语句是（）。
A．Print#1,rec
B．Write#1,rec
C．Put#1,rec
D．Get#1,rec
17．下列“CommonDialog1”控件程序代码，Commondialog1.Action=1,代表（）。
A．文件另存为
B．打开文件
C．色彩
D．打印
18．FileFiles.Pattern=”*.bat”程序代码执行后，会显示（）。
A．只包含扩展文件名为“*.bat”的文件
B．第一个bat文件
C．包含所有文件
D．会显示磁盘的路径
19．下列数据对象数据模型中采用OLEDB访问数据库的是（）。
A．DAO
B．RDO
C．ADO
D．RDO或ADO
20．设ADOrs为Recordset对象，从“学生基本情况表”中获取所有记录的语句是（）。
A．ADOrs.Open“select*From学生基本情况表”
B．ADOrs.Execute“select*From学生基本情况表”
C．ADOrs.New“select*From学生基本情况表”
D．ADOrs.Select“select*From学生基本情况表”
21．VB中将变量x1声明为Excel应用程序对象的方法是（）。
A．Dimx1AsExcel.Application
B．Dimx1AsExcel.Workbook
C．Dimx1AsExcel.Worksheet
D．Dimx1AsExcel.Worksheets
二、填空题
1．如果要新建一个顺序文件，用Open语句时，操作方式关键词是。
Output
2．在VisualBasic程序中实现复制文件”c:
\”到d:
盘根目录下的语句为
。
Filecopyc:
\,d:
3．在VisualBasic程序中实现删除文件”d:
\tem.tmp”的语句为。
答案：
Kill“d:
\tem.tmp
4．按文件号为1打开顺序文件SQLNEW.DAT，用于写入数据，语句为。
Open“SQLNEW.DAT”ForOutputAs#1
5．按文件号为2打开顺序文件SQLOLD.DAT，用于从该文件读出数据，语句为
。
Open“SQLOLD.DAT”ForInputtAs#2
6．若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则x轴的整方向向
，y轴的整方向向。
右上
7．Stretch属性设置为时，图像框可以改变大小移适应其中的图像。
True
8．在图片框Picture1中画一个左上角在（500，500），边长为500的红色实心正方形的语句为。
Picture1.Line（500,500）-（1000,1000）,vbRed,BF
9．设CurrentX=50,CurrentY=100,执行指令”Lint（100,20）-Step（300,500”后，Current=
（400,520）
10．使用ADO模型时，可通过属性建立Recordset和Connection对象的连接。
ActiveConnection
11．VB将数据库分为本地数据库、和三种类型。
外部数据库远程数据库
12．采用ADO模型时，当使用Open方法打开一个记录集后，与ADOrs.Fields（”学号”）等效的语句是。
ADOrs（“学号”）
13．ADO模型中一般可通过Connection对象的Execute方法执行、
、等三种不返回结果集的SQL语句。
增加删除修改
14．设StrSQL、Str1为字符串变量，其中Str1的值为”001”，那么执行赋值语句StrSQL=”Select*fromTable1Where学号=’”+Str1+”’”后，StrSQL的值等于。
Select*fromTabel1Where学号=’001’
15．在VB中，将Foxpro称为外部数据库，Access称为，SQLServer称为。
本地数据库远程数据库
三、程序设计题
1．PrivateSubForm_Click（）
StaticSumAsInteger
ForI=1To100
Sum=Sum+I
NextI
PrintSum
EndSub
5050
2．PrivateSubForm_Click（）
A=10:
b=15:
c=20:
d=25
PrintA;
Spc（5）;
b;
Spc（7）;
c
Spc（8）;
Space$（5）;
Printc;
Spc（3）;
"
+"
;
d;
PrintSpc（3）;
="
c+d
说明：
一行中有多个语句时各语句之间需要插入冒号“：
”；
Spc（n）用来在输出中插入空白字符，n为空白字符数；
逗号“，”分界符分隔要显示的多个项目，每个项目之间距离一个制表符（TAB）；
分号“；
”表示所有的项目并列显示（尽管下一个Print语句已经换行），中间没有空格
3．PrivateSubForm_Click（）
Fori%=1To3
Forj%=1Toi
PrintLTrim（Str（i%））+"
*"
+LTrim（Str（j%））+"
i%*j%;
Nextj%
Print
Nexti%
4．PrivateSubCommand1_Click（）
Dima,bAsInteger
a=3.4
b=3.4
Text1.Text=a
Text2.Text=b
Text1显示3.4，Text2显示3。
如下图所示。
5．PrivateSubForm_Click（）
Fori=1To5
PrintTab（11-i）;
ForJ=1Toi*2-1
Print"
Next
Nexti
四、程序设计题
1．在窗体上建立一个驱动器列表、目录列表框、文件列表框、图片框。
要求程序运行后，驱动器列表框Drive1的默认驱动器设置为C盘，选择File1中所列的图片文件（*.bmp和*.jgp），则相应的图片显示在图片框Picture1中。
程序运行结果如图10所示。
程序代码：
PrivateSubForm_Load（）
'
设置控件的有效状态
Drive1.Enabled=True
Dir1.Enabled=True
File1.Enabled=True
设置过滤器
File1.Pattern="
*.jpg"
设置控件的初始驱动器
Drive1.Drive="
g:
\"
Picture1.AutoSize=True
PrivateSubDir1_Change（）
改变目录
File1.Path=Dir1.Path
PrivateSubDrive1_Change（）
改变驱动器
Dir1.Path=Drive1.Drive
PrivateSubFile1_Click（）
FilePath=File1.Path&
&
File1.FileName
Picture1.Picture=LoadPicture（FilePath）
2．余弦曲线的方程为y=cosx,画出x从-2到2的余弦曲线，并在坐标轴上标出刻度，如图11所示。
图11
'
声明π常量
Constpi=3.141592653
Dimx,yAsDouble
自定义坐标
Form1.Scale（-2*pi,1#）-（2*pi,-1#）
PrivateSubform_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.Print0
标记"
-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:
2π"
1"
Form1.CurrentX=0.02:
Form1.CurrentY=0.5:
Form1.Print0.5
-1"
Form1.CurrentX=0.05:
Form1.CurrentY=-0.5:
Form1.Print-0.5
画正弦曲线
Forx=-2*piTo2*piSteppi/180
y=Cos（x）
DrawWidth=1'
定义点的大小
Form1.PSet（x,y）,QBColor（0）'
画点
Nextx
3．使用Line控件显示直线，并且可以显示直线的线宽和线型。
运行程序界面如图12所示。
图12
Option1（0）.Value=False
Option1
（1）.Value=False
Option1
（2）.Value=False
Check1.Caption="
"
PrivateSubForm_click（）
ScaleWidth=100
ScaleHeight=100
DrawWidth=4
Line（15,20）-（35,60）
Option1（0）.Value=True
线宽为4"
4．使用Shape控件显示几种图形，并且可以设置图形的边框和填充效果等。
程序运行界面如图13所示。
图13
PrivateSubForm_Click（）
IfOption1（0）.Value=TrueThen
Shape1.Shape=0
ElseIfOption1
（1）.Value=TrueThen
Shape1.Shape=1
ElseIfOption1
（2）.Value=TrueThen
Shape1.Shape=3
ElseIfOption1（3）.Value=TrueThen
Shape1.Shape=4
EndIf
IfOption2（0）.Value=TrueThen
Shape1.BorderStyle=0
ElseIfOption2
（1）.Value=TrueThen
Shape1.BorderStyle=2
ElseIfOption2
（2）.Value=TrueThen
Shape1.BorderStyle=1
ElseIfOption2（3）.Value=TrueThen
Shape1.BorderStyle=3
Shape1.BorderStyle=4
IfOption3（0）.Value=TrueThen
Shape1.FillStyle=1
ElseIfOption3
（1）.Value=TrueThen
Shape1.FillStyle=2
ElseIfOption3
（2）.Value=TrueThen
Shape1.FillStyle=3
ElseIfOption3（3）.Value=TrueThen
Shape1.FillStyle=6
5．使用SQLServer或Access建立名称为“学生”的数据库，在其中创建“students”的数据表，其结构及初始记录如表1所示。
使用ADO对象和MSFlexGrid控件设计数据库列表显示程序。
程序的设计界面和运行结果如图14、图15所示。
表1
学号
姓名
专业
2004001
张红
软件专业
2004003
朱强
会计专业
2004002
王丽
图14
图15
程序代码
标准模块代码
PublicADOcnAsConnection
PrivateSubMain（）
定义数据连接字符串
DimstrAccessAsString
用于连接Access数据库
strAccess="
Provider=Microsoft.Jet.OLEDB.4.0;
DataSource=D:
\VB_N\作业编程题演示\作业3.三.5\db1.mdb;
PersistSecurityInfo=False"
创建连接
SetADOcn=NewConnection
ADOcn.OpenstrAccess
Form1.Show
窗体form_Click（）事件代码
DimstrSQL,strRecordAsString
声明一个记录集对象，并与ADOcn关联
DimADOrsAsNewRecordset
ADOrs.ActiveConnection=ADOcn
ADOrs.Open"
select*from学生"
初始化MSFlexGrid表格
MSFlexGrid1.Clear
MSFlexGrid1.Rows=0'
行数
MSFlexGrid1.Cols=3'
列数
设置表格标题栏
strRecord="
学号"
+vbTab+"
姓名"
专业"
MSFlexGrid1.AddItemstrRecord
从第一条记录开始循环，直到表尾
DoWhileNotADOrs.EOF
拼写表格内容
strRecord=Trim（ADOrs（"
））+vbTab+Trim（ADOrs（"
））
向表内田加行
取下一条记录
ADOrs.MoveNext
Loop
“关闭“按钮”Command3_Click（）事件代码
PrivateSubCommand3_Click（）
End
升级会员 