关于VB6写程式

您尚未
登入
注册
忘记密码
搜寻
赞助
广告
简讯
论命
娱乐
求助
最近
- 烹饪技巧研..
- 手机讨论区
- －最近浏览－
- 料理秘诀大..
- 求救…７６..
首页

MyChat 数位男女

»
程式设计

»
关于VB6写程式

手机版

地图

繁体

您是第 7952 个阅读者

可列印版加为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.020100 second(s),query:16 Gzip disabled 本站由瀛睿律师事务所担任常年法律顾问 \| 免责声明 \| 本网站已依台湾网站内容分级规定处理 \| 连络我们 \| 访客留言