等！ VB，输入一个三位数的正整数来确定奇偶校验，即偶数的相加，反之亦然

正弦函数的偶数平方和余弦函数的偶数平方相乘时是偶数函数;

正弦函数的奇平方和余弦函数的奇平方相乘时是奇函数。

创建一个数组控件，index 表示控件编号 （.）。.net modified +=） 伪**：

s1=2*int(rnd)'两个偶数。

s2=2*int(rnd)

select case index

case 0

s1=s1+1' 是奇数。

s2=s2+1

case 2

s1=s1+1'1 个奇数。

case 3

s2=s2+1'1 个奇数。

end select

因为三个数的乘法是偶数，所以至少有一个偶数，如果 1 偶数 2 奇数是偶数。

如果 2 偶 1 奇数，则总和为奇数。

如果 3 是偶数，则总和是偶数。

所以它是 2 个偶数和 1 个奇数。

2 偶数 1 奇数 因为三个数的总和是奇数，所以只有 2 种情况：3 奇数，2 偶数 1 奇数; 将三个数字相乘是一个偶数，只有 2 个偶数和 1 个奇数。

sub aa()

使用 9 行数据来说明，看看它是否是你想要的;

DIM x 欧芹作为整数

for x = 2 to 9

如果 cells（x， 1） mod 2 = 0 和 cells（x， 2） mod 2 = 0，则'从 a 和 b 的值中去掉 2，如果余数为 0，则该轮数将证明单元格 a 和 b 的相应值为偶数;

cells(x, 3) =cells(x, 1) *cells(x, 2) '让两个都是偶数的值相乘，第三个值返回结果;

end if

next x

end sub

5+3+a+9+b 的总和是偶数 = 17+a+b 的总和是偶数。

a+b 的总和是一个奇数。

A 和 B 具有不同的奇偶校验。

不同，5+3+9=17,17是奇数，需要加到奇数上才能得到偶数; 所以 a+b 的总和是奇数; 因为这两个数的总和是奇数，所以两个数中的一个一定是奇数，其中一个数一定是偶数，因为两个偶数的总和一定还是偶数; 所以 A 和 B 的奇偶校验是不一样的！