帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
/ [  Y- `6 O) w) G- Y2 y Dim x As Double, Y As Double
& O' C0 \% C' b! g9 s4 L3 _ Randomize
% c9 N9 p" n  ~, c  
        SC.Reset
5 h8 Y9 I+ J# J( w1 |* K        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
1 p4 v5 L; M3 {/ T3 d       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
8 N6 M6 K! k% ^2 V. n& B         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
3 H+ B6 {5 U- L5 H; J# \) Y4 f<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

ealx0yJu

我看不错噢 谢谢楼主！

秋天的风儿

呵呵，看大家评论如何

# J9 {0 P  y" T+ t: P
) D6 o7 A0 L5 W
# v2 P2 J$ G$ n
* T" M: ?* z( C+ M
8 b( `' G% u  L0 _9 ~1 c



* t& H6 w( v- O$ B$ c/ n$ j/ w


! ~2 V5 J; U# E5 K$ F$ m( i大家好,能交朋友嘛？ok0633.com

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
& M0 B3 F4 k: D( ^5 r+ T) R& g.CurrentY = Y
8 F9 O1 B9 P6 j, F.ForeColor = RGB(0, 0, 255)
  ~) _1 i, Y' t1 IEnd With
0 Z2 T2 ~# l4 E6 ^* UPicture1.Print Word
* m+ y2 W( l( N1 {' _$ m* M* ~2 O8 _End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
- F8 y( @  o4 i, [* uPicture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
6 l6 B; D+ }2 y4 oPicture1.DrawWidth = 1 '设置线条宽度
7 ?2 r* F! {# d1 XPicture1.Cls
3 p8 w% W) N( u) j! V'设定用户坐标系，坐标原点在Picture1中心
7 r* K# i7 v7 y% t# OPicture1.Scale (-10, 10)-(10, -10)
: t, A- m3 M) K: {: TPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
* L1 y, Q# F/ g9 \& z: Z% D% f! uPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
5 l* f, S" J1 U$ d5 ~Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
) d' O2 K0 P% k3 `Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
* V# e. R( m' kPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
/ g2 q* Y* t, c2 j9 S% J* UPicture1.Print "Y"
'画 Y 轴
% E2 q9 J$ x3 d) e" ZFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
2 S& C6 c( \7 U4 o3 P' ?8 rwor = PrintWord(lin - 0.5, -0.5, Str(lin))
+ k, ^) B* A2 r+ D6 ~# vPicture1.Line (0, lin)-(-0.25, lin)
0 {; Q4 T2 c$ w7 q# lIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
% b4 M1 B7 c8 g/ u& IEnd If
3 O5 C: f6 N3 e3 h$ gNext lin
) X' E2 e8 W& g5 A) g- tPicture1.DrawWidth = 1
& j+ |- F/ m3 ^) ^  P5 uEnd Sub
% H7 r! _$ ?2 n2 }6 ~Private Sub cmdPlot_Click()
6 t! S5 k( ?6 L7 I6 lXY
On Error Resume Next
) v4 v' K6 G  s9 n5 k6 e Dim x As Double, Y As Double
% u/ K: u  e+ M; h, R1 g Randomize
  
3 g$ t" ~1 e- s6 o& l! e) S0 q4 G        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
' k: A) a' D) T' d% A1 H8 T       For x = -15 To 15 Step 0.001
* A/ p3 s2 C* }( A         Y = SC.Run("runthis", x)
5 ?; g( e! D% O" R8 I         DoEvents
( i  W2 w/ T$ A5 a' W' n  l5 |          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
5 h' W0 q' b# k% NEnd Sub</P><>rivate Sub Command2_Click()
XY
1 G& H0 S9 U& z. R4 z( |! ZEnd Sub</P><>rivate Sub Command3_Click()
3 C7 D1 Z! F1 xEnd
( Z. k6 M) ]# h3 jEnd Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
2 a! r% V0 m5 M, v+ xMe.Show
9 w1 E( F% @0 k9 C; ]% mMe.AutoRedraw = True
5 g1 L" H5 R7 {5 HXY
" K) u6 s0 f7 iEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

USER001

把完整代码发上来