Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Label2.Caption)
For i = a To 0 Step 1
b = i * b
Next i
Print b
End Sub
假設 我想要輸入6 讓它從6往下乘 例如 6*5*4*3*2*1 不知道公式那裡寫錯 就是不行 有人能幫幫我嗎?作者: 661213 時間: 2008-11-25 00:40:43 標題: [求助]有人會vb嗎 ?
哇哩咧~~~真的很抱歉~~~以前沒好好用功讀書...嗚嗚作者: robert 時間: 2008-11-25 09:48:05 標題: [求助]有人會vb嗎 ?
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Label2.Caption)
For i = a To 0 Step -1
b = i * b
Next i
Print b
End Sub
輸入6 倒回來 step 應該遞減 , 所以應該改為-1
應該是這樣吧! 不然就把回圈改為
do
b = a *b
a = a-1
loop until a = 0 作者: 小可 時間: 2008-11-25 20:55:38 標題: [求助]有人會vb嗎 ?