| 查看: 104 | 回复: 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人回复
-
求标准粉末衍射卡号 ICDD 01-076-1802
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有112人回复
-
新西兰Robinson研究所招收全奖PhD
已经有0人回复
-
石墨烯转移--二氧化硅衬底石墨烯
已经有0人回复
-
笼目材料中量子自旋液体基态的证据
已经有0人回复
-
数学教学论硕士可以读数学物理博士吗？
已经有0人回复
-
德国亥姆霍兹Hereon中心汉堡分部招镁合金腐蚀裂变SCC课题方向2026公派博士生
已经有4人回复
-
澳门大学 应用物理及材料工程研究院 潘晖教授课题组诚招博士后
已经有11人回复