程序设计基础——Visual Basic学习与实验指导 教学课件 作者 陈丽芳习题答案 第2章第3章实验答案.docVIP

2.1（1）Text4.BackColor （2）a (3) end 2.4 解答：根据题目要求分别设置命令按钮名称属性为C1和C2，标题Caption属性分别为命令按钮1和命令按钮2 设置命令按钮2的Visible可视属性为False Private Sub C1_Click() 编写命令按钮1的单击事件过程 C2.Visible = True C1.Visible = False End Sub Private Sub C2_Click() 编写命令按钮2的单击事件过程 C1.Visible = True C2.Visible = False End Sub 2.5 解答： 设置文本框的文本Text属性为空 根据题目要求设置单选按钮的标题Caption属性 Private Sub Op1_Click() 编写“北京”按钮的单击事件过程 Text1.Text = 颐和园 End Sub Private Sub Op2_Click() 编写“西安”按钮的单击事件过程 Text1.Text = 兵马俑 End Sub Private Sub Op3_Click() 编写“杭州”按钮的单击事件过程 Text1.Text = 西湖 End Sub 2.6 Dim lenth As Integer, q As Integer Const PI = 3.14159 Private Sub CmdStart_Click() “开始”命令按钮的单击事件 _______________________参考答案Timer1.Enabled = True End Sub Private Sub CmdStop_Click() “停止”命令按钮的单击事件 _______________________参考答案Timer1.Enabled = False End Sub Private Sub Form_Load() 窗体的装载事件 _______________________参考答案Timer1.Enabled = False _______________________参考答案Timer1.Interval = 1000 lenth = LinSecondHand.Y2 - LinSecondHand.Y1 q = 90 End Sub Private Sub Timer1_Timer() 时间控件的Timer事件 q = q - 6 LinSecondHand.Y1 = LinSecondHand.Y2 - lenth * Sin(q * PI / 180) LinSecondHand.X1 = _______________________参考答案LinSecondHand.X2 + lenth * Cos(q * PI / 180) End Sub 3.1 (1) Val(Text4.Text) (2) Val(Text5.Text (3) Int(Rnd*(Num2-Num1+1)+Num1) (4) Int(Rnd*(Num2-Num1+1)+Num1) (5) End (6) B1(Index).Caption (7) Index (8) Val(Text2.Text)0 3.2 (1) Button=2 (2) False (3) 黑体 (4) 隶书 (5) PopupMenu 3.3 参考答案： Private Sub Form_Paint() Static FlagFormPainted As Integer 当第一次画窗体时， If FlagFormPainted True Then For i = 1 To 5 Load Option1(i) 给数组添加 5 个选项按钮。 Option1(i).Top = Option1(i - 1).Top + 350 Option1(i).Visible = True Next i Option1(0).Caption = Open 在每个选项按钮上放置标题。 Option1(1).Caption = Save Option1(2).Caption = Color Option1(3).Caption = Font Option1(4).Caption = Printer Option1(5).Caption = H