齐幼菊版《Visual Basic程序设计》课程作业四及答案文档格式.docx

1、select * from 学生表ADOrs.Open strSQL ADOrs.Close 3程序设计题（1）有以下3个数据表：学生表：student_info（student_id,student_name,student_sex,student_class），分别表示学号、姓名、性别、班级，各字段数据类型都是文本。课程表：course_info（course_ID ,course_name ,course_credit），分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为数字类型。成绩表：mark_info（student_ID, course_ID,mark），分别表示学号

2、、课程号、成绩，其中学号、课程号为文本类型，mark为数字类型。写出下列功能的SQL语句：插入一个新课程记录（课程号：A001；课程名：英语1；学分：5）修改学号为“95020”，课程号为“A001”的成绩为85查询所有学生的基本信息，使用中文作为查询结果的各字段的名称统计出各个班级的人数查询出学号为“95020”所选修的课程名和成绩，以及姓名（2）编写使用ADO对象中的Connection对象连接SQL Server数据库的代码。（3）使用Visual Basic开发一个简单的通讯录，要求实现以下功能：能够录入联系人的基本信息，并保存。输入后，可以浏览所有联系人的基本信息。可以按姓名等关键字

3、查找记录。能够对个人的基本信联系人息进行编辑修改和删除记录。第章 多媒体应用播放器（1）决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（ ）。AEnable BAutoEnableCPlayEnabled D以上答案都不正确（2）将多媒体控件（MMControl）的Frames属性设为3，则以下叙述正确的是（ ）。A指定Back或Step命令后退或前进的帧数都为3B只有Back命令后退的帧数为3C只有Step命令前进的帧数为3D后退或前进的帧数都为6（3）多媒体控件（MMControl）具有一组执行MCI命令的下压式按钮。其中Record按钮表示为（ ）。A前一首 B

4、录制 C弹出 D播放（4）为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（ ）。AMMControl1.Visible= FalseBMMControl1.Visible= TrueCMMControl1.RecordVisible= FalseDMMControl1.RecordVisible= True（5）在多媒体控件（MMControl）中，DeviceType属性用于设置多媒体设备的类型，如果将要播放的文件是CD歌曲，应将DeviceType属性设置为（ ）。ADigitalVideo BWaveAudio CAVIVideo DCDAudio（6）Window

5、s Media Player控件的UiMode属性，表示播放器界面模式，以下选项是播放器模式的属性值是（ ）。AFull BMini CNone D以上都是 （7）在Windows Media Player控件中，决定播放文件是否全屏的属性是（ ）。AFullScreen BFull CScreen DstretchToFit2程序设计题设计CD播放器程序，通过该程序能够欣赏CD-ROM中CD曲目，并能控制播放状态及更改播放曲目，显示CD盘中的歌曲总数及正在播放歌曲的播放总时间，界面如下图所示。参考答案（1）B （2）A （3）B （4）C（1）声明Connection对象Adocn 创建新对

6、象建立与数据库连接（2）声明并创建一个新的Recordset对象与Connection对象建立关联声明一条SQL语句执行SQL语句，记录集为查询结果关闭记录集对象1 Insert into course_info values （A001, 英语, 5）2 Update mark_info set mark=85 where student_ID =95020 and course_ID =3 Select student_id as 学号, student_name as 姓名, student_sex as 性别, student_class as 班级 from student_info

7、 4 Select student_class ,count（*） from student_info group by student_class 5 Select student_name as 姓名, course_name as 课程名, mark as成绩from student_info, course_info, mark_info where student_info. student_id = mark_info. student_id and course_info. course_ID = mark_info. course_IDand student_info. stu

8、dent_id =Public ADOcn As ConnectionPublic Sub Main（）Dim strSqlServer As StringstrSqlServer=Provider=SQLOLEDB;Server=（local）;User ID=sa; _ Password=sa; Database=XSIf ADOcn Is Nothing ThenSet ADOcn = New ConnectionADOcn.Open strSqlServer 连接SQL Server数据库End IfEnd Sub（3）Frmmain窗体Private Sub Form_Load（）

