| 查看: 112 | 回复: 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 |
回复此楼» 猜你喜欢
【修正版】单环用磁约束低速电子实验方案（简化版）
已经有0人回复
-
桂林理工大学物理学专业招收调剂，还有三个名额！！！
已经有22人回复
-
物理学I论文润色/翻译怎么收费?
已经有165人回复
-
考博自荐
已经有4人回复
-
山东大学第二批博士研究生招生
已经有0人回复
-
中国科学院东莞材料科学与技术研究所-2026年博士招生-吴昊研究员-磁学与自旋电子学
已经有0人回复
-
《电磁学》教材推荐
已经有1人回复
-
【急招】合肥工大核聚变材料计算方向2026级工程博士生
已经有4人回复
-
大豆异黄酮分离
已经有0人回复
-
湖南大学材料学院急招2026年博士生，临时增加一名博士联培指标
已经有10人回复
-
天津理工大学晶体材料全国重点实验室刘红军教授课题组招收博士生1-2名
已经有0人回复
20