|
皆さん,こんにちは。
以下のプログラムで,x,y,zの値をメッセージボックスで表示しているのですが,それをiの値も含めて,一気にテキストファイルに書き込みたいのです。私には全く分かりません。
私は,"できる大辞典"を片手にプログラムを作成している初心者です。
"できる大辞典"には載っていないようで,ネットを探していたら,ここにたどり着きました。宜しくお願い致します。
・
・
・
ReDim min(n)
For i = 1 To n
min(i) = errorsum(i, 0, 0, 0)
For j = 0 To 18
For k = 0 To 18
For l = 0 To 127
If errorsum(i, j, k, l) < min(i) Then
min(i) = errorsum(i, j, k, l)
x = 1.89 * j
y = 1.89 * k
z = 2 * l
End If
Next l
Next k
Next j
MsgBox "Data count & (x,y,z)=" & vbCrLf & i & vbCrLf & x & vbCrLf & y & vbCrLf & z
'MsgBox "min= " & min(i)
Next i
End Sub
|
|