module1.bas

电脑和三菱APLC通讯

Attribute VB_Name = "Module1"
Function W_data$(m)
W_data = "0000"
For w = 1 To m - 1
W_data = W_data & "0000"
Next w
End Function