重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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 ex……
出错后运行这里的代码,可以通过ex返回错误信息。
end 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
日语的大概意思是
经过运行, 计数器是因为无法运行,你的请求不能被执行。
你自己弄吧,看不懂