vb和net代码 vbnet vb区别

VB。NET添加代码

我想在窗体上加几个label用来提示错误会更好！！其中用户名为label1，密码为label2，确认密码为label3， 提交为button1，重置为button2，事例：其中名称为Warehouse的SQL数据库里面有一张Administrator1表有用户名和密码两个字段。

创新互联是一家集网站建设,阳高企业网站建设,阳高品牌网站建设,网站定制,阳高网站建设报价,网络营销,网络优化,阳高网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

'这里是添加的引用

Imports System.Data

Imports System.Data.SqlClient

'提交按钮

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text =

vb代码翻译成vb.net代码

打开VS2005及以上版本，新建一个VB.NET语言的项目，然后点工具-升级VB6代码，把代码粘贴进去即可

请问Vb.net编程代码，不要C语言的，我看不懂啊？

Imports System

Module Program

Sub Main()

Dim n As Integer

n=6

Console.WriteLine("{0}!={1}",n,fact(n))

n=10

For i As Integer=1 To n

Console.Write("{0}{1}",fibo(i),IIF(n=i,vbCrLf,","))

Next

Console.Write("按任意键继续。。。 ")

Console.ReadKey(True)

End Sub

' 递归算阶乘

Function fact(n As Long) As Long

If 0=n OrElse 1=n Then Return 1

Return n*fact(n-1)

End Function

' 递归算斐波那契数列

Function fibo(n As Long) As Long

If 1=n OrElse 2=n Then Return 1

Return fibo(n-1)+fibo(n-2)

End Function

End Module