13518219792
会溢出的.后面算到几桥肆贺万的几万次方肯定溢出..
创新互联建站服务项目包括湘东网站建设、湘东网站制作、湘东网页制作以及湘东网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，湘东网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到湘东省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
ON ERROR RESUME NEXT
Dim A As Long
Dim B As Long
Dim C As Double
c=0
A = InputBox("type a number", "type","")
For B = 1 To C
c = c + b ^ b
Next b
MsgBox "敏派雹好result" c
首先写一个事件响应方法：
Protected Sub dcwgl_zx_f5_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
'一些代码
'如果你想使用这个响应事件的控件，用CType(sender,TextBox)表达
'例如Dim thisTextBox As TextBox = CType(sender, TextBox)
End Sub
用如下代码就可以绑定事件了：
AddHandler xxTextBox.TextChanged, AddressOf dcwgl_zx_f5_TextChanged
推荐你动态创建这些控件并绑滚侍定事件（通常在Form的Load事件中）。假设敬运你要创建x个TextBox：
For i = 0 To x
Dim tb As New TextBox()
'把它加入父大稿吵容器的控件集合
Form1.Controls.Add(tb)
'绑定事件
AddHandler tb.TextChanged, AddressOf dcwgl_zx_f5_TextChanged
Next i
你也可以静态添加这些TextBox，当然事先要把它们放入某个容器中，比如GroupBox1，再绑定事件（在Load事件中）：
For Each con As Control In GroupBox1.Controls
If TypeOf con Is TextBox Then
Dim tb As TextBox = CType(con,TextBox)
AddHandler tb.TextChanged, AddressOf dcwgl_zx_f5_TextChanged
End If
Next
Module Program
Sub Main()
Dim l,n1,n2 As Long
Console.Write("请输哗租入一个大于等于6的偶数：")
l=CLng(Console.ReadLine())
For n1=3 To CLng(l/2)+1
n2=l-n1
If IsPrime(n1) AndAlso IsPrime(n2) Then
Exit For
End If
Next
Console.WriteLine("{0}={1}+{2}"此颤,l,n1,n2)
Console.Write("乱扒兆Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
Function IsPrime(l As Long) As Boolean
Dim r As Boolean=False
Dim i As Long,sq As Long=CLng(Math.Sqrt(l))
For i=2 To sq
If 0=l Mod i Then
Exit For
End If
Next
If isq Then
r=True
End If
Return r
End Function
End Module
