Question

问题在于我的代码底部，我必须让程序以相反的顺序背诵输入的值。我认为它可能与索引有关吗？

选项明确开启 Option Strict On

'作者：默里斯皮尔斯 '日期：2012年10月12日

'编写一个接受五个输入值并将它们存储到数组中的程序。 '然后以相反的顺序显示数字。 '然后显示平均数，以及所有高于平均数的数字。

导入系统

模块值

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

结束模块

Answer 1

使用Step -1向后退一步。

For Index = 4 To 0 Step -1
    ' do your thing
Next

Answer 2

Imo，最简单的方法就是像输入数字一样使用循环，但正如你自己写的那样，使索引反向运行。这就是“Step -1”的用途。

For Index As Integer = 4 To 0 Step -1 Console.Writeline(Number(Index)) Next

如何使用循环反向获取值

2 个答案: