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

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 ("北京")

����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怎么同时判定多个数的奇偶性

这个同时判定可以采用多线程做。但是一般都是使用数组循环来统计。

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

Dim A(100) As Integer

Dim n1 As Integer = 0

Dim n2 As Integer = 0

For i = 1 To 100

Randomize()

A(i) = Int(Rnd() * 1000 + 1)

If A(i) Mod 2 = 0 Then

n1 += 1

Else

n2 += 1

End If

Next

MsgBox("所产生的100个数字中偶数有" n1 "个，奇数有" n2 "个")

End Sub

vb.net 求产生一个随机正整数,用IF THEN判断奇偶性,并用MsgBox输出 求大神啊！！

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

Dim a As Integer = Int(Rnd() * 100)

If a Mod 2 = 0 Then

MsgBox(a  "是偶数")

Else

MsgBox(a  "是奇数")

End If

End Sub

用VB.NET编程，任意输入一个整数，判定该整数的奇偶性

Private Sub Command1_Click()

Dim i As Integer

i = Text1.Text

If i Mod 2 = 0 Then

MsgBox "偶数"

Else

MsgBox "奇数"

End If

End Sub

VB判断奇偶性

做成数组控件，index表示控件号（.net中修改+=）

伪代码：

s1=2*int(rnd)'俩偶数

s2=2*int(rnd)

select case index

case 0

s1=s1+1’俩奇数

s2=s2+1

case 2

s1=s1+1'1个奇数

case 3

s2=s2+1'1个奇数

end select

请教VB.net的问题

1、定义两个数，分别用来存放奇数和偶数

2、判断能被2整除的是偶数，然后文本框显示红色文字这是偶数

3、判断不能被2整除的是奇数，然后文本框显示蓝色文字这是奇数。

语句可以用If...else....end if