(VB)陣列＠　　快樂的一刻　勝過永恆的難過

2007-11-07 23:55:33| 人氣68| 回應0 | 上一篇 | 下一篇

(VB)陣列

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

Dim a(45) As Integer
Dim n, i, sum As Integer
Dim avg As Single

Console.Write(”請輸入班級的人數(上限為45人)：”)
n = Console.ReadLine

If n > 45 Then
Console.Write(”人數超過上限”)
Console.ReadLine()
End
End If

Console.WriteLine()
For i = 1 To n
Console.Write(”輸入第 ” & i & ” 位同學的成績：”)
a(i) = Console.ReadLine
Next
For i = 1 To n
sum = sum + a(i)
Next
avg = sum / n
Console.WriteLine(”班級平均成績為：” & avg)
Console.ReadKey()

我要檢舉

台長：孩子氣☻

人氣(68) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類

回應(0)

推薦(0)

我要回應

* 回應人：

E-mail：

悄悄話：

否是 (若未登入"個人新聞台帳號"則看不到回覆唷!)

回應內容：

* 請輸入識別碼：

請輸入圖片中算式的結果(可能為0)

(有*為必填)

快樂的一刻 勝過永恆的難過 地 平 線 ， 彩 虹 消 失 。 283愛的鼓勵 0訂閱站台

(VB)陣列

　　快樂的一刻　勝過永恆的難過　　　　　　　　地　　　　　　平　　　　　　線　　　　　　，　　　　　　彩　　　　　　虹　　　　　　消　　　　　　失　　　　　　。
283愛的鼓勵 0訂閱站台