“图表绘制问题”—颇具挑战性的问题我绞尽脑汁还是想不出来，现请诸位同仁帮忙！

Dim ss, iii As VariantPrivate Sub Combo1_Click()
MSChart1.chartType = Combo1.ListIndex
End SubPrivate Sub Combo3_Click()
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 20
Select Case Combo2.Text
Case "N110"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 155
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 135
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 123
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 103
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 108
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 88
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 136
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 116
Case "着色强度"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 134
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 114
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N115"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 170
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 150
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 123
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 103
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 108
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 88
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 106
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 86
Case "着色强度"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 133
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 113
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N121"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 131
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 111
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 142
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 122
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 122
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 102
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 131
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 111
Case "着色强度"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 131
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 111
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N220"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 131
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 111
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 124
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 104
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 110
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 90
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 121
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 101
Case "着色强度"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 125
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 105
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N234"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 130
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 110
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 135
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 115
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 110
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 90
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 129
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 109
Case "着色强度"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 134
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 114
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N326"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 92
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 72
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 82
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 62
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 79
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 59
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 93
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 73
Case "着色强度"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 122
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 102
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N330"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 92
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 72
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 112
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 92
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 98
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 78
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 111
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 91
Case "着色强度"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 113
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 93
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N339"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 100
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 80
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 130
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 110
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 111
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 91
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 101
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 81
Case "着色强度"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 120
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 100
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N347"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 100
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 80
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 134
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 114
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 110
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 90
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 103
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 83
Case "着色强度"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 113
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 93
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N351"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 78
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 58
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 130
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 110
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 107
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 87
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 83
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 63
Case "着色强度"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 110
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 90
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N375"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 100
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 80
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 124
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 104
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 107
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 87
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 106
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 86
Case "着色强度"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 125
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 105
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N539"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 53
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 33
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 121
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 101
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 94
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 74
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 30
Case "着色强度"
hh = MsgBox("该牌号不测试着色强度", vbInformation + vbOKOnly, "提示")
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N550"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 53
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 33
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 131
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 111
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 98
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 78
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 51
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 31
Case "着色强度"
hh = MsgBox("该牌号不测试着色强度", vbInformation + vbOKOnly, "提示")
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N630"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 46
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 26
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 88
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 68
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 71
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 51
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 44
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 24
Case "着色强度"
hh = MsgBox("该牌号不测试着色强度", vbInformation + vbOKOnly, "提示")
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N650"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 46
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 26
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 132
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 112
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 96
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 76
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 47
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 27
Case "着色强度"
hh = MsgBox("该牌号不测试着色强度", vbInformation + vbOKOnly, "提示")
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N660"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 46
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 26
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 100
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 80
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 86
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 66
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 45
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 25
Case "着色强度"
hh = MsgBox("该牌号不测试着色强度", vbInformation + vbOKOnly, "提示")
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N762"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 37
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 17
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 75
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 55
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 66
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 46
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 39
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 19
Case "着色强度"
hh = MsgBox("该牌号不测试着色强度", vbInformation + vbOKOnly, "提示")
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N772"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 40
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 20
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 75
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 55
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 67
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 47
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 42
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 22
Case "着色强度"
hh = MsgBox("该牌号不测试着色强度", vbInformation + vbOKOnly, "提示")
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
Case "N774"
Select Case Combo3.Text
Case "吸碘值"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 39
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 19
Case "DBP"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 82
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 62
Case "24M4"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 71
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 51
Case "CTAB"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 38
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 18
Case "着色强度"
hh = MsgBox("该牌号不测试着色强度", vbInformation + vbOKOnly, "提示")
Case "灰份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "水份"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2.5
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "35#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
Case "325#"
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
End Select
End SelectEnd SubPrivate Sub Combo4_Click()
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False And Text5.Text <> Combo4.Text
Data1.Recordset.MoveNext
ProgressBar1.Value = ProgressBar1.Value + 1
Loop
ProgressBar1.Value = 0
ss = Data1.Recordset.Book
End SubPrivate Sub Combo4_GotFocus()
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
Combo4.AddItem (Text5.Text)
Data1.Recordset.MoveNext
ProgressBar1.Value = ProgressBar1.Value + 1
Loop
ProgressBar1.Value = 0
End SubPrivate Sub Combo5_GotFocus()
Data1.Recordset.Book = ss
Do While Data1.Recordset.EOF = False
Combo5.AddItem (Text5.Text)
Data1.Recordset.MoveNext
ProgressBar1.Value = ProgressBar1.Value + 1
Loop
ProgressBar1.Value = 0
End Sub
Private Sub Command1_Click()
CommonDialog1.ShowPrinter
Combo1.Visible = False
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = False
Combo5.Visible = False
Command1.Visible = False
Command2.Visible = False
ProgressBar1.Visible = False
MSChart1.Width = 12000
Form1.PrintForm
MSChart1.Width = 10000
ProgressBar1.Visible = True
Command1.Visible = True
Command2.Visible = True
Combo1.Visible = True
Combo2.Visible = True
Combo3.Visible = True
Combo4.Visible = True
Combo5.Visible = TrueEnd SubPrivate Sub Command2_Click()
MSChart1.ColumnLabel = Combo2.Text + " " + Combo3.Text
MSChart1.RowCount = 1
MSChart1.Row = 1
MSChart1.Data = 0
Data1.Recordset.Book = ss
X = 0
Y = 0
i = 1
Do While Text5.Text <> Combo5.Text
If Text6.Text = Combo2.Text Then
If Combo3.Text = "吸碘值" And Text1.Text <> "" Then
MSChart1.RowCount = i
MSChart1.Row = i
MSChart1.RowLabel = i
MSChart1.Data = Val(Text1.Text)
X = Val(Text1.Text) + X
yy = Val(Text1.Text) * Val(Text1.Text)
Y = Y + yy
i = i + 1
End If
If Combo3.Text = "DBP" And Text2.Text <> "" Then
MSChart1.RowCount = i
MSChart1.Row = i
MSChart1.RowLabel = i
MSChart1.Data = Val(Text2.Text)
X = Val(Text2.Text) + X
yy = Val(Text2.Text) * Val(Text2.Text)
Y = Y + yy
i = i + 1
End If
If Combo3.Text = "24M4" And Text3.Text <> "" Then
MSChart1.RowCount = i
MSChart1.Row = i
MSChart1.RowLabel = i
MSChart1.Data = Val(Text3.Text)
X = Val(Text3.Text) + X
yy = Val(Text3.Text) * Val(Text3.Text)
Y = Y + yy
i = i + 1
End If
If Combo3.Text = "CTAB" And Text4.Text <> "" Then
MSChart1.RowCount = i
MSChart1.Row = i
MSChart1.RowLabel = i
MSChart1.Data = Val(Text4.Text)
X = Val(Text4.Text) + X
yy = Val(Text4.Text) * Val(Text4.Text)
Y = Y + yy
i = i + 1
End If
If Combo3.Text = "着色强度" And Text7.Text <> "" Then
MSChart1.RowCount = i
MSChart1.Row = i
MSChart1.RowLabel = i
MSChart1.Data = Val(Text7.Text)
X = Val(Text7.Text) + X
yy = Val(Text7.Text) * Val(Text7.Text)
Y = Y + yy
i = i + 1
End If
If Combo3.Text = "灰份" And Text8.Text <> "" Then
MSChart1.RowCount = i
MSChart1.Row = i
MSChart1.RowLabel = i
MSChart1.Data = Val(Text8.Text)
X = Val(Text8.Text) + X
yy = Val(Text8.Text) * Val(Text8.Text)
Y = Y + yy
i = i + 1
End If
If Combo3.Text = "水份" And Text9.Text <> "" Then
MSChart1.RowCount = i
MSChart1.Row = i
MSChart1.RowLabel = i
MSChart1.Data = Val(Text9.Text)
X = Val(Text9.Text) + X
yy = Val(Text9.Text) * Val(Text9.Text)
Y = Y + yy
i = i + 1
End If
If Combo3.Text = "35#" And Text10.Text <> "" Then
MSChart1.RowCount = i
MSChart1.Row = i
MSChart1.RowLabel = i
MSChart1.Data = Val(Text10.Text)
X = Val(Text10.Text) + X
yy = Val(Text10.Text) * Val(Text10.Text)
Y = Y + yy
i = i + 1
End If
If Combo3.Text = "325#" And Text11.Text <> "" Then
MSChart1.RowCount = i
MSChart1.Row = i
MSChart1.RowLabel = i
MSChart1.Data = Val(Text11.Text)
X = Val(Text11.Text) + X
yy = Val(Text11.Text) * Val(Text11.Text)
Y = Y + yy
i = i + 1
End If
End If
Data1.Recordset.MoveNext
ProgressBar1.Value = ProgressBar1.Value + 1
Loop
i = i - 1
If i > 0 Then
Text12.Text = Str(X / i)
End If
za = i * Y - X * X
zb = i * (i - 1)
If zb > 0 And za > 0 Then
Text13.Text = Str(Sqr(za / zb))
End Ifoo = MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum - 10
If i > 0 Then
pp = 5 - Abs(X / i - oo)
End If
qq = 3 * Val(Text13.Text)
If qq > 0 Then
cpk = pp / qq
End If
If Combo3.ListIndex < 5 Then
Text14.Text = Str(cpk)
Else
Text14.Text = "CPK无效"
End If
ProgressBar1.Value = 0
End SubPrivate Sub Form_Load()
MSChart1.RowCount = 1
MSChart1.Row = 1
MSChart1.Data = 0
End SubPrivate Sub Form_Unload(Cancel As Integer)
End
End SubPrivate Sub VScroll1_Change()
Text7.Text = VScroll1.Value
End SubPrivate Sub VScroll2_Change()
Text8.Text = VScroll2.Value
End SubPrivate Sub VScroll3_Change()
Text9.Text = VScroll3.Value
End Sub