看板Programming
标 题vb.net抛出例外的错误
发信站铭传筑梦别境 (Sat Dec 9 07:44:39 2006)
转信站ptt!ctu-reader!ctu-peer!news.nctu!nctumenews!news.ind.ntou!news.ntu!mc
假设我的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
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
--
o ╔╦╦╦╦╦╦╦╗o。心灵交流的桥梁 资讯传递的园地 建筑梦想的别境 o○。
。╠铭传╬筑梦别境╣ 。 ≡telnet://bbs.mcu.edu.tw≡ o
○╚╩╩╩╩╩╩╩╝○o From：218-169-110-200.dynamic.hi。 ○ 。。