vb程式高手來解題~~
請用VB程式語法
1.請求sum得值為和?
i=1,sum=0，(表示式)→i<50，(T)sum+=i → i=i+1，回到i<50繼續，(F)印出sum
2.承上題，表示式裡的50改成用輸入的，例如輸入30則得435，輸入100得4950
8 個解答
評分
- LopezLv 77 年前最佳解答
第1題
Sub Ex1()
Dim sum As Long
i = 1
sum = 0
Do While i < 50
sum = sum + i
i = i + 1
Loop
MsgBox ("總合為 " & sum)
End Sub
-----------------------------------------------------
第2題
Sub Ex2()
Dim n As Integer
Dim sum As Long
n = InputBox("請輸入一個大於1的整數 : ")
i = 1
sum = 0
Do While i < n
sum = sum + i
i = i + 1
Loop
MsgBox ("總合為 " & sum)
End Sub
2014-04-20 15:13:42 補充：
抱歉,這兩題都漏了 i 的定義,請自行補上:
第1題:
Dim i as integer
第2題:
Dim n,i as integer
- 您覺得這個回答如何？您可以登入為回答投票。
還有問題？馬上發問，尋求解答。