QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 11856|回复: 6
打印 上一主题 下一主题

帮帮忙,跪下谢谢斑竹,VB

[复制链接]
字体大小: 正常 放大

4

主题

2

听众

71

积分

升级  69.47%

该用户从未签到

新人进步奖

跳转到指定楼层
1#
发表于 2005-3-2 00:00 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>8 @" \7 i1 l- S: @# X
* d* E7 }3 @) c/ o. k
<TR>; s. g) @5 L# t+ d% J% ?/ f
<TD width=*>! ^6 B/ Q& e2 W* o
<><B>帮帮忙,跪下谢谢斑竹,VB</B></P>9 i5 q, k" j+ Z! g9 @
<>rivate Function PrintWord(x, Y, Word As String)
) ^" \6 A$ F) m4 ]- M% B0 CWith Picture1
: b; u8 R+ [. w, e/ x  Q0 R.CurrentX = x0 J4 G* t* F" o
.CurrentY = Y3 I" p1 R5 F. f* g
.ForeColor = RGB(0, 0, 255)
3 M* e+ N! |6 m8 ]0 d2 HEnd With- @8 U2 d6 J3 X" I
Picture1.Print Word) e+ w* x( c4 `1 `0 M
End Function
6 i& n! Q& l9 j" c4 f( N& Q'定义画点函数4 Q( I& J: {, F. b. X
Private Function DrawDot(Px, Py, Color)
; H0 {( c; [: ^% }6 XPicture1.PSet (Px, Py), Color
# k  u- Y" t+ MEnd Function! m% b, J% L- J7 N  K
Sub XY() '建立直角坐标系" F6 ]: x# @' S; D1 x: K
Picture1.DrawWidth = 1 '设置线条宽度
$ j" l9 B) l9 dPicture1.Cls
2 O$ Z" L3 P# D+ f1 w# f! B'设定用户坐标系,坐标原点在Picture1中心
: |& y2 @2 D$ }! p. WPicture1.Scale (-10, 10)-(10, -10)
1 E; _! T, A7 i% M" dPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
: H" Z1 \7 |- |9 s6 J6 Q, C; KPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
8 W1 c8 {# B5 S- \  E( j, RPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
8 E; f% c/ S( }: sPicture1.ForeColor = RGB(0, 0, 255)( t0 G& g% U6 f2 W" ?. a' q) s
Picture1.Print "X"# F1 q$ Z2 C& ?1 \9 H' s3 \1 d. }+ V
'画 X 轴! _8 p3 i$ `8 ~0 l
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
4 g+ L$ D2 X# P% F" vPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
0 G6 a) V. m) |  m, J# WPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
* d  \* k( V/ x/ k5 c  P3 U+ ?Picture1.Print "Y"& q8 |* G! E, A5 C: [8 S/ Y
'画 Y 轴
3 T3 {$ K: k1 |1 E7 u2 rFor lin = -9 To 9! ~4 ?/ c& z( _
Picture1.Line (lin, 0)-(lin, 0.25)
' |! q+ f. b9 swor = PrintWord(lin - 0.5, -0.5, Str(lin))
. T9 H+ |4 d5 ]9 ~) e9 fPicture1.Line (0, lin)-(-0.25, lin)
  [- O% W6 e# [  B% w% GIf lin &lt;&gt; 0 Then/ b7 X( T+ ^5 z1 x) _  G+ ?
wor = PrintWord(-0.9, lin, Str(lin))
, `9 R# Z, y  w0 m+ Q4 rEnd If
3 `4 D: \$ \( Q& u- Q8 LNext lin/ r  ]/ l8 X$ f* b) T0 P
Picture1.DrawWidth = 1: U' h- o* z" x
End Sub4 `+ R: G, u/ i* t8 o7 t0 `
Private Sub cmdPlot_Click()" l' v4 I  D, a0 }
XY: n* S% V4 W* P% O1 }( U
On Error Resume Next3 G. y% V) ~$ h- m+ N
Dim x As Double, Y As Double8 J; e5 L( h$ U' p5 o- h
Randomize# v% y- n9 d/ r* Z  T6 \. |# ]
    J* f) y9 H) s8 ?1 k
        SC.Reset% Y# e! i+ m" Q1 l, y/ i* b% ^+ w( I
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"7 N9 [0 ~9 a+ |% b$ t2 a# I) d
       For x = -15 To 15 Step 0.0016 J) |( x0 c6 @. r) }
         Y = SC.Run("runthis", x)
