English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
所有分類

KeyPress 13 1
VBS j=0
For 100
VBS j=j+1
If (j mod 3) = 0
VBS k=0
While k<3
SayExpression j*(k*4+1)
SayString ,
VBS k=k+1
EndFor
KeyPress 13 1
EndIf
EndFor



幫我解釋~這個程式在座啥的

2007-03-23 17:38:11 · 1 個解答 · 發問者 ? 3 in 電腦與網際網路 程式設計

1 個解答

KeyPress 13,1
按 enter 1次
VBS j=0
設定 j 初始值 0

-----------------------------------執行一百次
For 100
VBS j=j+1
設定 j 從 1 到 100

-----------------如果 j 是三的倍數 ,k 就是 0,1,2 ,
If (j mod 3) = 0

VBS k=0
While k<3
SayExpression j*(k*4+1)
-------
1.j=3,k=0,1,2 產生 3,15,27
2.j=6,k=0,1,2 產生 6,30,54
3.j=9,k=0,1,2 產生 9,45,81
.....
33.j=99,k=0,1,2 產生 99,495,891
-------
SayString , 空一行
VBS k=k+1
EndFor
-----------------
-----------------------------------
KeyPress 13 1
EndIf
EndFor

2007-03-26 18:57:44 · answer #1 · answered by 老骨頭 3 · 0 0

fedest.com, questions and answers