QQ登录

只需要一步,快速开始

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

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

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

4

主题

2

听众

71

积分

升级  69.47%

该用户从未签到

新人进步奖

跳转到指定楼层
1#
发表于 2005-3-2 00:00 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>9 Y9 O6 \$ e# |: G

# Z. F0 O8 ], G; K! B) P% o8 Q# F<TR>
. Y0 E. N# T6 Q<TD width=*>* o3 w5 K( R' F0 A3 b) J. F
<><B>帮帮忙,跪下谢谢斑竹,VB</B></P>
: ~/ S# W7 U# N% L7 u  ?<>rivate Function PrintWord(x, Y, Word As String)
, N0 N8 e* t; L2 Q# G+ _  ?With Picture1: s" b0 [' ?; ]' E0 q- F
.CurrentX = x7 D- d# V% J0 J, l. b
.CurrentY = Y
( H: `+ o% C( H+ _" u" e.ForeColor = RGB(0, 0, 255); y/ E0 b2 G% V9 y/ j$ ^6 e
End With  S. E+ s; d6 W3 e
Picture1.Print Word5 g# _! P% o% o: P8 W5 Z; k
End Function, @0 C) _% c$ y/ n7 z
'定义画点函数8 o& O5 O! d# ~6 v
Private Function DrawDot(Px, Py, Color)
# F  n; p0 z8 _/ K: bPicture1.PSet (Px, Py), Color( K, F8 [) w0 ^3 v8 U2 s) I0 z9 \
End Function
9 ^- R& J1 B+ }2 ]0 G; A6 [  KSub XY() '建立直角坐标系
8 E: R9 T% Q9 k. I9 N! J1 w: zPicture1.DrawWidth = 1 '设置线条宽度+ H; Z% w# [* l
Picture1.Cls9 \4 h6 v& i8 @% S
'设定用户坐标系,坐标原点在Picture1中心
* s$ x  c/ n% v. U9 k% J6 G5 o! }Picture1.Scale (-10, 10)-(10, -10): ]" \# R( @1 f9 \) l
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)/ u/ x) B5 a! x# _/ ]* [
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
+ ~. @" K; ~; {! x/ \Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
9 Y; c4 G! E0 t  p" h+ @: ePicture1.ForeColor = RGB(0, 0, 255)
# e' e; U  y! f2 K( PPicture1.Print "X"
4 b* A$ l/ `+ R- m'画 X 轴
& b2 t, W- W! U# |Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)2 c1 r: j, s: h7 [/ T" ~6 D
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)1 m: i" q/ j' t5 u' |' {4 B
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)) \8 j& J1 G  e8 U
Picture1.Print "Y"6 a1 L. U: }( c4 ~
'画 Y 轴
" y2 W8 N- [/ z0 f, C( d: QFor lin = -9 To 9
3 Z9 J- v9 l# l/ ?Picture1.Line (lin, 0)-(lin, 0.25)
) t8 t( X+ `. b, P8 G% J$ s8 P7 Ewor = PrintWord(lin - 0.5, -0.5, Str(lin))
% M5 a" r3 \5 cPicture1.Line (0, lin)-(-0.25, lin)
1 }) C& S1 H0 D! L- GIf lin &lt;&gt; 0 Then
# i  J( |2 @, Y4 kwor = PrintWord(-0.9, lin, Str(lin))
, v; i1 N0 h5 P9 uEnd If1 @. i+ }$ G4 E( I5 f+ F
Next lin" ?+ i# O/ M5 h+ d) {
Picture1.DrawWidth = 1
# X3 P% K" y$ R1 DEnd Sub) D0 R. n) R% q/ s& o4 e2 ?  Y% @
Private Sub cmdPlot_Click()
: ]0 q9 D* R6 GXY% s6 b4 |1 ]. {5 Q
On Error Resume Next
+ K1 H& J" x/ W$ }/ X; f, MDim x As Double, Y As Double
( ^& Z/ p0 ^2 j* r! SRandomize  o5 D5 f, j1 q, g- r
  
& ^  J  s1 h9 L, P$ ^! P        SC.Reset4 {7 V8 A- t: {9 b% u  n1 @& J* |
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
7 v1 [5 v6 \6 h8 D# n       For x = -15 To 15 Step 0.001. m8 r& I( x- a, t7 N0 M4 ?8 h
         Y = SC.Run("runthis", x)
( }% x$ N1 R3 U' v9 C# D         DoEvents
- B4 t# Y3 l, k! @          Picture1.PSet (x, Y), RGB(250, 0, 0)
) G& X. B1 c0 D& v( G) T          Next x
# F9 V' K. y# s5 d* R( z3 ^" zEnd Sub</P>* r& x8 K; v7 z4 @1 ^0 |% d
<>rivate Sub Command2_Click()
! a0 `; Z, M: q6 }. x( g1 g% D# \' Y: eXY
. O& t0 d& W8 \: K8 EEnd Sub</P>
- P/ \0 [  U# g6 h5 I9 g<>rivate Sub Command3_Click()
1 U" Y. h, T' F0 |: f  MEnd
/ y! P* L  s0 q8 g" h2 N2 hEnd Sub</P>
& N' i/ s" b( W2 P& b- Z. r( F<>
& h8 y/ y$ G! D) U  APrivate Sub Form_Load()
. v  G* d* i) j  aMe.Caption = "美丽曲线——数学爱好者"
( }* x# A0 N/ Q# H8 c9 P# UMe.Show
) X: _3 M7 @- F' m6 k+ P  JMe.AutoRedraw = True
; Y5 \& ]( |* U0 JXY$ x# Z- C& C) Q. t3 O# X
End Sub5 |# q: Z- C6 q. U( {. r/ M
</P></TD>5 _) F" l' x% V
<TD align=right width=60></TD></TR></TABLE>; j; N$ h9 e7 O' r, _
<>为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴),sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P># p. W8 a7 p8 v" i: r( J+ y- w
[此贴子已经被作者于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
    7 s+ ]/ `$ A# M6 H9 m4 ?
    3 G  T3 a. a% N9 ?6 L  u* x
    4 l7 x  O3 M. a你在搞什么呢?………………………………………………
    回复

    使用道具 举报

    数学者 实名认证       

    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, 2025-11-3 03:04 , Processed in 0.633233 second(s), 84 queries .

    回顶部