■CHAOS-SWORD■

趣味のプログラム
我輩のスキル３ぐらいで（ナゾ

想像以上に見にくいなぁ編集が必要だ。。。

基本的に中級より手前のVB扱い者　推奨･･･

■変数配列に数値を代入

Private Sub cmdEnd_Click()
End
End Sub
---------------------------------------------------------------------------------
Private Sub cmdPrint_Click() '書き込みボタンを押すと

'******** ファイルへの出力 **********

Open "C:\TEST\Num.DAT" For Output As #1 'ファイルを開いて出力

For X = 0 To 9 '変数【X】をループさせる回数を指定
Print #1, HA(X) 'ループさせる回数分１レコードずつ書き込む
Next X '変数【X】でループから抜けて次の処理へ

Close #1 '書き込みが終了

End Sub '書き込み処理を抜けます
----------------------------------------------------------------------------------
Private Sub Form_Load() 'フォームロード時に

For I = 0 To 9 '変数【I】をループさせる回数を指定
HA(I) = 10 - I '配列のHA【I】に値を代入する処理
List1.AddItem "HA(" & I & ")=" & HA(I) 'リストボックスに配列【HA】を追加します
Next I '変数【I】でループを抜けて次の処理へ

End Sub 'フォームロードの処理を抜けます

----------------------------------------------------------------------------------
Option Explicit

Public HA(9) As Integer
Public I As Integer

モジュール処理です　↑

■構造体に数値を代入する

Option Explicit
'構造体【Grp】********************************************************************************************
Private Type Grp
No As Integer
Dat As Integer
Title As String * 10 '１０文字までの文字列を設定
End Type
'構造体【Grp】の宣言終わり********************************************************************************************

Private Sub Form_Load() 'フォームロード時に
Dim HA(9) As Grp
Dim X As Integer '【HA(X)】に使う変数（ループさせるの数値が最大配列数）
Dim Z As Integer '【No】に使う変数

For X = 0 To 9 '【0】から【9】回ループさせる
Z = 1 + X '変数【No】が最初は[0]じゃなく[1]からスタートするので、ここで数値を調整
HA(X).No = Z '【No】は変数【Z】と同じ値を代入
HA(X).Dat = Z ^ 2 '【Dat】の変数は【No】の２乗にする
HA(X).Title = "【タイトル" & X + 1 & "】" 'タイトルという文字列に【No】を表示
List1.AddItem "No=" & HA(X).No & " " & "二乗=" & HA(X).Dat & " " & HA(X).Title
Next X 'Forの条件が満たされると処理を抜ける
End Sub 'フォームロードの処理を抜ける

■たぶんまとまらないページ

ソースを参考にさせる説明も無く
ただ、詰め込んだけのプログラム

誰か突っ込むのを待ってマス･･･

ひとまず、簡単な対戦RPGみたいなのを
UPできたらなぁーと考えてます

いつになるやら。。。