24h購物| | PChome| 登入
2005-04-21 08:10:42| 人氣8| 回應0 | 上一篇 | 下一篇

又來po計慨

推薦 0 收藏 0 轉貼0 訂閱站台

Private Sub Command1_Click()
Dim n As Single
n = Val(InputBox("請輸入一值n", "數字"))
i = 0
s = 0
Print "輸入值n為: "; n
Do Until i >= n
i = i + 1
s = s + i
Loop
Print "1到n的和為:"; s

End Sub

Private Sub Command2_Click()
Cls

End Sub

Private Sub Command3_Click()
End

End Sub

ㄏㄏㄏ......
真好玩ㄟ

可愛ㄉ王球球
這次可是王JOE幫我ㄉㄟ
她很棒ㄟ

我要檢舉
台長： BOSS ^0^
人氣(8) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類

TOP
詳全文