《程序设计基础——Visual Basic学习与实验指导 教学课件 ppt 作者 陈丽芳习题答案 第2章第3章实验答案》由会员分享,可在线阅读,更多相关《程序设计基础——Visual Basic学习与实验指导 教学课件 ppt 作者 陈丽芳习题答案 第2章第3章实验答案(4页珍藏版)》请在金锄头文库上搜索。
1、2.1(1)Text4.BackColor (2)a(3) end2.4解答:根据题目要求分别设置命令按钮名称属性为C1和C2,标题Caption属性分别为命令按钮1和命令按钮2设置命令按钮2的Visible可视属性为FalsePrivate Sub C1_Click() 编写命令按钮1的单击事件过程 C2.Visible = True C1.Visible = FalseEnd SubPrivate Sub C2_Click() 编写命令按钮2的单击事件过程 C1.Visible = True C2.Visible = FalseEnd Sub2.5解答:设置文本框的文本Text属性为空根据
2、题目要求设置单选按钮的标题Caption属性Private Sub Op1_Click() 编写“北京”按钮的单击事件过程 Text1.Text = 颐和园End SubPrivate Sub Op2_Click() 编写“西安”按钮的单击事件过程 Text1.Text = 兵马俑End SubPrivate Sub Op3_Click() 编写“杭州”按钮的单击事件过程 Text1.Text = 西湖End Sub2.6Dim lenth As Integer, q As IntegerConst PI = 3.14159Private Sub CmdStart_Click() “开始”命令
3、按钮的单击事件 _参考答案Timer1.Enabled = TrueEnd SubPrivate Sub CmdStop_Click() “停止”命令按钮的单击事件 _参考答案Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() 窗体的装载事件 _参考答案Timer1.Enabled = False _参考答案Timer1.Interval = 1000 lenth = LinSecondHand.Y2 - LinSecondHand.Y1 q = 90End SubPrivate Sub Timer1_Timer() 时间控件的Timer事
4、件 q = q - 6 LinSecondHand.Y1 = LinSecondHand.Y2 - lenth * Sin(q * PI / 180) LinSecondHand.X1 = _参考答案LinSecondHand.X2 + lenth * Cos(q * PI / 180)End Sub3.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(Te
5、xt2.Text)03.2 (1) Button=2 (2) False (3) 黑体 (4) 隶书 (5) PopupMenu3.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
6、).Caption = Open 在每个选项按钮上放置标题。 Option1(1).Caption = Save Option1(2).Caption = Color Option1(3).Caption = Font Option1(4).Caption = Printer Option1(5).Caption = Help Command1.Caption = Show Dlg 标签命令按钮。 FlagFormPainted = True 窗体已画完。 End IfEnd SubPrivate Sub Command1_Click() If Option1(0).Value Then 如果
7、选择打开选箱, CommonDialog1.ShowOpen 显示打开公共对话框。 ElseIf Option1(1).Value Then 否则, CommonDialog1.ShowSave 显示 Save 公共对话框。 ElseIf Option1(2).Value Then 否则, CommonDialog1.ShowColor 显示 Color 公共对话框。 ElseIf Option1(3).Value Then 否则, CommonDialog1.Flags = cdlCFBoth 在使用ShowFont 方法之前, 必须给 cdlCFBoth, cdlCFPrinterFont
8、s, 或 cdlCFScreenFonts 置标识属性。 CommonDialog1.ShowFont 显示字体公共对话框。 ElseIf Option1(4).Value Then 或, CommonDialog1.ShowPrinter 显示打印机公共对话框。 ElseIf Option1(5).Value Then 或 CommonDialog1.HelpFile = VB5.hlp CommonDialog1.HelpCommand = cdlHelpContents CommonDialog1.ShowHelp 显示 Visual Basic 帮助目录主题。 End IfEnd Su
9、b3.4参考答案:在窗体上添加一个通用对话框、一个Animation控件,三个按钮分别实现打开文件、播放和停止。各控件属性如表所示。控件(名称)标题(Caption)通用对话框CommonDialog1无Animation控件Anima1无第一个按钮CmdOpen打开第二个按钮CmdPlay播放第三个按钮CmdStop停止 表 控件属性设置Option ExplicitDim fname As StringPrivate Sub CmdOpen_Click() CommonDialog1.Filter = 无声 .avi 文件(*.avi)|*.avi| CommonDialog1.ShowO
10、pen fname = CommonDialog1.FileNameEnd SubPrivate Sub CmdPlay_Click() Anima1.AutoPlay = True Anima1.Open fnameEnd SubPrivate Sub CmdStop_Click() Anima1.AutoPlay = False Anima1.CloseEnd Sub3.5 Private Sub Form_Click() Dim x As Single, y As Single, r As Single Scale (-20, 20)-(20, -20) x = 0: r = 8: y = 10 Circle (x, y), r, , , , 0.5 Circle (x, -y), r, , , , 0.5 Line (x - r, y)-(x - r, -y) Line (x + r, y)-(x + r, -y)End Sub