| 查看: 131 | 回复: 0 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】vb代码纠错
|
|||
|
希望哪位朋友 帮看一下以下代码，为何在中间级别时总是出现多余的负1？ 谢谢！ Private Sub Command3_Click() Dim uph(6) As Double Dim ph As Double ph = Val(Text1(0).Text) If ph >= 8.5 Then uph(6) = 1 uph(1) = uph(2) = uph(3) = uph(4) = uph(5) = 0 ElseIf 7.5 <= ph And ph < 8.5 Then uph(4) = Abs(ph - 8.5) uph(5) = Abs(ph - 7.5) uph(1) = uph(2) = uph(3) = uph(6) = 0 ElseIf 6.5 <= ph And ph < 7.5 Then uph(3) = Abs(ph - 7.5) uph(4) = Abs(ph - 6.5) uph(1) = uph(2) = uph(5) = uph(6) = 0 ElseIf 5.5 <= ph And ph < 6.5 Then uph(2) = Abs(ph - 6.5) uph(3) = Abs(ph - 5.5) uph(1) = uph(4) = uph(5) = uph(6) = 0 ElseIf 4.5 <= ph And ph < 5.5 Then uph(1) = Abs(ph - 5.5) uph(2) = Abs(ph - 4.5) uph(3) = uph(4) = uph(5) = uph(6) = 0 Else uph(1) = 1 uph(2) = uph(3) = uph(4) = uph(5) = uph(6) = 0 End If Dim i As Integer For i = 1 To 6 Print uph(i) Next i End Sub |
回复此楼» 猜你喜欢
瑞典林雪平大学博士后招聘｜PEC Water Splitting 方向
已经有130人回复
-
PRB投稿，Acknowledgment sent to author状态十天了
已经有3人回复
-
物理学I论文润色/翻译怎么收费?
已经有148人回复
-
PVA溶解
已经有2人回复
-
基金申请
已经有44人回复
-
CSC与新西兰维多利亚大学PhD奖学金项目
已经有0人回复
-
新西兰Robinson研究所 招聘CSC公派访问人员
已经有0人回复
-
帮我的英语口语老师找学生
已经有0人回复
-
什么时候开奖？
已经有6人回复
-
散金币祈福
已经有15人回复
