关于VB6写程式

Home Home

引用 | 编辑 yyy21305
2015-06-22 19:33

楼主
▼

我最近要考试了
一直想不透这类程式怎么做
如果 ..

访客只能看到部份内容，免费加入会员

引用 | 编辑 ebolaman
2015-06-26 18:49

1楼
▲ ▼

复制程式

If C < 10 And A > B Then Answer = A + B
If C < 10 And A < B Then Answer = A - B

If C < 10 Then
  If A > B Then Answer = A + B
  If A < B Then Answer = A - B
End If

是一样的，只是后者没用到 "And"，后者的意思可以看成 If C < 10 Then ... End If 包起来的东西都和 C < 10 作一个 "And" 动作过了

加上 C > 10 会变这样，"..." 请自行完成

复制程式

If C < 10 Then
  If A > B Then Answer = A + B
  If A < B Then Answer = A - B
End If

If C > 10 Then
  ...
End If

延伸思考

可不可以用 Else 或 ElseIf 改写?
如果 C = 10 怎么办?
如果 A = B 怎么办?

引用 \| 编辑啊条o 2015-07-31 02:48	2楼 ▲
复制程式 Dim Ans As Integer If C<10 Then If A>B Then Ans = A+B If A<B Then Ans = A-B ElseIf C>10 Then If A>B Then Ans = A-B If A<B Then Ans = A+B End If 建议如果在写程式遇到问题的话可以先请Google大神帮您解决问题不只可以学到您不曾学过的语法，也能帮助您对程式越来越有兴趣哦 x0