変数

質問

Dim トータル As Integer

トータル = 200

Dim 変数１(トータル) As Integer
Dim 変数２(トータル) As Integer
Dim 変数３(トータル) As Integer
Dim 変数４(トータル) As Integer

※変数１～４に同じ数の変数（クローン？？）を用意したいのですがエラーがでます。
このような使い方は出来ないのでしょうか？

なお、VB上ではローマ字で使っています。

変数は６個ぐらいあり　毎回変えるのは面倒なので・・・
（スパイラルモデル方式？？といっても使うのは私自信ですが・・・）

回答No.3

kmor · ベストアンサー

訂正です。
最初のDim文で()が必要でした。

Dim トータル As Integer
Dim 変数１() As Integer
Dim 変数２() As Integer
Dim 変数３() As Integer
Dim 変数４() As Integer

トータル = 200

ReDim 変数１(トータル) As Integer
ReDim 変数２(トータル) As Integer
ReDim 変数３(トータル) As Integer
ReDim 変数４(トータル) As Integer

お礼

出来ました。

ご回答ありがとうございます。
しかし、別のエラーが出てきてしまったので新に質問を投稿させてもらいます。

回答No.2

MovingWalk

最初の部分を
　const トータル = 200
としてやってみてください。

VBの参考サイトです。ご活用下さい。
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_p02.htm

お礼

ご回答ありがとうございました。

回答No.1

kmor

ReDimを使うと出来ます。

Dim トータル As Integer
Dim 変数１ As Integer
Dim 変数２ As Integer
Dim 変数３ As Integer
Dim 変数４ As Integer

トータル = 200

ReDim 変数１(トータル) As Integer
ReDim 変数２(トータル) As Integer
ReDim 変数３(トータル) As Integer
ReDim 変数４(トータル) As Integer

これでできますよ。