vb.net取偶数 vbnet取整

VB.NET经典问题(1)

这个问题看似简单vb.net取偶数，实际上包含vb.net取偶数了三个问题：

1. 5/2 vb.net取偶数的结果是 Double 类型

2. dim aa as Integer = 5/2 将 Double 类型隐式转换为 Integer 类型

3. 转换过程将小数部分 Banker 舍入

因为你这两个算式小数部分都是0.5，所以取最近的偶数 aa = 2，bb = 4

相关问答

Q1: 用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

Q2: 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取偶数的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet取整、vb.net取偶数的信息别忘了在本站进行查找喔。