作者UniFish (贡贡老盃)
看板Visual_Basic
标题Re: [.NET] 程式码这样写有问题?
时间Mon Jan 10 11:48:02 2011
※ 引述《moneyegg (老爷)》之铭言：
: VB2008
: 小弟做了一份作业
: 例如帮某某片商写租片软体
: 然後要在软体里面设计一个租超过五片就自动打95折的系统
: 那小弟目前是这样写
: Public Class Form1
: Dim a As Integer
: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
: System.EventArgs) Handles Button1.Click
: a = 0
: If CheckBox1.Checked = True Then
: a = a + TextBox2.Text * Label3.Text
: End If
: If CheckBox2.Checked = True Then
: a = a + TextBox3.Text * Label4.Text
: End If
: If CheckBox3.Checked = True Then
: a = a + TextBox4.Text * Label5.Text
: End If
: If Label3.Text + Label4.Text + Label5.Text > 5 Then
: a = a * 0.95
: TextBox1.Text = a
: End If
: End Sub
: End Class
: 可是不管怎麽样租几片他都会跑去打95折 QQ
: 小弟的95折选项不是以经给它设立条件了吗?
: 请问为什麽还会出现这种问题?
: 我不是来偷鸡问作业
: 我是真的用我的方法去做可是出现问题 QQ
帮你写一下...
Dim TOTAL as integer = 0
Dim QUANTITY as integer = 0
If CheckBox1.Checked = True Then
QUANTITY+=Val(Label3.Text)
TOTAL += Val(TextBox2.Text) * Val(Label3.Text)
End If
If CheckBox2.Checked = True Then
QUANTITY+=Val(Label4.Text)
TOTAL += Val(TextBox3.Text) * Val(Label4.Text)
End If
If CheckBox3.Checked = True Then
QUANTITY+=Val(Label5.Text)
TOTAL += Val(TextBox4.Text) * val(Label5.Text)
End If
If QUANTITY > 5 then TOTAL*=0.95
Textbox1.Text= TOTAL.ToString
----------------------
此篇重点：变数转换型态
若觉得有问题的话，可以在每个动作执行後，
把变数PRINT出来看看是不是你预设的内容
--
◣◥
◤◢ ◣▁◢ 请‧尊‧重‧生‧命
◤
◢◤ ‧‧▏ ◥ ◤
以 认 养 代 替 购 买
◤◢ ▄▄▄▄ ‧‧
◢◤ 请领养我 ▄ ▄ 以 绝 育 代 替 扑 杀
◤◢ 请领养我▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Blog：http://Unifish.Pixnet.net/ 本BLOG谢绝挖隐私魔人 QSWEET
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.40.151.237