Re: vb.net拋出例外的錯誤
我沒找到原因
可是為什麼主程式 b 不宣告為Double呢
因為你的函式是要求Double
(我直覺是這樣編譯好像就不會過了?或者你有function overloading?)
※ 引述《Quota.bbs@bbs.mcu.edu.tw (換東西嚕)》之銘言:
> 假設我的textbox2.text=-5
> 應該會拋出例外
> 可是
> 程式為何還會跑else部分呢
> 謝謝
> 附上原始程式碼
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
> Dim car1 As New excar
> Dim a, b As Integer
Dim b as Double
> a = Val(TextBox1.Text)
> b = Val(TextBox2.Text)
> car1.setCar(a, b)
> car1.show()
> End Sub
> End Class
> Public Class CarException
> Inherits ApplicationException
> Public Sub New()
> MyBase.New("錯誤")
> End Sub
> End Class
> Class excar
> Private num As Integer
> Private gas As Double
> Sub New()
> num = 0
> gas = 0.0
> MsgBox("已生產了汽車")
> End Sub
> Public Function setCar(ByVal n As Integer, ByVal g As Double)
> If (g < 0) Then
> Throw New CarException
> Else
> num = n
> gas = g
> MsgBox("已使車號為" & num & ",使汽油量為" & gas)
> End If
> End Function
> Public Function show()
> MsgBox("車號是" & num)
> MsgBox("汽油量是" & gas)
> End Function
> End Class
--
信言不美,美言不信
善者不辯,辯者不善
知者不博,博者不知
--
夫兵者不祥之器物或惡之故有道者不處君子居則貴左用兵則貴右兵者不祥之器非君子
之器不得已而用之恬淡為上勝而不美而美之者是樂殺人夫樂殺人者則不可得志於天下
矣吉事尚左凶事尚右偏將軍居左上將軍居右言以喪禮處之殺人之眾以哀悲泣之戰勝以
喪禮處之道常無名樸雖小天下莫能臣侯王若能守之萬物將自賓天地相合以降甘露民莫
之令而自均始制有名名亦既有夫亦將知止知止218-163-121-99.dynamic.hinet.net海
討論串 (同標題文章)
Programming 近期熱門文章
PTT數位生活區 即時熱門文章