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的代码实在不懂了
这个同时判定可以采用多线程做。但是一般都是使用数组循环来统计。
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
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
Private Sub Command1_Click()
Dim i As Integer
i = Text1.Text
If i Mod 2 = 0 Then
MsgBox "偶数"
Else
MsgBox "奇数"
End If
End Sub
做成数组控件，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
1、定义两个数，分别用来存放奇数和偶数
2、判断能被2整除的是偶数，然后文本框显示红色文字这是偶数
3、判断不能被2整除的是奇数，然后文本框显示蓝色文字这是奇数。
语句可以用If...else....end if