關於VB6寫程式

MyChat 數位男女

»
程式設計

»
關於VB6寫程式

手機版

地圖

簡體

您是第 7950 個閱讀者

可列印版加為IE收藏收藏主題上一主題 | 下一主題

yyy21305

級別: 小人物

x44

▼

[Basic][求助] 關於VB6寫程式

我最近要考試了
一直想不透這類程式怎麼做
如果 ..

訪客只能看到部份內容，免費加入會員或由臉書 Google 可以看到全部內容


x0 [樓主] From：台灣寬頻通訊顧問股份有限公司 \| Posted：2015-06-22 19:33 \|

ebolaman

級別: 副版主

版區: 程式設計

x38

x458

▲ ▼

複製程式

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 怎麼辦?

My BOINC stats :
x0 [1 樓] From：臺灣教育部 \| Posted：2015-06-26 18:49 \|

啊條o

級別: 路人甲

x75

▲

複製程式

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 [2 樓] From：臺灣中華電信股份有限公司 \| Posted：2015-07-31 02:48 \|



MyChat 數位男女 » 程式設計

Powered by PHPWind v1.3.6 Copyright © 2003-04 PHPWind	Processed in 0.060491 second(s),query:16 Gzip disabled 本站由瀛睿律師事務所擔任常年法律顧問 \| 免責聲明 \| 本網站已依台灣網站內容分級規定處理 \| 連絡我們 \| 訪客留言