QQ登录

只需要一步,快速开始

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

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

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

4

主题

2

听众

71

积分

升级  69.47%

该用户从未签到

新人进步奖

跳转到指定楼层
1#
发表于 2005-3-2 00:00 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
, ~/ a3 W5 m0 u; z6 N* ~" U6 X- C) c3 v6 I) l- z
<TR>$ L, S% f# ~% l- O; K
<TD width=*>
" {. F( i* b$ {<><B>帮帮忙,跪下谢谢斑竹,VB</B></P>0 r" g8 g) ]( K2 _6 r
<>rivate Function PrintWord(x, Y, Word As String)$ I8 I; w: u) v9 C0 k, y! G
With Picture18 m9 |& M; d0 o3 Y' i8 N+ t
.CurrentX = x' l9 g" ?% z+ a, E$ F4 K5 M) ^
.CurrentY = Y) T- m* B) k* C- |1 ]; D
.ForeColor = RGB(0, 0, 255)+ x4 W- S6 c( l3 Q
End With
* u" i) T& P" f/ f) O2 k% OPicture1.Print Word
9 U! w# d+ ^& M6 T$ f. hEnd Function
3 {  @: v* ~6 e/ X. w'定义画点函数
! `9 Y- g, u1 g8 w( lPrivate Function DrawDot(Px, Py, Color)) x- ~/ x# Q! a4 m. h
Picture1.PSet (Px, Py), Color9 h) }, G7 I$ |; }# @. n/ c
End Function& E) n' U6 b! I5 f
Sub XY() '建立直角坐标系
' V- L( N# w! p9 K  ^Picture1.DrawWidth = 1 '设置线条宽度; V) F! k4 K% P$ G  Y9 r
Picture1.Cls& @& j( |7 ?; H! S% @9 ~" d0 y
'设定用户坐标系,坐标原点在Picture1中心1 L7 ]8 e# [6 j% \
Picture1.Scale (-10, 10)-(10, -10)' A# E  h& f* o9 ]1 z% d+ P
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
4 W( M" @. H$ t7 ePicture1.Line -(9.5, 0.5), RGB(0, 0, 255)! w3 h' T2 i( k. w. |9 n8 u
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)3 R1 B! t2 S! m0 [( F/ f; k& }6 @
Picture1.ForeColor = RGB(0, 0, 255)
5 `% M: S. [) N, SPicture1.Print "X"
9 o! |1 m+ B# [+ l% A7 A: ^8 }'画 X 轴
: N% v/ v1 W: \+ W9 @% wPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
! ~# f. f( T$ Z+ BPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)5 g* G) W# A( _
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255): j, ]8 M; }: _( h2 S& o9 m3 F
Picture1.Print "Y"
! Q0 F* |- r, d/ f$ d'画 Y 轴
4 G6 [, R# s9 q" g( F1 B) H& nFor lin = -9 To 9
/ Z8 G3 q/ S( @" Z6 z/ {Picture1.Line (lin, 0)-(lin, 0.25)# x5 }# @" H- d( Q% J) E
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
. J. m. }# |9 W4 ?3 [8 ]4 E3 a: FPicture1.Line (0, lin)-(-0.25, lin)& C2 D# A5 {/ A  U1 p5 h1 s
If lin &lt;&gt; 0 Then  V8 |  K$ Q; t; ~( {# F. L2 W& _
wor = PrintWord(-0.9, lin, Str(lin))
* f$ S  v/ E+ E& T2 lEnd If+ n+ y% S8 A1 l, j( l. E
Next lin
2 m- R& @$ b. G6 A, w) G/ }# RPicture1.DrawWidth = 1. I2 t0 E, g2 ^2 z8 r1 h. j8 _' a  J
End Sub
/ W+ \& A% e8 k3 N8 @3 FPrivate Sub cmdPlot_Click()$ }$ u5 P8 I, E" s' p/ c
XY
9 B8 P% n* h& O# {; FOn Error Resume Next
$ Y: M$ k1 R. C2 L+ NDim x As Double, Y As Double
' D6 Z: m8 M6 bRandomize
$ h. d, H- }, z+ ~+ G; o7 S2 A  
8 h, V6 Z0 ]) p4 G: V) c        SC.Reset
( M4 v6 g" H# f  k* B        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"8 h6 U; C, e4 u: F$ n! h
       For x = -15 To 15 Step 0.0016 s4 Q! r1 C4 V4 t
         Y = SC.Run("runthis", x)
* t1 C" j4 w$ @( l6 j% P' Q  N         DoEvents
' [4 q- I7 e9 V2 @4 H          Picture1.PSet (x, Y), RGB(250, 0, 0)7 B8 x/ O* i0 z2 G, d
          Next x
, i3 A7 U7 Z2 S' t% ~( O" p3 I) REnd Sub</P>7 U) R5 ~  R# X* a: o4 S
<>rivate Sub Command2_Click()
% M5 u! k& W6 R) C4 BXY
/ O- T& Y2 C3 l+ N. x7 xEnd Sub</P>
) `8 \! `0 Q7 E<>rivate Sub Command3_Click()  c; T! ~0 t7 D
End
+ u6 {0 J4 j# q) C0 L' e  ?, AEnd Sub</P>' M; m0 _7 n( \
<>
% Z. G& R* @" K0 K4 f. _Private Sub Form_Load()
9 F; H0 c/ [- p* ~1 O7 Q- P2 l- ^. tMe.Caption = "美丽曲线——数学爱好者"
6 u. p9 f, Z$ H  h6 kMe.Show& @" W5 E% ^$ I2 k- Z
Me.AutoRedraw = True
" f  h0 K% l: JXY
' P# ^8 |& k, Q6 _3 @% u& m1 HEnd Sub
! C. S- J' i5 c2 E( J. k</P></TD>- B+ t. R: D# s# R1 B0 {0 @( {
<TD align=right width=60></TD></TR></TABLE>5 b+ B9 Z$ w/ m: \  b; h) A$ R
<>为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴),sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>7 n. X$ I# d! z
[此贴子已经被作者于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 ' s. C) F5 g7 P4 O% O

    & N. A# ]% n; S: S
    ( U9 [" y, `5 y( T' W  x3 \你在搞什么呢?………………………………………………
    回复

    使用道具 举报

    数学者 实名认证       

    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-16 20:38 , Processed in 0.427967 second(s), 85 queries .

    回顶部