QQ登录

只需要一步,快速开始

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

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

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

4

主题

2

听众

71

积分

升级  69.47%

该用户从未签到

新人进步奖

跳转到指定楼层
1#
发表于 2005-3-2 00:00 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>2 i7 y. w) g% y7 p0 ~6 z) j

" }9 K9 D- h+ J1 d. g& ]0 Z( F<TR>& m, J4 W' N9 E3 g
<TD width=*># `, q4 {' ~& p
<><B>帮帮忙,跪下谢谢斑竹,VB</B></P>
, S4 L  g0 ]  w# u# ~5 z<>rivate Function PrintWord(x, Y, Word As String)
* j1 `3 `( m- QWith Picture1* W% }) b0 u8 K0 Y
.CurrentX = x
4 P0 X1 a, u' A6 ?; S+ {.CurrentY = Y
1 y9 x! j/ P2 O4 r8 B- o. w/ V5 [  f" {# h.ForeColor = RGB(0, 0, 255)( P- F# c$ |( o9 V5 j0 G
End With
# g6 ?# W- R" G% MPicture1.Print Word
# O' g. ^* g5 h$ o% GEnd Function. O& T$ ]: S- W  ?" G% o! x3 A
'定义画点函数
" R7 z7 v- T/ X# k) p  sPrivate Function DrawDot(Px, Py, Color)
( g# }5 O/ f1 u8 \. {3 fPicture1.PSet (Px, Py), Color1 ~/ Z6 A+ [0 u, N+ C
End Function% L& O9 t! C1 d/ ?7 a- ]8 A
Sub XY() '建立直角坐标系0 @! R. ]. b2 m: @- ?' [# U- I8 C
Picture1.DrawWidth = 1 '设置线条宽度4 ]! s5 {( E1 r( l; }6 ^6 h/ g
Picture1.Cls$ S6 w& ~: I) l, n% f% u
'设定用户坐标系,坐标原点在Picture1中心
9 V5 V* l4 L5 y% \Picture1.Scale (-10, 10)-(10, -10)* t" d2 s' \3 I! I/ X
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
6 N" {+ X& Y9 A3 FPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)5 D9 U* d' Z" w6 P/ G
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
( m- H- A  G0 H# s( a. X$ W7 vPicture1.ForeColor = RGB(0, 0, 255)' K" @5 u$ y* H
Picture1.Print "X"
! y" j# `6 y2 {) }) Y; n1 n'画 X 轴
0 [0 P" B* k/ [6 ^4 P' IPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
' [1 ]! ]7 e5 y$ @1 K% bPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)7 H# h( n9 u( r- x- A; l4 w5 e
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)( D* |! ?( W) t0 t- V
Picture1.Print "Y"  ]* K  h8 A! e: B7 M  F+ E
'画 Y 轴" N$ E# h6 G; q0 c3 b/ s: g
For lin = -9 To 9. i0 n/ `" l/ k$ c0 [
Picture1.Line (lin, 0)-(lin, 0.25)9 G* v; }, Q0 H6 U0 q. N9 \8 M
wor = PrintWord(lin - 0.5, -0.5, Str(lin))# j0 E+ i7 D0 e% q
Picture1.Line (0, lin)-(-0.25, lin)
2 c3 _1 H9 V' w5 x0 s+ w, Q  f: bIf lin &lt;&gt; 0 Then1 l! V& q6 ]. z6 Z  m: `
wor = PrintWord(-0.9, lin, Str(lin))7 U$ H! f2 z/ q; j+ Z& H2 f
End If
% |6 z  }9 m( I% J$ \( ZNext lin0 ]5 A7 {* Z/ R! h
Picture1.DrawWidth = 1
# q1 L. y' l1 g5 ^$ yEnd Sub
/ N( B1 A2 C% k0 o" F) ~1 F  Z  fPrivate Sub cmdPlot_Click()$ V9 p# c: D) L) I! V2 G( \6 n
XY5 _3 K; k% Y% g( r
On Error Resume Next
0 b/ |, t% [. {: GDim x As Double, Y As Double! Y* n6 E3 Z; ^. Z8 v+ Q2 z
Randomize) C2 ]9 C1 q- S, |
  
; P2 |) ~& C  W7 }/ ~4 Y* u! s( b        SC.Reset. u; `4 F. f$ l
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"7 Y( c: `8 N$ t0 Z& g
       For x = -15 To 15 Step 0.001$ O+ @6 Z  |0 h5 X& ~
         Y = SC.Run("runthis", x)+ |# `; o8 T6 D9 }- Y# I) s+ q1 V" M2 {
         DoEvents+ r6 }$ r+ K. @& _
          Picture1.PSet (x, Y), RGB(250, 0, 0)8 @6 t* H  u% _
          Next x
" ^; l/ Y3 |. \" y) LEnd Sub</P>" ?  Z" `- ^3 [
<>rivate Sub Command2_Click()
0 }+ Y( n* I( y# nXY
5 G$ ]- e7 X8 V( {& v+ b8 P1 D2 FEnd Sub</P>* W4 z8 I) u9 k( d
<>rivate Sub Command3_Click()% c9 k3 V1 u* _7 \
End. ]5 A) {+ q$ d7 D2 s% B) s
End Sub</P>
% I) i' ~( M4 l" r' A<>; p7 y4 k6 q- S' v5 T. F: M
Private Sub Form_Load()
6 `* k) n( T* F  ^: p0 s. }# \4 EMe.Caption = "美丽曲线——数学爱好者"' Y, D6 y, F  w' V1 t
Me.Show, L3 {7 u& s* d6 S( |, A5 {
Me.AutoRedraw = True1 u: Y% W* ?- U
XY( {8 s4 _" J& L0 P2 }$ J2 }
End Sub
; X5 {5 H  ~# I. J</P></TD>
  Q) L+ ~! l$ Z- V8 l<TD align=right width=60></TD></TR></TABLE>
$ @. w8 {6 F5 |7 X# i# y<>为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴),sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
. U8 t! {# G  d5 o0 @. J
[此贴子已经被作者于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 * r; y; g: c" {

    3 w  L5 s; R9 ?; n$ Q% b' V  n' y! f. o  K9 Y, ^2 w7 G# n2 y
    你在搞什么呢?………………………………………………
    回复

    使用道具 举报

    数学者 实名认证       

    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-1-3 14:52 , Processed in 0.775026 second(s), 85 queries .

    回顶部