看板Programming
标 题Re: vb.net抛出例外的错误
发信站无名小站 (Sat Dec 9 09:47:11 2006)
转信站ptt!ctu-reader!Spring!news.nctu!news.ntu!news.ee.ttu!netnews.csie.nctu
我没找到原因
可是为什麽主程式 b 不宣告为Double呢
因为你的函式是要求Double
(我直觉是这样编译好像就不会过了？或者你有function overloading?)
※ 引述《[email protected] (换东西噜)》之铭言：
> 假设我的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海