9、Combo1.AddItem 姓名手机Private Sub modify_Click（） If DataGrid1.Visible = False Then frmadd.Show Else frmupdate.Show End IfPrivate Sub new_Click（） frmadd.ShowPrivate Sub quit_Click（） EndPrivate Sub refesh_Click（） Dim strSQL As String strSQL = select * from address_list Adodc1.RecordSource = strSQL Adodc1

10、.Refresh DataGrid1.Visible = True DataGrid1.Refreshfrmadd窗体Private Sub about_Click（） frmabout.ShowPrivate Sub Command1_Click（） Dim strSQL As String If Combo1.Text = Then If Text1.Text = MsgBox 请输入要查询的姓名, vbQuestion + vbOKOnly Else strSQL = select * strSQL = strSQL + from address_list where name= + T

11、ext1.Text + Adodc1.Refresh End If请输入要查询的手机 from address_list where mobile=Private Sub DataGrid1_Click（） Adodc1.Caption = 第 + DataGrid1.Text + 记录Private Sub delete_Click（） If MsgBox（是否要删除？, vbQuestion + vbYesNo） = vbYes ThenDelete From address_list Where 编号= + DataGrid1.Text ADOcn.Execute strSQL删除成功

12、Combo1.AddItem If DataGrid1.Visible = False Then frmadd.Show frmupdate.Show Endfrmupdate窗体update address_list set name= + Text1.Text,sex= + Combo1.Text,mobile= + Text3.Text,phone= + Text4.Text,QQ= + Text5.Text,Email= + Text6.Text,address= + Text7.Text where id= + frmmain.DataGrid1.Text修改成功！ frmmain.

13、Adodc1.RefreshPrivate Sub Command2_Click（） Unload Me Text1.Text = 男女 Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Dim ADOrs As New Recordset ADOrs.ActiveConnection = ADOcn ADOrs.Open select * from address_list where id= Text1.Text = ADOrs.Fields（name） Combo1.Text = ADOrs.Fields（s

14、ex Text3.Text = ADOrs.Fields（mobile Text4.Text = ADOrs.Fields（phone Text5.Text = ADOrs.Fields（QQ Text6.Text = ADOrs.Fields（Email Text7.Text = ADOrs.Fields（addressModule1模块声明全局对象变量ADOcn，用于创建与数据库的连接定义数据库连接字符串 Dim strAccess As String用于连接Access数据库，其中Data Source为具体的数据库文件路径，其他设置不变 strAccess = Data Source=

15、通讯录.mdb如果还没有建立与数据库的连接，则用以下代码创建。 If ADOcn Is Nothing Then Set ADOcn = New ConnectionADOcn.Open strSQLServer ADOcn.Open strAccess 连接Access数据库如果希望连接Access数据库，则使用strAccess无论你使用的是何种数据库，只需改变此处设置，其他程序代码基本不用改变 frmmain.Show 显示主窗体（1）B （2）A （3）B （4）C （5）D（6）D （7）D初始化设备 MMControl1.Visible = False MMControl1.Not

16、ify = True MMControl1.Shareable = False MMControl1.TimeFormat = 0 MMControl1.DeviceType = cdaudio MMControl1.UpdateInterval = 1000Private Sub MMControl1_StatusUpdate（）计算曲目信息 label2.Caption = 曲目总数： & MMControl1.Tracks Label3.Caption = 曲目播放总时间： Trim（Str（Int（MMControl1.Length / 60000） + 分 Label4.Captio

17、n = 正在播放曲目： MMControl1.TrackPrivate Sub ComPlay_Click（）开始播放 MMControl1.Command = play ComPause.Enabled = True ComPlay.Enabled = False ComStop.Enabled = TruePrivate Sub ComPrev_Click（）播放上一首prevPrivate Sub ComNext_Click（）播放下一首nextPrivate Sub ComPause_Click（）暂停播放pause ComPlay.Enabled = TruePrivate Sub ComStop_Click（）停止播放stop ComStop.Enabled = FalsePrivate Sub ComEject_Click（）弹出ejectPrivate Sub ComEnd_Click（）退出Private Sub Form_Unload（Cancel As Integer）关闭MCI设备close