Dim n As Integer
Private Sub Form_Click()
If n / 2 = 0 Then
Print "n是偶数"
Else
Print "n是奇数"
End If
End Sub
Private Sub Form_Load()
n = InputBox("请输入整数：")
End Sub
二、 编写一个VB函数过程,用以判断一个数是奇数还是偶数
二、 编写一个VB函数过程,用以判断一个数是奇数还是偶数
数学人气：950 ℃时间：2019-10-27 03:15:49
优质解答
我来回答
类似推荐
猜你喜欢
- 1There's a bus every five minutes.(改为复数形式）
- 2英语周一到周五的英标
- 3一件工程，甲单独完成要12天，乙单独完成需9天，若甲先做若干天，再乙单独完成共需10天，甲单独做了几天？
- 4一个边长是8厘米的正方形纸片,把他剪成一个最大的圆,这个圆的面积是原纸片面积
- 5水果店里运来苹果和梨共1.25吨,苹果和橘子共1.45吨,梨和橘子共1.5吨..三种水果共多少吨?
- 6你认为好朋友应该是怎样的?写一篇题为“Good Friends in My Mind”的短文
- 7初二物理单位换算题1.5x105nm=（ ）cm=（ ）m=（ ）km 4.76x105km=（ ）dm=（ ）μm=（ ）nm
- 8《做家务》英语作文
- 9当M为何值时,关于x的一元二次方程mx²-x-（m+1）=0有两个相等的实数根?此时这两个实数根是多少?
- 10板块张裂运动而未被海水侵入时,陆地地形出现怎样的变化,产生哪些自然现象?