初学VB.NET四天`高手帮我注释一下代码

html

创新互联于2013年创立，是专业互联网技术服务公司，拥有项目网站建设、成都网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元新巴尔虎右做网站,已为上家服务,为新巴尔虎右各地企业和个人服务,联系电话:18982081108

head

�script language="VB" runat="server"

��Sub Page_Load(sender As Object, e As EventArgs) '在页面加载时发生的事件

���If Not IsPostBack Then '如果不是IsPostBack的话

����Dim values as ArrayList= new ArrayList() '新建一个名为values的数组列表

'以下代码中，往values中添加项目

����values.Add ("北京")

����Values.Add ("上海")

����Values.Add ("天津")

����Values.Add ("哈尔滨")

'设置下拉列表框的数据源为values

����DropDown1.DataSource = values

����DropDown1.DataBind

���End If

��End Sub

�/script

/head

body

�form runat="server"

���asp:DropDownList ID="DropDown1" runat="server" /

�/form

/body

/html

html

head

��script language="VB" runat="server"

����Sub Page_Load(sender As Object, e As EventArgs) '在页面加载时发生的事件

������If Not IsPostBack Then '如果不是IsPostBack的话

��������Dim values as ArrayList= new ArrayList() '新建一个名为values的数组列表

'以下代码中，往values中添加项目

��������values.Add (0)

��������values.Add (1)

��������values.Add (2)

��������values.Add (3)

��������values.Add (4)

��������values.Add (5)

��������values.Add (6)

'设置下拉列表框的数据源为values

��������DataList1.DataSource = values

��������DataList1.DataBind

������End If

����End Sub

定义一个名为EvenOrOdd的函数，参数有number，返回一个字符串

����Function EvenOrOdd(number As Integer) As String

������If (number Mod 2 0) Then '如果number÷2的余数不等于0

�������Return "奇数" '返回“奇数”

������Else '否则

�������Return "偶数" '返回“偶数”

������End If

����End Function

��/script

/head

body

��form runat="server"

���asp:DataList id="DataList1" runat="server"

����BorderColor="#000000"

����BorderWidth="1"

����GridLines="Both"

����CellPadding="3"

����CellSpacing="0"

����

����ItemTemplate

�����数字值: %# Container.DataItem %

�����偶/奇: %# EvenOrOdd(Container.DataItem) %

����/ItemTemplate

���/asp:DataList

��/form

/body

/html

其他ASP的代码实在不懂了

如何对Vb.net进行漂亮的XML注释

在紧挨着类或成员的上一行打三个单引号，自动生成XML注释。

你可以使用para来换行。

使用see cref来标明参考项。

vb.net 中有几种注释？？有多行注释吗？

首先选取你要注释的文本块，然后Ctrl-K Ctrl-C 这样对你选择的文本块完成注释．

而如果你要取消已完成注释的文本块，则Ctrl-K Ctrl-U即可。

注释一段VB代码

Private Sub cmdDel_Click() '"删除"命令按钮 Dim res As Integer '定义变量res res = MsgBox("确实要删除此行记录？", _ vbExclamation + vbYesNo + vbDefaultButton2) '调用MsgBox弹出是否对话框，将用户点选结果返回res变量 If res = vbYes Then '若用户点击“是”按钮 AdodcCustomer.Recordset.Delete '将ADO数据库控件AdodcCustomer记录集的当前指针指向的记录删除 AdodcCustomer.Recordset.MoveNext '将ADO数据库控件AdodcCustomer记录集的当前指针向后移动一位 If AdodcCustomer.Recordset.EOF = True Then '若ADO数据库控件AdodcCustomer记录集的当前指针指向结尾 AdodcCustomer.Recordset.MoveLast '将ADO数据库控件AdodcCustomer记录集的当前指针移至末尾 End If '结束“If AdodcCustomer.Recordset.EOF = True Then”语句 End If '结束“If res = vbYes Then”语句 End Sub '结束“Private Sub cmdDel_Click()”过程

怎么将vb中的一段代码注掉

不能，只能一行一行带引号。不过可以用注释块。在菜单栏下面的工具条上点击右键，然后选择“编辑”把编辑工具栏调出来，此时选中你要注释的代码，单击“编辑”工具栏上的小手右边的那个按钮（设置注释块）即可。

标题名称：vb.net怎么注释代码的简单介绍
当前URL：http://kswjz.com/article/hchsge.html