帮我看看哪里有问题 没学过VB 哎
For i= 0 To 20
If CvtType(i)=0 Then
realgain(i)=(gain(i)*(rangeh(i)-rangel(i)))/((vinmax(i)-vinmin(i))*2764.8)
realoffset(i)=gain(i)*rangel(i)-((gain(i)*(rangeh(i)-rangel(i))*vinmin(i))/(vinmax(i)-vinmin(i)))+offset(i)
End If
If CvtType(i)=1 Then
realgain(i)=gain(i)/10
realoffset(i)=offset(i)
End If
Next

变量都定义了的,没提示出错，但就是执行不了