2005-04-21 08:10:42BOSS ^0^
又來po計慨
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幫我ㄉㄟ
她很棒ㄟ
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幫我ㄉㄟ
她很棒ㄟ