' form = 1个 command1 一个shape1 一个list ' 步骤 : 放入以上3个控件 复制下列代码到代码窗口 启动即可看到效果 ============================================================================== Private Sub Command1_Click() Min = List1.List( 0 ) ' 这里获取最大 最小值 作为曲线的最高点和最低点===== Max = List1.List( 0 ) For i = 1 To List1.ListCount -