周口亿星集团老总儿子:VB抛物线绘制

来源：百度文库 编辑：偶看新闻 时间：2024/04/28 22:32:26
Option Explicit
    Const pi = 3.14159    Dim a As Single
Private Sub Command1_Click()
        '首先清除picture1内的图形        Picture1.Cls        'Scale方法设定用户坐标系，坐标原点在Picture1中心        Picture1.ScaleMode = 0                  '绘制对象的坐标度量单位为        Picture1.ScaleMode = 3                  '绘制对象的坐标度量单位为像素
        Picture1.Scale (-20, 20)-(20, -20)      '图像框比例        '设置绘线宽度        Picture1.DrawWidth = 1                  '设定画线宽带         '绘坐标系的X轴及箭头线        Picture1.Line (-20, 0)-(20, 0), vbBlue  'x轴        Picture1.Line (18, 1)-(20, 0), vbBlue      '箭头        Picture1.Line -(18, -1), vbBlue              '箭头        Picture1.ForeColor = vbBlue                '图像框前景色        Picture1.Print "X"                                  'x轴标号        '绘坐标系的Y轴及箭头线        Picture1.Line (0, 20)-(0, -20), vbBlue     'y轴        Picture1.Line (1, 18)-(0, 20), vbBlue      '箭头        Picture1.Line -(-1, 18), vbBlue            '箭头        Picture1.Print "Y"                      'y轴标号        '指定位置显示原点O        Picture1.CurrentX = 1                   '当前横坐标        Picture1.CurrentY = -1                  '当前纵坐标        Picture1.Print "O"                      '图像框字体        '重设绘线宽度        Picture1.DrawWidth = 2        '用For循环绘点，使其按抛物线规律变化。步长值很小，使之形成动画效果        For a = -10 To 10 Step pi / 6000            Picture1.PSet (a, a ^ 2 / 5), vbRed '绘线点x坐标为a,y坐标为a的平方除以5        Next a        '指定位置显示描述文字        Picture1.CurrentX = pi / 2              '当前横坐标        Picture1.CurrentY = -7                  '当前纵坐标        Picture1.ForeColor = vbBlack            '图像框前景色        Picture1.Print "抛物线示意"             '图像框字体    End Sub
Private Sub Command2_Click()
    Unload Me
End Sub
用java2Dhui 绘制一条抛物线 如何用VB画抛物线 [求助]如何利用excel的图表绘制椭圆，双曲线，抛物线等，而不借助其它软件？ 抛物线抛物线 请教高手怎样用vb编程实现钻石的绘制 急求 用vb做 故障树绘制软件 VB 在窗体上画圆 自动绘制其内接正N多边形 用VB实现制作一个计数器（要求给出代码并绘制窗体） VB中利用MSCHART提取ACCESS数据库中数据绘制图表的问题？ 什么是抛物线 抛物线问题 数学 抛物线 数学抛物线 抛物线问题 抛物线问题 抛物线问题 抛物线原理? 抛物线问 抛物线问题 什么是抛物线 为什么叫做抛物线 高分求助：如何将vb里picture控件上绘制的图象插到word里呀？ 绘制图表! 绘制直方图 可以改变抛物线吗？