完整的程序.docVIP

先在窗体放置以下 7 个控件，除设置指定的属性外，不必调整位置大小和其他属性： Label1 ：用于显示常数变量的名称和字母。■在属性窗口将其 Index 属性设置为 0 Text1 ：用于调整常数变量。■在属性窗口将其 Index 属性设置为 0 Combo1 ：用于输入表达式和画图线条宽度。■在属性窗口将其 Index 属性设置为 0 Check1 ：用于选择是否显示表达式等选项。■在属性窗口将其 Index 属性设置为 0 Command1：用于刷新图像。■在属性窗口将其 Index 属性设置为 0 VScroll1：用于进行连续的调整常数变量。 Picture1：用于显示函数图像。 Dim ctSC, ctP As Double, ctE As Double, ctRefresh As Boolean, ctToolW As Single Dim ctX1 As Double, ctX2 As Double, ctY1 As Double, ctY2 As Double Private Sub Form_Load() Dim I As Long Me.Caption = 数学函数（方程）图像描绘显示器 Load Command1(1): Command1(1).Visible = True Command1(0).Caption = 重置(R) Command1(0).ToolTipText = 重新设置常数变量和绘图（单击此按钮，或双击图像区） Command1(1).Caption = 刷新(D) Command1(1).ToolTipText = 刷新图像，但不重新设置常数变量 Picture1.BackColor = HFFFFFF: Picture1.AutoRedraw = True Me.Move Screen.Width * 0.2, Screen.Height * 0.2, Screen.Width * 0.6, Screen.Height * 0.6 Label1(0).AutoSize = True: Label1(0).BackStyle = 0: Label1(0).Caption = 线条宽度 VScroll1.Min = 1: VScroll1.Max = -1 VScroll1.Tag = 0: VScroll1.Visible = False Text1(0).MaxLength = 7 Set ctSC = CreateObject(ScriptControl) ctSC.Language = VBScript ctP = 3.14159265358979: ctE = Exp(1) Check1(0).Value = 1 For I = 1 To 4 Load Check1(I): Check1(I).Visible = True Next Check1(0).Caption = 连点成线(L) Check1(1).Caption = 显示表达式(F) Check1(2).Caption = 显示常数的值(V) Check1(3).Caption = 显示说明文字(N) Check1(4).Caption = 图像多色显示(N) Load Combo1(1): Combo1(1).Visible = True For I = 1 To 10 Combo1(1).AddItem I Next Combo1(1).Text = 2 Combo1(0).AddItem 正弦：y =a*Sin(b*x+c) : 振幅 a=4:周期（频率） b=1.0:相位 c=0.0 Combo1(0).AddItem 余弦：y = Cos(x) Combo1(0).AddItem 正切：y = Tan(x) Combo1(0).AddItem 自然对数的某次方：y = Exp(x) Combo1(0).AddItem 自然对数的某次方：y = e^x Combo1(0).AddItem 自然对数的幂函数：y = Log(x) Combo1(0).AddItem 自然对数的幂函数：y = x^e Combo1(0).AddItem 幂函数：y = Log(x)/Log(2) Combo1(0).AddItem 参数方程-圆 ： x=3*Cos(t) , y=3*Sin(t) | 椭圆： x=2*Cos(t) , y=4*Sin(t) Combo1(0).AddItem 参数方程-圆 ： x=r*Cos(t) , y=r*Sin(t) :圆半径 r=2.0 Combo1(0).AddItem 参数