| 查看: 108 | 回复: 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 |
回复此楼» 猜你喜欢
重庆交大26年硕士生招生拟调剂通知已出！欢迎加入光子学微结构与器件课题组。
已经有0人回复
-
UJN物理学专业调剂
已经有12人回复
-
物理学I论文润色/翻译怎么收费?
已经有104人回复
-
0702一志愿吉大B区求调剂 本科期间发表一篇Sci
已经有0人回复
-
北京纳米能源与系统研究所王中林院士/曹南颖研究员课题组招收2026硕士研究生1名
已经有0人回复
-
山西大同大学物理学硕士研究生招收调剂生
已经有0人回复
-
[调剂信息]211智能人工感知方向国家青年特聘专家课题组招收调剂研究生
已经有0人回复
-
［调剂信息］211智能人工感知方向国家青年特聘专家课题组招收调剂研究生
已经有0人回复
-
[调剂信息]211智能人工感知方向国家青年特聘专家课题组招收调剂研究生
已经有0人回复
-
一志愿物理所凝聚态物理352求调剂
已经有0人回复
120