VB.NET的 把重点的语句注释下就行了

'''两段程序就是利用.net的连接对象的功能来完成登录的实例

六盘水网站建设公司创新互联,六盘水网站设计制作，有大型网站制作公司丰富经验。已为六盘水数千家提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱，请找那个售后服务好的六盘水做网站的公司定做！

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click 'start按钮触发的函数

Dim schclass As String = Trim(txtClass.Text) ‘将txtClass里文本赋值给变量schclass

Dim selestr As String

’提示用户txtClass文本框不能为空

If schclass "" Then

selestr = "班级='" schclass "'"

Else

MsgBox("请输入班级名称", 64, "提示") ‘ 显示保存成功提示信息

End If

‘创建一个DataView对象，即将数据集DataSet11里的学生成绩表的DefaultView实例化

Dim dvresult As DataView = DataSet11.学生成绩.DefaultView

’按学号字段排序

dvresult.Sort = "学号"

‘按刚才txtClass里输入的班级查询

dvresult.RowFilter = selestr

dvresult.RowStateFilter = DataViewRowState.CurrentRows

’然后将筛选的结果输入到datagrid上

DataGrid1.DataSource = dvresult

End Sub

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click ‘ok按钮触发的函数

’如果txtUserName或txtPass文本框为空，提示并中断函数

If txtUserName.Text = "" Or txtPass.Text = "" Then

Response.Write("script language=vbscriptalert""用户名或密码不能为空！""/script")

Exit Sub

End If

‘定义链接、执行、阅读 对象

Dim mycon As New OleDbConnection

Dim mycmd As New OleDbCommand

Dim reader As OleDbDataReader

’给连接对象赋值连接字符串，access类型的。

mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _

Server.MapPath("Msg.mdb")

‘打开连接对象

mycon.Open()

’将连接对象复制到执行对象上

mycmd.Connection = mycon

‘然后就给执行对象赋值执行类型和执行语句

mycmd.CommandType = CommandType.Text

mycmd.CommandText = "Select * from myuser Where 用户名='" txtUserName.Text "'" " and 密码='" txtPass.Text "'"

’然后将执行对象的监听实例化

reader = mycmd.ExecuteReader()

‘如果执行不成功，即没有得到结果集就提示否则将结果集的用户名赋值给一个session以供其他页面使用

If reader.Read = False Then

Response.Write("script language=vbscriptalert""用户名或密码错，你不能登录！""/script")

Else

Session("username") = reader("用户名")

Response.Redirect("lwmsg.aspx")

End If

’关闭监听

reader.Close()

‘关闭连接

mycon.Close()

End Sub

visual basic.net中，存在哪几种选择语句

经过长时间学习VB.NET条件语句，于是和大家分享一下，看完本文你肯定有不少收获，希望本文能教会你更多东西。在程序设计中，VB.NET条件语句能够根据表达式的值来决定代码的执行流程。在VB.NET中，条件分支语句有两种：If/Then/Else语句和Select/Case语句。

1. If/Then/Else语句

If/Then/Else语句是最常用的VB.NET条件语句。它的基本形式是：

If condition Then statements1 [Else statements2 ]

它表示：如果condition为True，那么就执行statements1;否则执行statements2。根据时间显示问候信息。

%

If Hour(Now)12 Then Response.Write ("Good morning! Cindy!")

If Hour(Now)=12 Then Response.Write ("Good noon! Cindy!")

If (Hour(Now)12 And Hour(Now)18) Then Response.Write ("Good afternoon! Cindy!")

If Hour(Now)=18 Then Response.Write ("Good evening! Cindy!")

%

在上面的例子中，函数Hour()是对给出的日期时间求它的小时数，Now函数用于返回当前的日期和时间。程序根据当时的时间判定是上午、中午还是下午，分别给出问候信息。我们看到，这个写法很简单，但是这个程序为了显示一条问候信息，要对Hour(Now)取值4次并且执行4次比较才能完成，从效率上考虑并不好。If/Then/Else语句还可以写成比较复杂的形式：

If condition_1 Then

statements_1

[ElseIf condition_m Then statements_m

[ElseIf condition_n Then…]]

[Else statements_2]

End If

这个语句可以检测多个条件。第一种写法要求语句在写的时候要在一行中写完，例如例2.4 的第2行的If语句。这条语句也可以采用第二种方法来写，方法如下：

If Hour(Now)12 Then

Response.Write ("Good Morning!Cindy!")

End If

建议用户采用后一种写法，因为这种方法更结构化，可读性好。当用户在调试大型软件的代码时，会发现，虽然看起来多写了几行语句，但好处却是很大的。根据时间显示问候信息。请注意这个例子的写法与上个例子中的写法在执行效率上的区别。

%

If Hour(Now)12 Then

Response.Write ("Good morning! Cindy!")

ElseIf Hour(Now)=12 Then

Response.Write ("Good noon! Cindy!")

ElseIf Hour(Now)=18 Then

Response.Write ("Good evening! Cindy!")

Else

Response.Write ("Good afternoon! Cindy!")

End If

%

上面的例子在执行的过程中，对于当前不同的时间，为了显示问候信息，执行的Hour(Now)的取值和比较的次数是不一样的：最少只要1次，最多需要3次。

2. Select/Case结构

当程序中的条件比较复杂，而且是根据同一个表达式的不同值执行不同操作的时候，用If/Then/Else语句来写就显得十分烦琐。这时可以考虑采用Select/Case结构来完成VB.NET条件语句。

Select/Case结构为：

Select Case testexpression

Case condition_1

statements_1

[… Case Else statements_n]

End Select

它表示：如果testexpression的值是Condition_1，就执行statements_1，以此类推，如果都不符合，就执行Statements_n。用Select/Case语句来实现问候信息的显示。

%

Select Case Hour(Now)

Case 0,1,2,3,4,5,6,7,8,9,10,11

Response.Write ("Good morning! Cindy!")

Case 12

Response.Write ("Good noon! Cindy!")

Case 13,14,15,16,17

Response.Write ("Good afternoon! Cindy!")

Case Else

Response.Write ("Good evening! Cindy!")

End Select

%

很明显，用这种方法来显示问候信息要比用If/Then/Else语句清楚得多。因此，在选择VB.NET条件语句的时候要考虑好采用什么方式，并认真设置好条件。

VB.NET如何简写这种语句“a=a+1”

Public a As Short = 1

按钮事件：

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

a = a + 1

Label1.Text = a

End Sub

这样写出来只能加一次，再单击就不管用了，Lable1里一直显示为2.

望采纳，谢谢！！

网站栏目：vb.net的语句的标注,在vb中注释语句使用什么符号来标志
标题来源：http://ybzwz.com/article/hcipgc.html