QQ登录

只需要一步,快速开始

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

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

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

4

主题

2

听众

71

积分

升级  69.47%

该用户从未签到

新人进步奖

跳转到指定楼层
1#
发表于 2005-3-2 00:00 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
# L( a( [+ ]/ O0 S2 P/ _6 t- o3 Z# h  b4 \
<TR>0 H3 W3 W+ Z0 o& a/ q) L
<TD width=*>0 n2 R- R6 {  P! I6 N4 v
<><B>帮帮忙,跪下谢谢斑竹,VB</B></P>% F: N: k( M0 w) O0 S8 Z
<>rivate Function PrintWord(x, Y, Word As String)
8 d& T- J( r7 z' F8 d# ]With Picture19 ?5 ]  Y; ?) Q) i7 z% L
.CurrentX = x7 e5 a: U1 e1 m: c! `2 d
.CurrentY = Y
& ^8 |4 r* j' l) `4 l8 z.ForeColor = RGB(0, 0, 255)
' r4 ^$ v( N8 U. BEnd With
9 T6 E' B! ~! ?: O; MPicture1.Print Word+ p  W" @/ g0 V* H
End Function
& o( A( ?* }6 k2 f, M'定义画点函数
. Y3 r7 S- |8 I$ Y/ e7 U8 n* WPrivate Function DrawDot(Px, Py, Color), i. E8 q3 `# X0 G3 a( d0 f( X' x& ?
Picture1.PSet (Px, Py), Color* c, l6 c% q; X/ I  {+ r; G+ [$ ?
End Function. W2 ^, @/ L; g& E, M! K/ G
Sub XY() '建立直角坐标系% V9 a" @# O& b3 Q: _
Picture1.DrawWidth = 1 '设置线条宽度, r& [  w6 d* @9 W! C
Picture1.Cls
+ x  C( ?: V8 V6 O, T'设定用户坐标系,坐标原点在Picture1中心0 o! Q( @/ q6 ]
Picture1.Scale (-10, 10)-(10, -10)
/ O5 T# \2 S( j  FPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)3 }6 u; e8 z: R" v3 ?
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
* }# |% O' X4 E$ qPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)( d3 c* g5 i3 B5 ~1 K
Picture1.ForeColor = RGB(0, 0, 255)
' ]$ e. W  L7 d- F+ X1 @+ O" TPicture1.Print "X"+ L8 P# B! p/ r4 u9 _
'画 X 轴0 ]6 y( q' ?5 G  a: N8 |! u0 z
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)2 I! t' r) T/ c- S) R1 f: {' {
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
$ a* ~/ G; g' \* \Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
; T4 p/ v% W$ v& x% h3 Y' K. b. o- |Picture1.Print "Y"6 o3 u- P& H$ Y- {; h* ~; \2 x, o
'画 Y 轴+ O% I3 F% m  M1 {. V- `$ X& p
For lin = -9 To 9
  R3 n9 [$ u) f0 ^4 APicture1.Line (lin, 0)-(lin, 0.25)( w: z' W, v5 U/ j- [' E$ Y
wor = PrintWord(lin - 0.5, -0.5, Str(lin))4 f. S' G, M6 E& y4 Z
Picture1.Line (0, lin)-(-0.25, lin)- a8 b3 D5 b2 n
If lin &lt;&gt; 0 Then
3 X( g! e8 d; g0 y- B4 Zwor = PrintWord(-0.9, lin, Str(lin))* z' w8 k# L2 G/ e/ r6 a: i
End If& `0 g7 V7 P& c( f, X6 c& g
Next lin% o: @$ |/ {* X3 N
Picture1.DrawWidth = 1
' b  c/ e) |, T' n9 ?, D6 PEnd Sub, t6 D9 ~( }8 h) H5 t  Q
Private Sub cmdPlot_Click()
) u( }5 l1 C. A; m2 WXY# O+ `) R' t3 B: g2 _, ?
On Error Resume Next
/ }( W/ C! S7 U3 {, UDim x As Double, Y As Double+ k5 l4 j4 Y* z* l
Randomize7 B, h1 m# S- M  {4 q3 ~
  8 Q' I# A5 i" n8 X3 h6 H8 z
        SC.Reset
; Y4 s5 y% y% B0 X, W8 v        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
6 B' G( {- b/ K& \9 S8 \- C       For x = -15 To 15 Step 0.001
! Y6 Q$ z8 y3 J8 d! d9 r         Y = SC.Run("runthis", x)4 B5 K! C! ^/ s( b2 _
         DoEvents6 S  |+ z" S$ x% E! B, n2 @
          Picture1.PSet (x, Y), RGB(250, 0, 0)
" [9 C% b$ h6 t! e  Z5 n1 O( h9 u          Next x
+ W( x. R' W: f  _% W% p  t  G+ }End Sub</P>
9 T& u6 z. O! j2 i<>rivate Sub Command2_Click()  Y9 X& X& U" @/ H5 ~. n$ [
XY& ]( t7 \4 W* U8 h) U
End Sub</P>
9 j6 C$ x1 e) W9 U<>rivate Sub Command3_Click(), |6 `% _7 v6 p; N8 H( Z3 ]+ L& t
End9 b  C: P' w5 Z8 f) K+ \
End Sub</P>0 o) T- N" Y8 o4 a4 i) G! ?
<>! O. H8 D5 @" x7 ]  U
Private Sub Form_Load()
( R1 P! c/ [  k! f$ EMe.Caption = "美丽曲线——数学爱好者"/ l( M& u9 B! v& p# q
Me.Show
4 Q# Y  o; z! Q/ q* @Me.AutoRedraw = True4 D! |0 n; A3 O, d/ b4 g( k  @( z1 B
XY5 q( u* `- b. w& q. ~
End Sub4 a0 ^9 c1 |: j. W/ `3 m
</P></TD>
% ~1 q6 n  g' X7 K7 D9 o6 M0 f9 k<TD align=right width=60></TD></TR></TABLE>( X8 \  b: i" S, D2 C
<>为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴),sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
0 L8 m+ J7 Q5 X! B0 ~
[此贴子已经被作者于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
    1 s5 \  Z) O9 p+ N- _0 y& @' I# A3 \

    * ], r3 G' h! B# T$ g: C你在搞什么呢?………………………………………………
    回复

    使用道具 举报

    数学者 实名认证       

    170

    主题

    10

    听众

    3232

    积分

    该用户从未签到

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

    回复

    使用道具 举报

    21

    主题

    7

    听众

    3435

    积分

    升级  47.83%

  • TA的每日心情

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

    [LV.4]偶尔看看III

    新人进步奖 优秀斑竹奖

    群组Matlab讨论组

    群组小草的客厅

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

    群组C 语言讨论组

    群组我行我数

    回复

    使用道具 举报

    5#
    无效楼层,该帖已经被删除
    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

    自我介绍
    活泼开朗的女生

    新人进步奖

    群组数学建摸协会

    回复

    使用道具 举报

    9#
    无效楼层,该帖已经被删除
    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-4-16 09:17 , Processed in 0.504798 second(s), 92 queries .

    回顶部