作者pinkykk (哇哈哈)
看板Visual_Basic
标题Re: [.NET] 程式码这样写有问题?
时间Mon Jan 10 10:25:32 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
从文章看来 Textbox2~Textbox3应该是指价位，Label3~Label5是指数量
Textbox1是最终价钱的总和，问题可能是出在最後一段，
If Cint(Label3.Text) + Cint(Label4.Text) + Cint(Label5.Text) > 5 Then
a = a * 0.95
End If
TextBox1.Text = a.toString
试试看^^"
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.240.180.210
1F：推 UniFish:痾...VB现在是不用作变数型态的转换吗!? 01/10 10:56
2F：→ pinkykk:我印象中Int=>String好像可以自动转，保险一点a.tostring 01/10 11:18
3F：→ pinkykk:Sorry...@@ 01/10 11:19
※ 编辑: pinkykk 来自: 210.240.180.210 (01/10 11:20)
4F：推 UniFish:喔~歹势~我是在说原PO的程式码XD 01/10 11:38
5F：→ UniFish:两个text相乘是可以不用转INT的吗!?我记得要吧 01/10 11:39
6F：→ pinkykk:其实是不用的XD 01/10 11:51
7F：→ pinkykk:但是照理说要做啦.... 01/10 11:51
8F：→ MOONRAKER:VB6才不要吧… 01/10 12:00
9F：推 horngsh:vb6宠坏程式师了, 快改用VB.NET或C#吧... 01/10 13:21
10F：→ pinkykk:VB.NET的专案属性隐含转换如果设定为on才会无法编译 01/10 15:22
11F：→ catchtest:String相加会变成把String组合起来 01/10 20:04