扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
这个问题看似简单，实际上包含了三个问题：
成都创新互联公司-专业网站定制、快速模板网站建设、高性价比东光网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式东光网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖东光地区。费用合理售后完善，10余年实体公司更值得信赖。
1. 5/2 的结果是 Double 类型
2. dim aa as Integer = 5/2 将 Double 类型隐式转换为 Integer 类型
3. 转换过程将小数部分 Banker 舍入
因为你这两个算式小数部分都是0.5，所以取最近的偶数 aa = 2，bb = 4
这个同时判定可以采用多线程做。但是一般都是使用数组循环来统计。
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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网