如果不需要在同一个程序中完成，在我看来，找到COBOL可以理解的VB 和的通用格式会更容易。

这将是文字。换句话说，最简单的解决方案可能是将文件的编号写为文本“3.14159”，并让COBOL代码以该格式读取它，然后MOVE将其输入到COMP-3字段中？

如果这是不可能的，COMP-3是一个相当简单的BCD类型。无论如何，我会将该数字转换为字符串，然后每次将两个字符转换为字节数组。

的S9（15）V99要求18半字节（一个半字节是4位，或半八位字节），用于存储：

小数点不需要空格，因为V是隐含的小数，而不是真实的小数。

所以数量3.14将被表示为字节：

唯一棘手的一点是，最终符号半字节（C用于正和D为负）。

这是我在Excel VBA中掀起的一小段代码（我没有在这台机器上安装VB），它告诉你如何去做。 makeComp3（）函数应该很容易转换成真正的VB程序。

宏测试程序输出它们分别十六进制00，31和4C值0，4976和（00314C是+3.14）。

第一步（所有声明之后）是由十个相关力量放大它，然后把它变成一个整数，使双一个隐含的小数点：

接下来，我们让它变成正确大小的字符串，以使处理更容易：

然后，我们处理该串在一个时间两位数字，每对被组合成一个输出半字节。最后一步是用符号一起处理最后一个数字：

而这仅仅是测试工具，虽然它也许可以多带几个测试案例做:-)