Print m "是奇数"
Else
Print m "是偶数"
End If
在窗体上,放一个按钮,一个文本框,三个标签
代码如下
Private?Sub?Command1_Click()
Label1.Caption?=?"该数为偶数!"
Label1.Caption?=?"该数为奇数!"
End?If
End?Sub
这个同时判定可以采用多线程做.但是一般都是使用数组循环来统计.
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
For i = 1 To 100
Randomize()
A(i) = Int(Rnd() * 1000 ◆ 1)
n1 ◆= 1
Next
End Sub
以上就是土嘎嘎小编为大家整理的vb.net判断奇数偶数相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!