VB小程序求解

465关注795浏览

write a vb program which can do the odd parity for a byte
used code such as:
num_bits = 0
for k 1 to 8
if num mod 2 = 1 then
num_bit = num_bit + 1
end if
next k
num = num / 2

thanks
不是吧。。还用拿翻译软件翻译

展开全部
收起
6回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 萌猫君

    20人对此回答表示赞同

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

    评论(0)

    收起评论

  • JessieJ

    14人对此回答表示赞同

    num_bits = 0
    for k= 1 to 8'这里少个等号
    if num mod 2 = 1 then
    num_bit = num_bit + 1
    end if

    num = num / 2'把这句放到循环体里面,本代码好像是看一个数一直除2的结果有几次是奇数!

    next k
    展开
    14
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Jose

    12人对此回答表示赞同

    1.计算物体密度 private sub command1.click() '点击按钮事件 dim v,m,p as double ’定义变量 v=inputbox("请输入物体体积") '调用输入框函数输入体积 m=inputbox("请输入物体质量") '调用输入框函数输入质量 p=m/v msgbox("物体密度:" & p) '输出密度 end sub 2.计算水物体所受压强 private sub com
    展开
    12
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Xavier

    12人对此回答表示赞同

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

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

    Private Sub Form_Load()

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

    '呵呵
    '声明一个统计次数的变量,赋值
    展开
    12
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 安以

    7人对此回答表示赞同

    题目要求就是
    写一个对一个字节进行奇校验的VB程序,
    用诸如以下的代码
    num_bits = 0
    for k 1 to 8
    if num mod 2 = 1 then
    num_bit = num_bit + 1
    end if
    next k
    num = num / 2
    展开
    7
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Christopher

    4人对此回答表示赞同

    write a vb program which can do the odd parity for a byte
    used code such as:
    这两句都是英文,翻译一下嘛,呵呵
    展开
    4
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部