VB高手請進

Question

(1)列出 10 至120所有整數
(2)列出1!到21!所有值
(3)求12+22+……+多少的平方恰大於1500

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim dd As Double
For i = 10 To 120
Print i; ' 這樣印在 form 上, 35 之後恐怕會看不到了
Next i
Print
dd = 1
For i = 1 To 21
dd = dd * i
Print i & "! = " & dd ' 礙於精準度 21! 時會少掉最後一位數
Next i
j = 0: i = 0
Do
i = i + 1
j = j + i * i
Loop While (j < 1500)
Print i ' 結果是 17
End Sub
如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.