大学计算机VB程序设计教程课后答案.docVIP

参考答案 第1章 概述 二．选择题： 1.C 2. B. 3.C. 4.C. 5.A 6.C 7.D 8.B 9.B 10.B 11.A 12.C 13.D 14.C 15.D 16.A 17.C 18.A 19.A 20.D 21.B 三．填空题： 1.面向对象，事件驱动 2.编译，解释 3.设计，运行，中断 4.F5 5.调试 6.切换文件夹 四．编程及上机调试： 略 Sub Form_Click( ) Label1.Caption = “你单击了窗体” End Sub Sub Form_DblClick( ) Label1.Caption = “你双击了窗体” End Sub 第2章 面向对象编程基础 二．选择题： 1.C 2. C. 3.B. 4.B. 5.D 6.D 7.B 8.B 9.C 10.D 11.B 12.B 13.B 14.C 15.A 16.B 17.B 18.B 19.C 20.B 三．填空题： 1.窗体，控件 2.属性，事件，方法 3.command2_click 4.picture 5.中部，代码 四．编程及上机调试： 1．Private Sub Command1_Click() Form1.WindowState = 2 End Sub Private Sub Command2_Click() Form1.WindowState = 0 End Sub Private Sub Command3_Click() Form1.WindowState = 1 End Sub 2．Private Sub Command1_Click() Form1.Picture = LoadPicture(d:\picture\flower.wmf) Command1.Visible = False Command2.Visible = False End Sub Private Sub Command2_Click() End End Sub Private Sub Form_DblClick() Form1.Picture = LoadPicture() Command1.Visible = True Command2.Visible = True End Sub 第3章 常用标准控件 二．选择题： 1.C 2. B 3.C. 4.D 5.B 6.B 7.A 8.C 9.B 10.C 11.C 12.A 13.C 14.B 15.D 16.D 17.C 18.A 19.D 20.A 21.B 三．编程及上机调试： 1. Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Check3_Click() If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub Private Sub Command1_Click() Text1.Text = End Sub 2. Private Sub Command1_Click() Text2.Text = List1.ListCount End Sub Private Sub Command2_Click() List1.AddItem Text1.Text Text1.Text = End Sub Private Sub Command3_Click() Dim i As Integer i = List1.ListIndex List1.RemoveItem i Command3.Enabled = False Text1.SetFocus Text2.Text = List1.ListCount End Sub Private Sub