初學(xué)VB.NET四天`高手幫我注釋一下代碼

html

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶，將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：國(guó)際域名空間、網(wǎng)頁(yè)空間、營(yíng)銷軟件、網(wǎng)站建設(shè)、延安網(wǎng)站維護(hù)、網(wǎng)站推廣。

head

?script language="VB" runat="server"

??Sub Page_Load(sender As Object, e As EventArgs) '在頁(yè)面加載時(shí)發(fā)生的事件

???If Not IsPostBack Then '如果不是IsPostBack的話

????Dim values as ArrayList= new ArrayList() '新建一個(gè)名為values的數(shù)組列表

'以下代碼中，往values中添加項(xiàng)目

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

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

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

????Values.Add ("哈爾濱")

'設(shè)置下拉列表框的數(shù)據(jù)源為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) '在頁(yè)面加載時(shí)發(fā)生的事件

??????If Not IsPostBack Then '如果不是IsPostBack的話

????????Dim values as ArrayList= new ArrayList() '新建一個(gè)名為values的數(shù)組列表

'以下代碼中，往values中添加項(xiàng)目

????????values.Add (0)

????????values.Add (1)

????????values.Add (2)

????????values.Add (3)

????????values.Add (4)

????????values.Add (5)

????????values.Add (6)

'設(shè)置下拉列表框的數(shù)據(jù)源為values

????????DataList1.DataSource = values

????????DataList1.DataBind

??????End If

????End Sub

定義一個(gè)名為EvenOrOdd的函數(shù)，參數(shù)有number，返回一個(gè)字符串

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

??????If (number Mod 2 0) Then '如果number÷2的余數(shù)不等于0

???????Return "奇數(shù)" '返回“奇數(shù)”

??????Else '否則

???????Return "偶數(shù)" '返回“偶數(shù)”

??????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

?????數(shù)字值: %# Container.DataItem %

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

????/ItemTemplate

???/asp:DataList

??/form

/body

/html

其他ASP的代碼實(shí)在不懂了

vb.net怎么同時(shí)判定多個(gè)數(shù)的奇偶性

這個(gè)同時(shí)判定可以采用多線程做。但是一般都是使用數(shù)組循環(huán)來(lái)統(tǒng)計(jì)。

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("所產(chǎn)生的100個(gè)數(shù)字中偶數(shù)有" n1 "個(gè)，奇數(shù)有" n2 "個(gè)")

End Sub

vb.net 求產(chǎn)生一個(gè)隨機(jī)正整數(shù),用IF THEN判斷奇偶性,并用MsgBox輸出 求大神?。。?/h2>

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??"是偶數(shù)")

Else

MsgBox(a??"是奇數(shù)")

End?If

End?Sub

用VB.NET編程，任意輸入一個(gè)整數(shù)，判定該整數(shù)的奇偶性

Private Sub Command1_Click()

Dim i As Integer

i = Text1.Text

If i Mod 2 = 0 Then

MsgBox "偶數(shù)"

Else

MsgBox "奇數(shù)"

End If

End Sub

VB判斷奇偶性

做成數(shù)組控件，index表示控件號(hào)（.net中修改+=）

偽代碼：

s1=2*int(rnd)'倆偶數(shù)

s2=2*int(rnd)

select case index

case 0

s1=s1+1’倆奇數(shù)

s2=s2+1

case 2

s1=s1+1'1個(gè)奇數(shù)

case 3

s2=s2+1'1個(gè)奇數(shù)

end select

請(qǐng)教VB.net的問(wèn)題

1、定義兩個(gè)數(shù)，分別用來(lái)存放奇數(shù)和偶數(shù)

2、判斷能被2整除的是偶數(shù)，然后文本框顯示紅色文字這是偶數(shù)

3、判斷不能被2整除的是奇數(shù)，然后文本框顯示藍(lán)色文字這是奇數(shù)。

語(yǔ)句可以用If...else....end if