問題は、入力された値を逆の順序で列挙するようにプログラムを取得する必要があるコードの下部にあります。インデックスと関係があると思いますか?
Option Explicit On Option Strict On
「著者: マレー スピアーズ」日付: 2012 年 10 月 12 日
'5 つの入力値を受け取り、それらを配列に格納するプログラムを作成します。'次に、数字を逆順に表示します。'次に、平均数と、平均を上回っているすべての数値を表示します。
輸入システム
モジュール値
Sub Main()
Dim Number(4) as Integer
Dim Average as Double = 0
Dim Index as integer
'
For Index = 0 to 4
Console.Write("Enter number: ")
Number(Index)=Convert.ToInt32(Console.Readline())
Next Index
'Figure out the average for all the entered values.
Average = (Number(0)+Number(1)+Number(2)+Number(3)+Number(4))/5
Console.Writeline("The average of the numbers is: " &Average)
Console.Write("Numbers that are greater than the average: ")
Index = 4
Do until Index = 0
If Number(Index) > Average then
Console.Writeline(Number(Index))
End If
Index -=1
Loop
Console.Writeline("Numbers in reverse order: ")
Index = 4
Do while Number(index) > 0
Console.Writeline(Number(Index))
Number(index) -= 1
Loop
End Sub
エンドモジュール