《Visual Basic程序设计基础》习题参考答案.doc

第7章 对话框与菜单程序设计一、判断题1 2 3 4 5 6 7 8 9 10二、选择题1D 2A 3C 4C 5B 6D 7A 8B 9D 10B三、填空题1窗体控制菜单、下拉式菜单、快捷菜单 2ShowFont3打开文件、另存为、颜色、字体、打印对话框 4工程、部件5CommonDialog1.Action =3、CommonDialog1.ShowColor6提示信息、对话框类型、对话框标题 7Click8工具 9代码窗口、Click 10相同、正四、程序阅读题程序1. 显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。程序2. 显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的消息框。五、程序填空题1（1）Int(Rnd*100) （2）Str(i) （3）Exit For 2（1）False （2）Date （3）CommonDialog1.Color （4）m1六、程序设计题程序1界面设计略，过程设计如下：Private Sub Command1_Click()CommonDialog1.ShowOpenList1.AddItem CommonDialog1.FileNameEnd Sub程序2界面设计略，过程设计如下：Private Sub Command1_Click()CommonDialog1.ShowSaveList1.AddItem CommonDialog1.FileNameEnd Sub程序3界面设计如图10-9、表10-2所示，过程设计如下：Private Sub Sqr_Click() Shape1.Shape = 1End SubPrivate Sub Rec_Click() Shape1.Shape = 0End SubPrivate Sub Oval_Click() Shape1.Shape = 2End SubPrivate Sub Circle_Click() Shape1.Shape = 3End SubPrivate Sub Rrec_Click() Shape1.Shape = 4End SubPrivate Sub RSqr_Click() Shape1.Shape = 5End SubPrivate Sub Shp_Click() Shape1.FillStyle = 2End SubPrivate Sub Shzh_Click() Shape1.FillStyle = 3End SubPrivate Sub Xiex_Click() Shape1.FillStyle = 4End SubPrivate Sub ShPJ_Click() Shape1.FillStyle = 6End SubPrivate Sub XJ_Click() Shape1.FillStyle = 7End SubPrivate Sub FillColor_Click() CommonDialog1.ShowColor Shape1.FillColor = CommonDialog1.ColorEnd SubPrivate Sub Exit_Click() EndEnd Sub第8章 文 件一、判断题1 2 3 4 5 6 7 89 10 11 12 13 14 15二、选择题1A 2C 3B 4B 5A 6C 7C 8B9C 10B 11D 12B 13B三、填空题1ChDir 2FileLen 3Change 4EOF 5Line Input四、程序阅读题程序1.y= 1 a= 1 程序2. NO. 1 3 程序3. y= 3 a= 2 NO. 2 4 窗体：36 25 16 9 4 1 y= 6 a= 3 NO. 3 7 文件：1 4 9 16 25 36 y= 10 a= 4 NO. 4 11程序4. 程序5. 1 程序6. 1 窗体上显示内容：20 2 2 1 2 文件中内容：4 6 8 10 12 3 3 3 1 2 3 4 4 4 4 5 5 5 5 5五、程序填空题1（1）Dim n As Integer （2）C:windowscalc.exe （3）Output （4）End2（1）For Output As #2 （2）0 （3）temp.dat As c:a1.dat3（1）Open e:dataout.txt For Output As #1 （2）t1 Mod t2 = 0 （3）If flag Then （4）Print coun六、程序设计题程序1界面设计如图10-10所示，过程设计如下：Dim fn As StringPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click() If Right(File1.Path, 1) = Then fn = File1.Path + File1.FileName Else fn = File1.Path + + File1.FileName End IfEnd SubPrivate Sub Command1_Click() Dim yesno As Byte yesno = MsgBox(确认要删除吗？, vbYesNo, 删除文件) If yesno = vbYes Then Kill fn File1.RefreshEnd Sub程序2建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按钮追加该记录到磁盘文件d:student.dat。过程设计如下：Private Sub Command1_Click() Dim b As Date, m As Byte, e As Byte Open d:student.dat For Append As #1 b = Text2.Text: m = Text3.Text: e = Text4.Text Write #1, Text1.Text, b, m, e Text1.Text = : Text2.Text = : Text3.Text = : Text4.Text = Close #1End Sub程序3界面设计如图10-11所示，过程设计如下：Private Sub Form_Load() Dim ss As String Open e:student.txt For Append As #1如文件不存在则先建立该文件 Close #1 Open d:student.dat For Input As #1 将文件中所有记录在列表框中显示 While Not EOF(1) Line Input #1, ss: List1.AddItem ss Wend Close #1 在选中表项之前“删除”、“修改”按钮不可用 Command2.Enabled = False: Command3.Enabled = FalseEnd SubPrivate Sub List1_Click() 选中表项后可“删除”或“修改”，不可“追加”。 Command1.Enabled = False: Command2.Enabled = True Command3.Enabled = True: Text1.Text = List1.TextEnd SubPrivate Sub Command1_Click() 追加记录 If Trim(Text1.Text) Then List1.AddItem Text1.Text Text1.Text = End SubPrivate Sub Command2_Click() 修改记录 List1.AddItem Text1.Text, List1.ListIndex List1.RemoveItem List1.ListIndex Command1.Enabled = True: Command2.Enabled = False Command3.Enabled = False: Text1.Text = 修改后，不可“删除”、“修改”End SubPrivate Sub Command3_Click() 删除记录 List1.RemoveItem List1.ListIndex 删除后，不可“删除”、“修改” Command1.Enabled = True: Command2.Enabled = False Command3.Enabled = False: Text1.Text = End SubPrivate Sub Command4_Click() 保存文件，将列表框中所有表项输出到文件 Dim i As Integer Open d:student.dat For Output As #1 For i = 0 To List1.ListCount - 1: Print #1, List1.List(i): Next i Close #1End SubPrivate Sub Command5_Click() 退出之前先保存文件 Call Command4_Click: EndEnd Sub第9章 数据库与数据访问技术一、判断题1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18.19. 20. 21. 22.二、选择题1.A 2.D 3.C 4.B 5.C 6.A 7.C 8.D9.D 10.C 11.A 12.D 13.A 14.B 15.B 16.C三、程序设计题程序1. （1）数据访问控件以及数据绑定控件的相关属性设置如下Data1：Connect(Access)、DatabaseName(d:学籍.mdb)、RecordSource(学生)Text1：DataSource(Data1)、DataField(学号)Text2：DataSource(Data1)、DataField(姓名)Check1：DataSource(Data1)、DataField(性别)Text3：DataSource(Data1)、DataField(出生日期)Text4：DataSource(Data1)、DataField(奖学金)Text5：DataSource(Data1)、DataField(简历)OLE1：DataSource(Data1)、DataField(照片)Adodc1：ConnectionString(Provider = Microsoft.Jet.OLEDB.4.0; _Data Source = E:GYHVB学籍1b.mdb; Persist Security Info = False)CommandType(1-adCmdText)、RecordSource(select * from 成绩)DataGrid1：DataSource(Adodc1)（2）主要事件过程代码Option ExplicitPrivate Sub Form_Load()Caption = 学籍信息编辑浏览Label1.Caption = 学号: : Label2.Caption = 姓名:Label3.Caption = 出生年月: : Label4.Caption = 奖学金:Label5.Caption = 简历: : Label6.Caption = 照片:Check1.Caption = 性别(选中表示男,否则为女)Label7.Caption = 成绩信息查询显示: Adodc1.Visible = FalseEnd SubPrivate Sub Data1_Reposition()Adodc1.RecordSource = select 成绩.课程号,课程名,成绩 from 学生,课程,成绩 _& where 学生.学号 = 成绩.学号 and & 成绩.课程号 = 课程.课程号 and & _成绩.学号= & Data1.Recordset(学号) & & order by 成绩.课程号Label7.Caption = Trim(Data1.Recordset(姓名) & 成绩信息查询显示Adodc1.RefreshEnd Sub程序2. （1）数据访问控件以及数据绑定控件的相关属性设置如下：Adodc1：ConnectionString(Provider=Microsoft.Jet.OLEDB.4.0; _Data Source = E:GYHVB学籍1b.mdb; Persist Security Info = FalseCommandType(1-adCmdText)、RecordSource(select * from 学生)DataGrid1：DataSource(Adodc1)（2）主要事件过程代码Option ExplicitPrivate Sub Form_Load()Dim i As IntegerCaption = 学籍信息查询浏览: Adodc1.Visible = FalseLabel1.Caption = 选择查询方式：: Combo1.Text = 全部都显示Label2.Caption = 全部表文件数据浏览表格： : Label3.Visible = FalseText1.Visible = False: Text1.Text = For i = 0 To 2 Combo1.AddItem Mid(全部都显示按学号查询按姓名查询, 5 * i + 1, 5)Next iEnd SubPrivate Sub Combo1_Click()Select Case Combo1.ListIndexCase 0 Text1.Visible = False: Label3.Visible = False Adodc1.RecordSource = select * from 学生 Label2.Caption = 全部表文件数据浏览表格：: Adodc1.RefreshCase 1 Label3.Caption = 输入查询条件(学号): : Text1.Visible = True Label3.Visible = True: Text1.SetFocusCase 2 Label3.Caption = 输入查询条件(姓名): : Text1.Visible = True Label3.Visible = True: Text1.SetFocusEnd SelectEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then If Combo1.ListIndex = 1 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find 学号= & Text1.Text & If Adodc1.Recordset.EOF Then Adodc1.RecordSource = select * from 学生 Label2.Caption = 全部表文件数据浏览表格： Adodc1.Refresh: MsgBox 查无此人! Else Adodc1.RecordSource = select * from 学生 & where _学号= & Text1.Text & Label2.Caption = 学生 + Text1.Text + 的数据浏览表格： End If Else Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find 姓名= & Text1.Text & If Adodc1.Recordset.EOF Then Adodc1.RecordSource = select * from 学生 Label2.Caption = 全部表文件数据浏览表格： Adodc1.Refresh: MsgBox 查无此人! Else Adodc1.RecordSource = select * from 学生 & _where 姓名= & Text1.Text & End If End If Adodc1.RefreshEnd IfEnd Sub程序3. （1）数据访问控件以及数据绑定控件的相关属性设置如下：Adodc1(xs)：ConnectionString(Provider=Microsoft.Jet.OLEDB.4.0; _Data Source = E:GYHVB学籍1b.mdb; Persist Security Info=False)CommandType(2-adCmdTable)、RecordSource(学生)Adodc2(kc)：ConnectionString(Provider=Microsoft.Jet.OLEDB.4.0; _Data Source = E:GYHVB学籍1b.mdb; Persist Security Info=False)CommandType(2-adCmdTable)、RecordSource(课程)Adodc3(cjcx)：ConnectionString(Provider=Microsoft.Jet.OLEDB.4.0; _Data Source = E:GYHVB学籍1b.mdb; Persist Security Info=False)CommandType(1-adCmdText)RecordSource（ select 成绩.学号,学生.姓名,成绩.课程号,课程.课程名, _成绩.成绩 from 学生,课程,成绩 where 成绩.课程号 = 课程.课程号 _and 成绩.学号 = 学生.学号 DataGrid1：DataSource(cjcx)DataList1：RowSource(xs)、ListField(姓名）、BoundColumn(学号)DataList2：RowSource(kc)、ListField(课程名)、BoundColumn(课程号)（2）主要事件过程代码Option ExplicitDim p As BytePrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 4 Label1(i).Caption = Mid(优秀良好中等及格差等, 2 * i + 1, 2) Text1(i).Text = : Text1(i).BackColor = RGB(205, 205, 192) Text1(i).Locked = TrueNext icjcx.RecordSource = select 成绩.学号,学生.姓名,成绩.课程号,课程.课程名, _& 成绩.成绩from 学生,课程,成绩 & _where 成绩.课程号=课程.课程号 and 成绩.学号=学生.学号cjcx.Refresh: Label2.Caption = 成绩信息列表Label3.Caption = 选择学生姓名: : Label4.Caption = 选择课程名:xs.Visible = False: kc.Visible = False: cjcx.Visible = FalseCaption = 学籍信息查询: p = 0End SubPrivate Sub DataList1_Click()p = 0: Call cjdctjEnd SubPrivate Sub DataList2_Click()p = 1: Call cjdctjEnd SubPrivate Sub cjdctj()Dim cjdcjs(5) As Integer, dcase As Byte, i As ByteIf p = 0 Then cjcx.RecordSource = select 成绩.学号,学生.姓名,成绩.课程号, _& 课程.课程名,成绩.成绩 from 学生,课程,成绩 _& where 成绩.学号= & DataList1.BoundText & _& and (成绩.课程号=课程.课程号 and _& 成绩.学号=学生.学号) order by 成绩.课程号 Frame1.Caption = 单位：门 Label2.Caption = Trim(DataList1.Text) & 成绩信息列表Else cjcx.RecordSource = select 成绩.学号,学生.姓名,成绩.课程号, _& 课程.课程名,成绩.成绩 from 学生,课程,成绩 _& where成绩.课程号= & DataList2.BoundText & _& and (成绩.课程号=课程.课程号 and _& 成绩.学号=学生.学号) order by 成绩.学号 Frame1.Caption = 单位：人 Label2.Caption = Trim(DataList2.Text) & 成绩信息列表End Ifcjcx.RefreshIf Not cjcx.Recordset.EOF Then cjcx.Recordset.MoveFirstWhile Not cjcx.Recordset.EOF If cjcx.Recordset(成绩) 1 Then Adodc1.Recordset.MovePrevious Else Command1(3).Enabled = False: Command1(4).Enabled = False End If Case 1 If Not Adodc2.Recordset.BOF And Adodc2.Recordset.Bookmark 1 Then Adodc2.Recordset.MovePrevious Else Command1(3).Enabled = False: Command1(4).Enabled = False End If Case 2 If Not Adodc3.Recordset.BOF And Adodc3.Recordset.Bookmark 1 Then Adodc3.Recordset.MovePrevious Else Command1(3).Enabled = False: Command1(4).Enabled = False End If End Select Command1(5).Enabled = True: Command1(6).Enabled = TrueCase 5 Select Case SSTab1.Tab Case 0 If Not Adodc1.Recordset.EOF And _Adodc1.Recordset.Bookmark Adodc1.Recordset.RecordCount Then Adodc1.Recordset.MoveNext Else Command1(5).Enabled = False: Command1(6).Enabled = False End If Case 1 If Not Adodc2.Recordset.EOF And _Adodc2.Recordset.Bookmark Adodc2.Recordset.RecordCount Then Adodc2.Recordset.MoveNext Else Command1(5).Enabled = False: Command1(6).Enabled = False End If Case 2 If Not Adodc3.Recordset.EOF And _Adodc3.Recordset.Bookmark Adodc2.Recordset.RecordCount Then Adodc3.Recordset.MoveNext Else Command1(5).Enabled = False: Command1(6).Enabled = False End If End Select Command1(3).Enabled = True: Command1(4).Enabled = TrueCase 6 Select Case SSTab1.Tab Case 0: Adodc1.Recordset.MoveLast Case 1: Adodc2.Recordset.MoveLast Case 2: Adodc3.Recordset.MoveLast End Select Command1(6).Enabled = False: Command1(5).Enabled = False Command1(4).Enabled = True: Command1(3).Enabled = TrueCase 7 Unload MeEnd SelectIf Not Adodc1.Recordset.EOF Then Text1.Text = Adodc1.Recordset(学号)If Not Adodc2.Recordset.EOF Then Text5.Text = Adodc2.Recordset(课程号)If Not Adodc3.Recordset.EOF Then Text11.Text = Adodc3.Recordset(学号) Text12.Text = Adodc3.Recordset(课程号)End IfExit suberrshow: MsgBox Err.DescriptionEnd SubPrivate Sub SSTab1_Click(PreviousTab As Integer)If Not Adodc1.Recordset.EOF Then Text1.Text = Adodc1.Recordset(学号)If Not Adodc2.Recordset.E