帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
Randomize
* z9 H+ g9 E3 f7 o: _8 [/ X0 R2 g  
        SC.Reset
: ~1 z# A$ Y2 K: Y! {        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)
" s% l6 h9 @2 n  K( {+ B+ v3 J; T         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
5 {) y9 o7 F( p/ W          Next x
End Sub</P>
1 P+ V  W* j1 x( t0 A+ l<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
) n. ^- C" c, H; H7 p.CurrentX = x
9 }# b* J6 D% H2 w/ ^  c: `- |) Q* s  E.CurrentY = Y
4 p6 y; v. M7 N+ X% ]1 z3 Y0 w.ForeColor = RGB(0, 0, 255)
+ g' K3 K; ~8 M' T2 F4 k: [/ GEnd With
1 A+ O8 p& j6 j  V& \Picture1.Print Word
End Function
'定义画点函数
* b- T' \' P! C3 |, J2 y$ YPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
+ B( C/ Y* v5 I' @% KPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
; g5 N1 g& B5 x; X+ f9 s6 D$ ]Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
6 z1 m( L; F& TPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
. a& b7 d1 r( p'画 X 轴
Picture1.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)
5 {/ W, V; t+ DPicture1.Print "Y"
'画 Y 轴
* R* J1 D9 a# ]6 xFor lin = -9 To 9
. Z; Y; A" N6 G+ d7 BPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
: l' @! m$ k. ZPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
/ M) N0 }6 Z9 q7 o" U& |8 r Randomize
  
3 B" P# y6 ^$ E8 p. {. X% Z, o# K1 u* O        SC.Reset
$ J' [& O2 \4 r1 Z4 Q- Q        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
0 ~$ J! r+ g6 [* a( u2 U7 f       For x = -15 To 15 Step 0.001
: g/ h8 u# r: H1 L) ^         Y = SC.Run("runthis", x)
! S7 z" A$ R" ^: k7 o2 M. j1 M         DoEvents
/ ~4 @8 D6 s& s! L' X0 j6 j7 q% e          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
  [* m) g' u7 N6 zEnd Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
6 Z: I" l- r6 Z' r3 w( I2 lEnd
) Q( t1 p! ]+ O& h( XEnd Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
3 B- n4 l4 }( v% Q5 k% KMe.Show
Me.AutoRedraw = True
XY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

+ S. ]$ }8 v& j) |. ~2 l



7 u# p6 {- }6 i  l
& a' Y  j; O% a! }7 b- u+ J& e4 {
% Q% {' K' a. R" ]* @5 w
% m! B: p! p$ I1 G, Z" h% i6 h


+ }; s: N% p  b5 {
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！