Select Case Val(DI(0)) Case 64 x1 = 0: x2 = 0: y1 = 0: y2 = 0: Z1 = 0: Z2 = 0 graph_number = 0 Shape2.FillColor = &H8000000F '原色 falgs = 0 savenumber = 0 '***************** DO_WRITE(0) = 0 n1 = 0

这段代码看起来像是VB语言的Switch语句，根据DI(0)的值来执行相应的代码块。Case 64的情况下，将x1、x2、y1、y2、Z1、Z2、graph_number、falgs、savenumber和DO_WRITE(0)的值都设为0，并将Shape2.FillColor设置为&H8000000F。最后将n1的值设为0。