十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
try
成都创新互联是专业的石屏网站建设公司,石屏接单;提供网站设计制作、成都网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行石屏网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
‘可能出错的代码
catch ex……
出错后运行这里的代码,可以通过ex返回错误信息。
end try
try是捕获异常的关键字
try
{
正常执行代码段;
}
catch(Exception err)
{
错误代码段;
//例如
MessageBox.Show(err.Message);
//可以显示你出的是什么错误
}
Dim i As Integer
Try
i = CInt(TextBox1.Text)//这个里显然输入文字的话是不对的
If i = 6 Then
MessageBox.Show("666!")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
试试。。。
i = CInt(TextBox1.Text) 这句已经出现错误,所以无法进入try语句
Public Class Form1
Public Class Circl
Dim _radius As Single '#1
Public Function Area() As Single
Return _radius ^ 2 * 3.14 '#2
End Function
Public Property Radius() '#3
Get
Return Area() '#4
End Get
Set(ByVal value)
If value = 0 Then
_radius = value '#5
Else
_radius = 0
MsgBox("半径不能为负数") '#6
End If
End Set
End Property
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim c As New Circl '#7
c.Radius = Convert.ToSingle(txbradius.Text) '#8
txbarea.Text = c.Area '#9
Catch ex As Exception
MsgBox(ex.Message) '#10
End Try
End Sub