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语句
try
'尝试执行某些操作,有可能在执行过程中产生异常
...
...
catch
'执行上面的语句竟然真的发生错误,产生异常了,就在这里处理把
...
...
endtry
用软件改变世界,用代码书写人生,用思想创造未来! GOOD LUCK
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
文章标题:包含vb点虐
中catch的词条
网页URL:https://www.cdcxhl.com/article46/ddihheg.html
成都网站建设公司_创新互联,为您提供面包屑导航、网站建设、自适应网站、定制开发、品牌网站设计、网站制作
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联