0

我有一个可以是任何随机值的测量值，只是为了好玩，我需要将 2440 毫米除以 610 毫米的行业标准，得出 2440 / 610 = 4

程序编写 NEWVAL = YVAL / STDVAL

NEWVAL (4) 让我参考我想在 txt 文件中添加新行的实例数我知道我希望第一行说 0,0,0，第二行说 0,610,0 第三个 0， 1220,0 第四个 0,1830,0 和最后一个 0,2440,0，虽然这很容易通过添加来实现，如果 YVAL 是用户，我如何自动化 vb.net 为每个 610 实例生成一个新的写入行定义。

简而言之，如果 YVAL 变量在 4880mm 处的长度是两倍，则将丢失一半

4

1 回答 1

1

你的意思是这样的？

    Dim YVAL = 2440                                     ''Measurement
    Dim STDVAL = 610                                    ''Standard value
    Dim NEWVAL = YVAL \ STDVAL                          ''Force integer division
    For I = 0 To YVAL Step STDVAL                       ''Loop through each item
        Trace.WriteLine(String.Format("0,{0},0", I))    ''Output
    Next
于 2010-11-30T19:18:46.550 回答