Visual Basic 6.0程序设计教程 第3版 教学课件 作者 罗朝盛习题答案 第9章 习题参考答案.docVIP

第9章 习题参考答案 一、判断题 题号 1 2 3 4 5 6 7 8 答案 √ √ √ × × × √ × 二、填空题 1． 框架 图片框 2． （300，-150） 。 3． 右 、 上 4． 缺省 5． 图片框 6． 逆 三、选择题 题号 1 2 3 4 5 6 7 8 9 10 答案 D C C D A B B A A C 四、编程题 1． Const pi = 3.1415926 Private 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, -4) 画出Y轴直线 For x = 0 To 4 * pi Step 0.0001 y = Sin(x) - Cos(2 * x) Form1.PSet (x, y) Next x End Sub 2. 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 Mod 16) 设置前景颜色 Line (0, 0)-(CurrentX, CurrentY) Next i End Sub 3. 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 i End Sub 270 Visual Basic程序设计教程 第9章 图形操作