春·分 春·分
风是什么颜色你说
关注数: 0 粉丝数: 22 发帖数: 187 关注贴吧数: 11
类型不匹配问题求助 程序源代码如下 Private Sub Command1_Click() On Error Resume Next Dim I As Integer Dim PI(1 To 18) As String Dim EpI(1 To 18) As String Dim EuI(1 To 18) As String Dim ElI(1 To 18) As String Dim EdI(1 To 18) As String Dim EI(1 To 18) As String Dim WuI(1 To 18) As String Dim WlI(1 To 18) As String Dim WdI(1 To 18) As String Dim C As Single Dim WlM As Single C = 0.85 WlM = 60 Open "D:\1231.txt" For Input As #1 For I = 1 To 18 Input #1, PI(I) Next I Close #1 Open "D:\1232.txt" For Input As #1 For I = 1 To 18 Input #1, EpI(I) Next I Close #1 For I = 1 To 18 If WuI(I) + PI(I) >= EpI(I) Then EuI(I) = EpI(I) ElI(I) = 0 EdI(I) = 0 End If Next I For I = 1 To 18 WuI(1) = 0 WlI(1) = 14.9 WdI(1) = 40 If WuI(I) + PI(I) < EpI(I) And WlI(I) >= C * WlM Then EuI(I) = WuI(I) + PI(I) ElI(I) = (EpI(I) - EuI(I)) * WlI(I) / WlM EdI(I) = 0 End If Next I For I = 1 To 18 If WuI(I) + PI(I) < EpI(I) And C * (EpI(I) - EuI(I)) <= WlI(I) <= CWLM Then EuI(I) = WuI(I) + PI(I) ElI(I) = C * (EpI(I) - EuI(I)) And EdI(I) = 0 End If Next I For I = 1 To 18 If WuI(I) + PI(I) < EpI(I) And WlI(I) < C * (EpI(I) - EuI(I)) Then Eu = WuI(I) + PI(I) ElI(I) = WlI(I) EdI(I) = C * (EpI(I) - EuI(I)) - ElI(I) End If Next I End Sub 在If WuI(I) + PI(I) < EpI(I) And WlI(I) >= C * WlM 出现类型不匹配错误 请高手帮忙
1 下一页