| 查看: 143 | 回复: 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 |
回复此楼» 猜你喜欢
深圳大学应用技术学院招聘凝聚态物理博士后
已经有124人回复
-
求助中医院临床中医中标的青年标书学习，谢谢
已经有5人回复
-
物理学I论文润色/翻译怎么收费?
已经有259人回复
-
浙大物院表面物理课题组长期招收普博及直博学生
已经有259人回复
-
【征稿】Springer Nature热电专题 Discover Materials / Discover Chemistry
已经有47人回复
-
25届硕士申请，材料计算方向
已经有2人回复
-
课题组招1-2名硕士
已经有1人回复
-
机时越来越贵之后，我把一部分 DFT 流程搬到了 AI 计算平台上
已经有0人回复
-
斯坦福大学与Elsevier世界前2%学者新排名查询
已经有0人回复
-
27申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！
已经有19人回复