《Visual Basic 6.0程序设计教程 第3版 普通高等教育十一五 国家级规划教材 教学课件 ppt 作者 罗朝盛习题答案 第9章 习题参考答案》由会员分享,可在线阅读,更多相关《Visual Basic 6.0程序设计教程 第3版 普通高等教育十一五 国家级规划教材 教学课件 ppt 作者 罗朝盛习题答案 第9章 习题参考答案(2页珍藏版)》请在金锄头文库上搜索。
1、第9章 图形操作第9章 习题参考答案一、判断题题号12345678答案二、填空题1 框架 图片框 2 (300,-150) 。3 右 、 上 4 缺省 5 图片框 6 逆 三、选择题题号12345678910答案DCCDABBAAC四、编程题1Const pi = 3.1415926Private Sub Command1_Click() Dim x As Single, y As Single Form1.Scale (0, 4)-(4 * pi, -4) 定义图片框的坐标系 Form1.Line (0, 0)-(4 * pi, 0) 画出X轴直线 Form1.Line (0, 4)-(0,
2、 -4) 画出Y轴直线 For x = 0 To 4 * pi Step 0.0001 y = Sin(x) - Cos(2 * x) Form1.PSet (x, y) Next xEnd Sub2.Private Sub Form_Click() Dim i As Integer 定义坐标系统 Form1.Scale (-100, 100)-(100, -100) For i = 0 To 200 CurrentX = Rnd * 100 * Sgn(Rnd - 0.5) CurrentY = Rnd * 100 * Sgn(Rnd - 0.5) ForeColor = QBColor(i
3、 Mod 16) 设置前景颜色 Line (0, 0)-(CurrentX, CurrentY) Next iEnd Sub3.Private Sub Form_Click()Dim i As Integer, Color As Integer, R As Integer, Y As Long, X As Long X = Me.ScaleWidth / 2 Y = Me.ScaleHeight / 2 For i = 1 To 1000 R = Rnd * 1000 Color = Fix(Rnd * 16) Me.Circle (X, Y), R, QBColor(Color) Next iEnd Sub