vba - 単純な数値セットを使用した Visual Basic の Fill Array

Question

配列に 1 ～ 50 の数字を入力する必要があります。現在、コードは次のとおりです。

Dim numberSet(49)
For x = 1 To 50
numberSet(x - 1) = x
Next x

課題は、可能な限り少ない行数でそれを行うことです。この部分は私を悩ませています。基本的なものに 4 行を使用するべきではないように思われるからです。

皆さんからの考えはありますか？できることなら避けたい= {1,2,3,4,5...50}。ありがとう！

Answer 1

一行で：

Dim numberSet(49): For x = 1 To 50: numberSet(x - 1) = x: Next x