' a: {: V$ Y/ y/ }         DoEvents
3 g' E" R1 T5 i" k1 F$ B          Picture1.PSet (x, Y), RGB(250, 0, 0)
9 o. k- _1 }2 w) [          Next x
4 ]4 s+ H! R2 H! E# H- F+ ]End Sub</P>
: U2 l0 M/ I, r5 _: x7 l- c( D- m<>rivate Sub Command2_Click()6 b- q0 g  |* O5 R& s# v: w9 R) g& V
XY
' ?% V% F0 D7 [, R, y- x' YEnd Sub</P>, T3 [! B# W* _7 X0 R; m1 Q
<>rivate Sub Command3_Click()
, O+ N; e/ u% p+ z. f4 oEnd& j1 i, v2 ?3 r& x
End Sub</P>
" I( L$ T/ ?2 l9 Q) [# G<>; ?* L/ L; c4 l
Private Sub Form_Load()
2 v; [- [; |. Q. f; K0 B2 i- OMe.Caption = "美丽曲线——数学爱好者"
2 P6 N3 ~. W* o& b, {8 v, q1 _Me.Show
  \3 N2 a/ _8 c3 U" MMe.AutoRedraw = True
% l1 b: D! m) k7 _) ~" YXY
( T/ I  G) s( e1 ]: u) n  qEnd Sub
8 W, Q  i5 Z9 o3 {1 F" J( V</P></TD>5 E0 B0 i+ r0 A# t) D; ]
<TD align=right width=60></TD></TR></TABLE>: t2 a0 F* u( D- a7 m( E& H& G
<>为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴),sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
( ~3 H5 g  \, l+ b, _; h/ a) D
[此贴子已经被作者于2005-3-4 17:40:39编辑过]
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信

30

主题

3

听众

2324

积分

升级  10.8%

  • TA的每日心情
    奋斗
    2023-6-21 14:13
  • 签到天数: 17 天

    [LV.4]偶尔看看III

    自我介绍
    200 字节以内&amp;lt;br /&amp;gt;
    不支持自定义 Discuz! 代码

    邮箱绑定达人 新人进步奖 元老勋章 原创写作奖

    回复 1# llm3-1415926
    , ~9 o" n. L7 M% `
    . D2 b. \& r/ ^4 P  U3 h0 Z
    ; Z* L' ^" ~8 X  `+ e你在搞什么呢?………………………………………………
    回复

    使用道具 举报

    数学者 实名认证       

    170

    主题

    10

    听众

    3232

    积分

    该用户从未签到

    新人进步奖 发帖功臣 最具活力勋章

    回复

    使用道具 举报

    21

    主题

    7

    听众

    3435

    积分

    升级  47.83%

  • TA的每日心情

    2014-5-25 20:58
  • 签到天数: 20 天

    [LV.4]偶尔看看III

    新人进步奖 优秀斑竹奖

    群组Matlab讨论组

    群组小草的客厅

    群组数学趣味、游戏、IQ等

    群组C 语言讨论组

    群组我行我数

    回复

    使用道具 举报

    sxjm567 实名认证       

    8

    主题

    7

    听众

    2174

    积分

    该用户从未签到

    新人进步奖

    群组数学建模

    群组我行我数

    群组数学趣味、游戏、IQ等

    群组09年国际数学建模群—鹰之队

    群组电子科大数学建模交流群

    回复

    使用道具 举报

    诺&然        

    13

    主题

    7

    听众

    404

    积分

    升级  34.67%

  • TA的每日心情
    奋斗
    2013-9-15 09:45
  • 签到天数: 41 天

    [LV.5]常住居民I

    自我介绍
    活泼开朗的女生

    新人进步奖

    群组数学建摸协会

    回复

    使用道具 举报

    诺&然        

    13

    主题

    7

    听众

    404

    积分

    升级  34.67%

  • TA的每日心情
    奋斗
    2013-9-15 09:45
  • 签到天数: 41 天

    [LV.5]常住居民I

    自我介绍
    活泼开朗的女生

    新人进步奖

    群组数学建摸协会

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-4-14 18:15 , Processed in 0.531504 second(s), 85 queries .

    回顶部