《可视化程序设计》试卷四.doc

可视化程序设计试卷四班级_ 姓名_ 学号_ 得分_一、填空题（共20分，每空1分）1.在可视化程序设计中，将描述事物的数据与处理数据的函数组成的导出数据类型称为类，用类定义的变量称为对象。将描述对象特性的数据成员称为_，将处理数据的成员函数称为_。2.按设计要求编写控件事件驱动程序。执行程序时，触发控件执行事件驱动程序，完成规定任务的程序设计方法称为_。3. VB中显示与隐藏窗体的方法分别是_方法、_方法。装载窗体的事件是Load ，卸载窗体事件是 UnLoad 。激活窗体的事件是 Active。4.在VB开发环境中，使用 _ 设计主菜单，使用_方法，设计弹出式菜单。5. 在MID多文档程序设计中，父窗体的MDIChild属性为_，子窗体的MDIChild属性为_6. 在VB中可使用Data控件、_控件及_与数据库及数据表连接。设计数据库应用程序。7.在VB中，用Adodc控件的_属性选择数据库类型与驱动程序、安全信息与数据库，用CommandType属性选择与数据表连接的方式，用_属性选择数据表或输入SQL语句。用_属性表示数据表中记录的集合。8. VB使用_与数据报表设计器来创建报表。数据报表_、页标题、分组标题、明细表、页注脚、报表注脚6部分组成，每一部分称为一个Section对象。 9.MonthView控件是通过_属性返回日期。Calendar控件是通过_属性返回年、月、日。 TreeView控件用Node结点显示分层列表。用_方法为树形控件添加结点和子结点。10. 在标准模块中用Pubilc关键字定义的变量，其作用域为_ 二、读程序（10分）1读下列程序，并写出程序运行结果（4分）。Private Sub Cmd1_Click() Dim a As Integer ,b As Integer a=1:b=1 Do While a=3 b=b+a*2 a=a+1 Loop Print a,bEnd Sub 答：4132读下列程序，并写出程序运行结果（6分）。Private Sub Cmd1_Click()Dim C As String, I As Integer C = BA For I = 1 To Len(C) C = Mid(C, 2 * I - 1, 1) & Left(C, Len(C) Print C Next IEnd Sub ABBA三、完善程序（10分，每空1分）1 编写控件事件过程。用TextBox1 、TextBox2控件输入Year(年)与Month（月），按命令按钮Commnd1后，在单击事件过程中，由Year（年）与Month（月）计算当月天数Day，最后用TextBox3控件输出Day中的天数。程序设计界面如图1所示。图1 由年、月计算天数Option ExplicitPrivate Sub Command1_Click() Dim Year As Integer, Month, As Integer Day As Integer Year = Val(Text1.Text) Month = Val(Text2.Text) Select _ Case _ Day = 31 Case _ Day = 30 Case 2 If _Then Day = 29 Else Day = 28 End If End Select _= Str(Day)End Sub图2 顺序查找程序2. 完善顺序查找程序。按生成数组按钮后，用Array函数将10个数赋给一维数组S，并TextBox1显示。用TextBox2输入要查找的数，按查询按钮查找，查询结果用TextBox3显示。程序界面如图2所示。Option ExplicitOption Base 1Dim S As _Private Sub Cmd_Find_Click() 查找过程 Dim I As Integer, D As Integer D = Val(Text2.Text) For I = 1 To _ If S(I) = D Then _ _ Next I If I Max Then Max = Arry(I) End If Next IEnd FunctionPrivate Sub Sort(Arry() As Integer, ByVal N As Integer) Dim I As Integer, J As Integer, K As Integer, Temp As Integer For 五、学生档案管理系统设计题(50分 ，每空1分)在学生档案管理系统工程（xsdagl.vbp）中建立班级编码维护程序、学生档案录入程序、学生档案查询程序、学生档案统计程序。完善下列程序设计过程。1. 用Data控件设计班级编码表维护程序（14分）（1）在工程文件xsdagl.vbp中添加新窗体Form_XSDA62。（2）在窗体中添加四个Data控件，其Name属性分别为Data_TB03、Data_TB04、Data_TB06、Data_TC04，分别与班级编码表TB03、专业编码表TB04、系部编码表TB06、毕业标志编码表TC04连接。（3）在窗体添加一个DBGrid控件，能显示与编辑班级编码表TB03中的字段内容。其数据源属性DataSource=_ _。（4）在窗体中添加一个DBCombo控件，Name属性为DBCombo_TB04，用于显示与输入专业编码TB0304。在下表中填写DBCombo_TB04的属性。属性DBCombo_TB04DataSouceData_TB03DataFieldTB0304RowSouceData_TB04ListFieldTB0402BoundFieldTB0401 （5）编写单击工具栏（Toolbar1）中退出按钮（Exit）与统计按钮(Sata)的事件过程。Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Dim n As Integer, Sum As IntegerSelect Case _ _ _ Case Exit _ Case Stat With _ StatusBar1.Panels(1).Text = 班级数： & ._ Sun = 0 Do While Not ._ Sum = Sum + ._ _ Loop _= 学生人数： & Sum End With End SelectEnd Sub2. 用ADO Data控件设计学生档案录入程序（11分）（1）在学生档案管理系统中添加学生档案录入子窗体Form_XSDA21。（2）放置工具栏，添加一个按钮，用于退出(Exit)。（3）在窗体内添加Adodc_TB06、DataCombo_TB06控件，使用这两个控件与系部编码表TB06连接。在窗体内添加Adodc_TB03、DataGrid_TB03控件，使用这两个控件与班级编码表连接，当用户在DataCombo_TB06控件中选择某系时，在DataGrid_TB03控件中只显示该系所有班级。完善DataCombo_TB06控件的Change事件处理程序。Private Sub DataCombo_TB06_Change()Adodc_TB03.CommandType = _ Adodc_TB03.RecordSource = Select TB0302,TB0301,TB0602 From _ Where _and TB0602=_ Adodc_TB03._ DataGrid_TB03.RefreshEnd Sub（4）在窗体内添加Adodc_XA01、DataGrid_XA01控件，使用这两个控件与学生档案编码表XA01连接，当用户在DataGrid_TB03控件中选择某班时，在DataGrid_XA01控件中只显示该班所有学生记录。完善DataGrid_TB03控件的Click事件处理程序。Private Sub DataGrid_TB03_Click() Adodc_XA01.Recordset.Filter = XA0114 = _ DataGrid_XA01.RefreshEnd Sub（5）在窗体内添加一个Picture_XA0121控件，用于显示学生照片。属性设置如下：DataSource=_，DataField=_（6）在窗体内添加一个对话框控件CommonDialog1，单击Picture_XA0121控件，录入学生照片的事件处理过程Private Sub Picture_XA0121_Click()With CommonDialog1 . _ Picture_XA0121. _= LoadPicture(._)End WithEnd Sub3. 用树形控件TreeView设计学生档案查询程序（15分）（1）在学生档案管理系统中增加学生档案查询子窗体Form_XSDA32（2）在窗体内添加Adodc_TB06控件，用该控件与系部编码表TB06连接，用于向树形控件中的添加系部主结点。在窗体内添加Adodc_TB03控件，用该控件与班级编码表TB03连接，用于在系部主结点中添加班级子结点。（3）在窗体内添加Adodc_XA01、DataGrid_XA01控件，使用这两个控件与学生档案编码表XA01连接，当用户在树形控件中选择某班时，在DataGrid_XA01控件中只显示该班所有学生记录。（4）在窗体内添加TreeView控件，并设置其属性。完善初始化TreeView控件的事件过程。Private Sub Form_Load() Dim Key As String, Text As String, Key1 As String, Text1 As String Dim Nod As _ Dim Str As String Adodc_TB06.CommandType = adCmdTable Adodc_TB06.RecordSource = TB06 Adodc_TB06.Refresh If Adodc_TB06.Recordset.RecordCount 0 Then With Adodc_TB06.Recordset .MoveFirst Do While Not .EOF Key =_ Text = .Fields(TB0602) Str = _ Set Nod = TreeView_TB03.Nodes.Add(_) Adodc_TB03.CommandType = adCmdText Adodc_TB03.RecordSource = _ Adodc_TB03.Refresh With _ Do While Not .EOF Key1 = _ Text1 =_ Set Nod = TreeView_TB03.Nodes.Add(_) .MoveNext Loop End With _ Loop End With End IfEnd Sub（7）完善单击树形控件中班级子结点，查询该班所有学生信息的事件过程Private Sub TreeView_TB03_NodeClick(ByVal Node As MSComctlLib.Node) Dim I As Integer, Sum1 As Integer, Sum2 As Integer With Adodc_XA01 .CommandType = adCmdText .RecordSource = Select A.*,GC0102,GC0202,GC0302,GC0402,TB0302 & _ From XA01 As A ,GC01,GC02,GC03,GC04 ,TB03 Where XA0106 =_ And XA0108 = _And XA0109 =_ and XA0110=GC0401 and XA0114=_ and TB0302=_ .Refresh End With DataGrid_XA01.RefreshEnd Sub4. 用MSChart控件设计生源地区分布统计图表程序（10分）（1）在学生档案管理系统中增加学生档案统计子窗体Form_XSDA41（2）用TreeView控件选择系部与班级，完善单击班级子结点显示该地区生源分布图表的事件程序：Privat