这一段格式哪里错误率 怎么一直提示缺少结束语句

Question

Pca=KA*p   ′确定计算功率
  If (nl>=424*Pca) And(0<=Pca<=5)Then ′根据Pca和nl选择带型，并确定主动轮最小直径
  dmin = 50
  Elself (127.8*Pca<=nl<=424*Pca) And (O<=Pca<=10) Then
  dmin = 75
  Elself (47*Pca<=nl<=127.8}Pca) And (1<=Pca<=20) Then
  dmin = 125
  Elself (16.6}Pca<=nl<=47}Pca) And (3<=Pca<=40) Then
  dmin = 200
  Elself (2.9*Pca<=nl<=16.6}Pca) And (8<=Pca<=200) Then
  dmin = 200
  Elself (2.9*Pca<nl) And (50<=Pca<250) Then
  dmin = 500
  Else
  End If
  If dmin = 50 Then
  h=6：A= 47:q=0.06 ′根据带型确定其高度，截面积和单位长度质量以计算应力
  Elself dmin=75 Then
  h = 8: A = 81: q = 0.1
  Elself dmin=125 Then
  h = 11: A = 143: q = 0.18
  Elself dmin=200 Then
  h = 14: A = 237: q = 0.3
  Elself dmin=355 Then
  h = 19: A = 476: q = 0.61
  Elself dmin=500 Then
  h = 25: A = 722: q = 0.92
  Else

Answer 1

用select case 格式试试select ...
   case ...
      ...
   case ...
      ...
   case else
end select 

Answer 2

If (nl>=424*Pca) And(0<=Pca<=5)Then ′根据Pca和nl选择带型，并确定主动轮最小直径
  dmin = 50
Elself (127.8*Pca<=nl<=424*Pca) And (O<=Pca<=10) Then
  dmin = 75
Elself (47*Pca<=nl<=127.8}Pca) And (1<=Pca<=20) Then
  dmin = 125
Elself (16.6}Pca<=nl<=47}Pca) And (3<=Pca<=40) Then
  dmin = 200
Elself (2.9*Pca<=nl<=16.6}Pca) And (8<=Pca<=200) Then
  dmin = 200
Elself (2.9*Pca<nl) And (50<=Pca<250) Then
  dmin = 500
End If
If dmin = 50 Then
  h=6：A= 47:q=0.06 ′根据带型确定其高度，截面积和单位长度质量以计算应力
Elself dmin=75 Then
  h = 8: A = 81: q = 0.1
Elself dmin=125 Then
  h = 11: A = 143: q = 0.18
Elself dmin=200 Then
  h = 14: A = 237: q = 0.3
Elself dmin=355 Then
  h = 19: A = 476: q = 0.61
Elself dmin=500 Then
  h = 25: A = 722: q = 0.92
endif