練習用　ランダムアクセスプログラム例

プログラム例

Dim rnddata As Integer '乱数フラグ
Dim nagasa As Integer 'Len関数専用
Dim i As Integer 'ループ用フラグ
Dim data(1 To 10) As Integer
Dim flag As Integer

Private Sub Command1_Click()

Randomize '同じパターンの乱数を防ぐ
i = 0

For i = 1 To 10

rnddata = Int(Rnd * 10 + 1) '1以上10以下の乱数を発生
data(i) = rnddata
flag = data(i)
Form1.Print i & " " & rnddata

Next i
'以下の場所に書き込む
Open "c:\My Documents\random.dt" For Random As #1 Len = Len(nagasa)

Put #1, i, rnddata

Close #1

End Sub

Private Sub Command2_Click()

Dim length As Integer
Dim file As Integer

If Text1.Text = "" Then

MsgBox ("お前はもう死んでいる")
Exit Sub

End If

Open "c:\My Documents\random.dt" For Random As #1 Len = Len(nagasa)

Get #1, Text1.Text, rnddata

length = 0
file = 0
length = Len(nagasa)
file = LOF(1)


MsgBox ("あなたの指定した数値" & Text1.Text & "の対応する値は" & flag & "です。")
MsgBox ("レコードサイズは、" & length & vbCrLf & "ファイルサイズは、" & file & vbCrLf & "レコード件数は、" & file / length & "です。")


Close #1


End Sub

'終了
Private Sub Command3_Click()

End

End Sub
'クリア
Private Sub Command4_Click()

Form1.Cls
Text1.Text = ""

End Sub