關於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