发新帖我要提问
返回列表
打印

VB函数画线

[复制链接]
1554|2
手机看帖
扫描二维码
随时随地手机跟帖
跳转到指定楼层
楼主
tao180539|  楼主 | 2012-7-1 22:24 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
函数, single, FOR, ST, nex
本帖最后由 tao180539 于 2012-7-3 22:41 编辑

Dim x As Single

Dim y As Single

For x = -1 To 1 Step 0.01
   
    For y = -1 To 1 Step 0.001
    If Abs(x * x + y * y - 1) < 0.01 Then
     Picture1.PSet (x + 100, y + 100)
    End If
    Next y
   
   

Next x
我想画个圆  看看 哪里不行

使用特权

评论回复 赏

相关下载

相关帖子
沙发
李冬发| | 2012-7-2 06:07 | 只看该作者
从上世纪90年代开始，计算机作图就有“窗口”和“视图”的概念。

使用特权

评论回复 赏
板凳
diweo| | 2012-7-2 07:04 | 只看该作者
到底是画线还是画点啊？

使用特权

评论回复 赏
返回列表
发新帖 我要提问
高级模式
B Color Image Link Quote Code 收费 Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

tao180539

321

主题

515

帖子

3

粉丝