ここから本文です

VBAの宿題を教えてください。

つぶまめちんさん

2011/11/2815:43:52

VBAの宿題を教えてください。

配列Ydata(単精度浮動小数点型)に初期設定として下記の数字を代入しておき、データの最小値(変数:Min、単精度浮動小数点型、初期設定として配列Ydataの一番初めの要素がはいる)を求めるプログラムを作成します(ForEach~Nextステートメント利用し、配列の要素が代入される変数はyとする)。ここで、配列Ydataにはすでに初期値として下記数値が代入されているものとします。

Ydata:0.3, 0.34, 1.22, 2.88, 3.1, 0.9

'変数の型宣言
Dim Min As Single ○
'平均を求める
For Each ○ As ○
If ○ Then
Min = ○
End If
Next

Label1.Text = Min



次の問題が

配列Data(整数型)に初期設定として下記の数字を代入しておき、データの平均(変数:Avg、単精度浮動小数点型、初期設定として0がはいる)を求めるプログラムを作成します(For~Nextステートメントを利用する)。ここで、配列Dataにはすでに初期値として下記数値が代入されているものとし、変数n(整数型)は配列の要素数として、プロパティを使って初期設定します。

配列Data:10, 9, 8, 7, 10, 9, 9, 8

'変数の型宣言
Dim Avg As Single ○
Dim i As Integer
Dim n As Integer ○
'平均を求める
For i = 0 To n - 1
Avg += ○
Next
Avg n ○ '←代入演算子を使いましょう
Label1.Text = Avg



の○の部分に入る言葉がわかりません わかる方がいましたらよろしくお願いします。

閲覧数:
339
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

ato********さん

2011/11/2816:43:24

VBAじゃなくてVBじゃないの?

ってVBの構文はよく知らないけどこんな感じじゃないの?

Dim Min As Single = 0.3

'平均を求める
For Each y as Single in Ydata
If y < Min Then
Min = y
End If
Next

一問目のみ
宿題は自分でやりましょう(^^;

この回答は投票によってベストアンサーに選ばれました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる