帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
: S% Y+ s9 g- v$ b0 BOn Error Resume Next
Dim x As Double, Y As Double
# ?$ s1 h' q. R' u# H9 d Randomize
  
        SC.Reset
* Z1 R1 c. h; G        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
; I; ~$ {* F7 _% @( L       For x = -15 To 15 Step 0.001
- Q( c8 M( d( D' {' e' ~/ V         Y = SC.Run("runthis", x)
1 m- T1 n4 W' q7 I+ |9 a         DoEvents
. G4 B, p+ Q0 {  W: z+ `" {; u8 B          Picture1.PSet (x, Y), RGB(250, 0, 0)
+ B6 P2 J- L, u' q          Next x
, i3 x" A& D! O' sEnd Sub</P>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
) \! y. G' s. i1 C% B' |1 F/ IWith Picture1
.CurrentX = x
! ~2 _/ d% C( @+ o5 O: I) L- I9 |.CurrentY = Y
1 c4 q. b& u/ b8 ?* F.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
2 {$ Q( b. d( R. WEnd Function
' w' p: @. i% _3 F7 W$ V5 E'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
! E( o+ C- w5 y5 I7 m# G, X" ~Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
3 V5 d0 f& `. \/ A/ OPicture1.Cls
9 W7 J+ j( T. n# Y' Z'设定用户坐标系，坐标原点在Picture1中心
" {! T! i, s) N& {% jPicture1.Scale (-10, 10)-(10, -10)
- w  u/ z, h9 l% ~4 `8 v& xPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
" p/ f' `2 q7 n" c8 w% IPicture1.ForeColor = RGB(0, 0, 255)
& d" K  a5 }( ~. [" _Picture1.Print "X"
# z9 n/ C3 m7 u7 u'画 X 轴
" Q1 Q! Q* d) x1 y. q4 \* F' dPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
; r8 M" \+ c6 D6 Q4 {'画 Y 轴
For lin = -9 To 9
6 m9 E2 A+ r9 {. k$ {* n4 SPicture1.Line (lin, 0)-(lin, 0.25)
* B$ p. E$ L7 \3 X2 y0 Lwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
5 J3 J; _$ D2 p+ a, E) p: NIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
8 C" h9 ]% Z  W9 }- ~$ I* ^# @End Sub
: \/ B# Y! e9 Y$ T8 W& k: APrivate Sub cmdPlot_Click()
XY
1 x' `6 o% M, \, d( K% x" `5 dOn Error Resume Next
Dim x As Double, Y As Double
Randomize
  
        SC.Reset
8 D$ {8 L- q8 R* j/ z4 C1 s        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
0 q, c8 Q: [% eEnd Sub</P><>rivate Sub Command2_Click()
XY
  T" }: B4 s9 k0 Q0 LEnd Sub</P><>rivate Sub Command3_Click()
End
0 }! G1 r% |, {" k* c' }( @End Sub</P><>
Private Sub Form_Load()
2 F' s$ _' ~- oMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
  Q. h+ z* K2 j% _8 eMe.AutoRedraw = True
XY
End Sub
- a) a' {" Z6 I. o  L7 E0 H, A: J控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
8 B* w# ^- F2 H  n8 y
& A5 ^. r$ _% X( s. j4 _) u1 o

4 b4 T# ~7 c- t! |
0 ?3 x& F* U. n# S5 h
) {5 w0 x4 z- n" c% p
3 A  B& g3 |6 E6 {6 `# _
- O  z. c- \  Z6 V4 }


0 I- ^" U1 m1 G  k* F" W5 H
0 K! \/ ^2 l& R  A
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！