VB画图类问题

tgbzaqhyn 2007-08-10 09:22:00
我图示化一个函数,纵轴数据上限达到10^20,,运行时提示我说"溢出"
我是在picturebox 里用pset命令画的
怎样让这个图显示出来
还有坐标轴怎么弄出来
纵轴最好是对数坐标

谢谢
...全文
213 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
painache 2007-08-14
  • 打赏
  • 举报
回复
等比缩小坐标代码后再绘图。
livan1038 2007-08-11
  • 打赏
  • 举报
回复
想当初,在学校时学VB还是不错的。。时隔3年,全忘了。。
帮楼主顶。。
熊孩子开学喽 2007-08-11
  • 打赏
  • 举报
回复
如果让楼主来设计金茂大厦,是否也要画一个和金茂大厦一样高的图纸出来呀?
zzyong00 2007-08-11
  • 打赏
  • 举报
回复
如果让楼主来设计金茂大厦,是否也要画一个和金茂大厦一样高的图纸出来呀?
----------
呵呵,精辟
难道你不知道世界上两种东西,一种是比例,一种是单位(km,m,mm)吗?
mmyyxx88 2007-08-10
  • 打赏
  • 举报
回复
y = Exp(x / 100)
当x=100 时,y=2.68811714181614E+43 能不溢出吗

纵轴无非不就是话一条由上到下的直线,在标上些坐标值段。最大值不要超出SINGLE
tgbzaqhyn 2007-08-10
  • 打赏
  • 举报
回复
我把图形纵轴数据取对数可以解决
但如何画对数坐标轴不会

请大虾帮忙
tgbzaqhyn 2007-08-10
  • 打赏
  • 举报
回复
数据不会溢出
是画图就会溢出
tgbzaqhyn 2007-08-10
  • 打赏
  • 举报
回复
原码在单位
举例如下:
Option Explicit
Private Sub Form_click()
Dim x!, y!
For x = 0 To 10000 Step 1
y = Exp(x / 100)
Picture1.PSet (x, y)
Next x
End Sub

如何让图形完整显示在picturebox里,坐标轴如何添加

谢谢!
kmlxk0 2007-08-10
  • 打赏
  • 举报
回复
又试了一下Single,Double在10^20的时候也不会溢出...
kmlxk0 2007-08-10
  • 打赏
  • 举报
回复
数据溢出了可以考虑换用其他数据类型

Private Sub Command1_Click()
Dim a As Variant
a = 10 ^ 21
Debug.Print a
End Sub

如果还是不够用就要自己实现大数数据类型了....
mmyyxx88 2007-08-10
  • 打赏
  • 举报
回复
举例说明

7,788

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