求用vbs編寫的貪吃蛇源代碼？

定義snake的移動速度。

私有枚舉速度

快速0

慢慢1

結束枚舉

定義蛇移動方向的枚舉值。

私有枚舉tpsDirection

D_UP38

d_下降40

d_左37

d_右39

結束枚舉

定義運動區域中四個的枚舉值。

私有枚舉tpsForbidd

VBS如何跳出本次for循環，執行下個for循環？

VBS沒有continu

WinCC如何利用復選框和按鈕來設置變量的數值？

建立三個內部變量，A，B，C，都是二元變量。

創建一個圖片，畫三個復選框，復選框的屬性-幾何中的框數設置為1。

在第一個復選框中，屬性-Font-的文本被改為A，另外兩個分別是B和C。

第一個復選框，屬性-輸入/輸出-右擊"動態"來選擇變量A，另外兩個選擇變量B和c。

在圖片上畫兩個按鈕。將屬性字體的文本更改為按鈕1，將另一個按鈕更改為按鈕2。

按鈕1，屬性-事件-鼠標-松開左鍵點擊右鍵-》VBS動作粘貼以下代碼。

一個

2

三

四

五

六

七

八

九

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

SubonLButtonUp(按值項目，按值標志，按值x，按值y)

DimA和BA控制幾個復選框為1，B控制哪個或哪些復選框為1。

Dim標簽_a、標簽_b、標簽_c

設置Tag_aHMIRuntime。標簽(個)設置Tag_bHMIRuntime。標簽(b)

設置Tag_cHMIRuntime。標簽(c)

AInt(Rnd*3)1生成1-3的隨機數。

bInt(Rnd*3)1

如果a1那么

選擇案例b

案例1

標簽_a.寫

一個

案例2

Tag_b.寫

一個

其他情況

標簽_c.寫

一個

結束選擇

那么Elseifa2

選擇案例b

案例1

標簽_a.寫

一個

Tag_b.寫

一個

案例2

標簽_a.寫

一個

標簽_c.寫

一個

其他情況

Tag_b.寫

一個

標簽_c.寫

一個

結束選擇

其他

標簽_a.寫

一個

Tag_b.寫

一個

標簽_c.寫

一個

如果…就會結束

末端接頭