一道VB的程序题

来源：百度知道 编辑：UC知道 时间：2024/05/10 23:19:55
二、主要内容
绘制函数曲线Y=F(X),A<=X<=B，查询曲线上点的坐标值
三、具体要求及应提交材料
定制用户坐标系统（坐标轴、坐标刻度），绘制3条不同的函数曲线、实现曲线的读数。曲线中的参数由用户自选。操作界面美观大方，使用方便，容错性强。
提交材料：1、任务书；2、课程设计说明书（打印）；3、材料刻盘：程序、说明书
四、主要技术路线提示
曲线是由点（x，y）构成的，用循环结构绘制曲线y=f(x)，循环变量是自变量x的取值，根据y=f(x)，每取一个x的值，至少对应一个y值，使用VB中的Pset方法绘制点（x，y）。
实现读数功能的程序代码在MouseDown或MouseUp事件中编写，主要使用Shape控件的left或right属性。

谢谢各位了

加picturebox(改为PicSource),line(改为LinMov）两个label(LabRow(0),LabCol(0),三个label(改为Labt1,labt2,labt3),三个shape（shape1,shape2,shape3）,Text1（不用改名）这里改的都是说Caption属性 )
窗体中的代码
Dim TmEnable As Boolean '记录是不是第一次日启动记时器
Dim VrrTmp(30, 30) As Double '记录横坐标，纵坐标
Dim vrrtmpA(30, 30) As Double, 第二条曲线
Dim intX, intX1 As Integer '直线两端的X坐标值
Dim rtn As String
Dim AllColor, AllColor1 As Double
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Dim RowWidth() As Integer '坚线下边的标识的横坐标
Dim ColHeight() As Integer '横线左边的标识的纵坐标

Private Sub CmdBegin_Click()

Dim i As Integer
Dim KeDu As Integer '定义横坐标的刻度

KeDu = PicSource.ScaleWidth / UBound(VrrTmp)
'数组附初值
For i = 0 To UBound(VrrTmp, 2) - 1
VrrTmp(i, 0) = Rnd * 1300 '纵坐标负值
If i <> 0 Then
V