VB小程序求解

最上面两行英文没用，就是说怎么操作字节，

我给你补充了点代码，你把下面的复制到你的VB6里就能看到效果了，
呵呵，满意的话，给分哦~

Private Sub Form_Load()

'这部分代码是判断数字是奇数还是偶数的吧~
'如果是奇数的话，并取最后一个它的数值的二分之一
'还要统计数字奇数的次数

'呵呵
'声明一个统计次数的变量，赋值为0
num_bits = 0
'定义一个循环，范围是1到8，步长为1

For k = 1 To 8
'如果这个数字被2整除余数为1

num = k

If num Mod 2 = 1 Then
'次数+1
num_bit = num_bit + 1
'显示奇数
MsgBox "这个数字是奇数：" & num & " 奇数出现次数为:" & num_bit

'结束判断
End If
'循环下一个数值
Next k
'数值为其二分之一
num = num / 2

MsgBox "最后一个数字的二分之一为：" & num & " "
End Sub

这个是不完整的一个代码 而且你好像是从那里cv过来的，
write a vb program which can do the odd parity for a byte
(写VB程序，这可以做多平价为一个字节)
used code such as: (使用代码如)
这段话是英文 和程序没有任何的关系，应该是如此，不知道你可以贴上尽量全的代码 还有就是你的这个程序是做什么的！

write a vb program which can do the odd parity for a b