从品牌网站建设到网络营销策划,从策略到执行的一站式服务
这个同时判定可以采用多线程做。但是一般都是使用数组循环来统计。
创新互联主营全椒网站建设的网络公司,主营网站建设方案,重庆APP软件开发,全椒h5小程序开发搭建,全椒网站营销推广欢迎全椒等地区企业咨询
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 Command1_Click()
Dim i As Integer
i = Text1.Text
If i Mod 2 = 0 Then
MsgBox "偶数"
Else
MsgBox "奇数"
End If
End Sub
1、定义两个数,分别用来存放奇数和偶数
2、判断能被2整除的是偶数,然后文本框显示红色文字这是偶数
3、判断不能被2整除的是奇数,然后文本框显示蓝色文字这是奇数。
语句可以用If...else....end if
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图