こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBのプログラムの質問です。

VBのプログラムの質問です。
100点満点のテストで10人分の点数を一次元配列で読み込み、各人の偏差値を含めて表示するプログラムを作りなさい。 知恵袋で一度同じような質問をしましたが、似たようなエラーが出てきてしまうために
今一度力をお貸しください、

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Integer = CInt(TextBox3.Text)  ←ここ
Dim p(n) As Integer
'データの取得と平均計算
Dim s As Double = 0
For i As Integer = 0 To n - 1
p(i) = CInt(TextBox1.Lines(i))
s = s + p(i)
Next
Dim m As Double = s / n
'標準偏差の計算
Dim sx As Double = 0
For i As Integer = 0 To n - 1
sx = sx + (p(i) - m) ^ 2
Next
Dim sd As Double = (sx / n) ^ (1 / 2)
'偏差値の表示
For i As Integer = 0 To n - 1
Dim dv As Double = 50 + 10 * (p(i) - m) / sd
TextBox2.Text = TextBox2.Text & Format(dv, "##.#0") & vbCrLf
Next
End Sub

String "" から型 'Integer' への変換は無効です。
と Dim n As Integer = CInt(TextBox3.Text)からでてしまいます。
詳しい方よろしくお願いします

投稿日時 - 2010-01-20 22:00:09

QNo.5609214

困ってます

質問者が選んだベストアンサー

実行エラーですよね?
TextBox3.Textが空("")だからです
TextBox3.Textが数字かどうかチェックする必要があります

投稿日時 - 2010-01-20 23:47:38

お礼

ありがとうございます。些細なことでしたが、見落としていました

投稿日時 - 2010-01-23 01:09:14

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)