学生のためのVisual Basic .NET

第1版2刷 正誤表
2006年3月現在

誤頁 該当箇所15 下8行

⑦プロパティウインドウにおいて，「Text」を変更す
る．

'計算結果をテキストボックスに代入
Labe7.Text = nkin
[計算]の Labe8.Text = rkinLabe6.Text = gokei
23 コード下5～2行 ←計算結果の変数nkin，rkin，gokeiの数値をラベルLabel6，Label7，Label8に代入し，表示できるようにする

25 表2.2

28 例

正⑦プロパティウインドウにおいて，ラベルの「Text」を上図のように変更する．
⑧「Label4」のテキストは空白とする．
'計算結果をラベルに代入
Label7.Text = nkinLabel8.Text = rkin
Label6.Text = gokei←計算結果の変数nkin，rkin，gokeiの数値をラベルLabel7，Label8，Label6に代入し，表示できるようにする

整数型

Integer

短整数型

Short

長整数型

Long整数型

Integer

通貨型

Currency

倍長整数型

Long

Format(2003.8, "00000.00)
Format(2003.8, "#####.##)
Format(2003.8, "##,##0.00)
Format(199.8, "\\##0.00)

例3-530,000,000円以上
設問内/表

Format(2003.8, "00000.00")
Format(2003.8, "#####.##")
Format(2003.8, "##,##0.00")
Format(199.8, "\\##0.00")
18,000,000円以上

例3-5
設問内
37 実行結果

下6行

変数などが式1に一致するときステートメント変数などが式1に一致するときに実行するステートメント

下4行

変数などが式nに一致するときステートメント変数などが式nに一致するときに実行するステートメント

下2行

変数などがどの式にも一致しないときステートメント変数などがどの式にも一致しないときに実行するステートメン
ト6≦n≧8のときに実行される

6≦n≦8のときに実行される変数の値と文字列とが表示される．

変数の値と文字列2とが表示される．

38 例5行40 下4行

242 6行[計算]

48 コード3行

x 1＝－b √b －4ac
2a

Dim gankin, kinri, nensu, ganri As Long

コード枠 ganri = gankin * (1 + kinri) ^ nensu

x 1＝－b ＋√b 2－4ac
2a

Dim gankin, nensu, ganri As Long
Dim kinri As Single

49 内3箇所

ganri = gankin * (1 + kinri / 100) ^ nensu

演習問題
50 問2 2行 0.2秒ごとに0.5秒ごとに

53

下5行

p1，p2，…と変数名を付ける代わりに下3～2行 a(1)，a(2)，…，p(1)，p(2)，…と表し，

58 図5.4

例題6-1

65 設問内実行結果

i=1 TO n-1

p0，p1，…と変数名を付ける代わりにa(0)，a(1)，…，p(0)，p(1)，…と表し，
i=0 TO n-1

誤頁 該当箇所

66 コード67
68

正【正】(1) サブルーチンプロシージャ
Private Sub keisan(ByVal x As Single, ByVal y As Single, ByVal z As Single)
Dim p, s As Single
If z < x + y And z > Math.Abs(x - y) Then
' 三角形成立の条件を判定する' 三角形の面積を計算する
p = (x + y + z) / 2
s = Math.Sqrt(p * (p - x) * (p - y) * (p - z))
Elses = 0
' 三角形が成立しないときには面積を０にする
End If' 計算結果を表示する
TextBox5.Text &= x & vbTab & y & vbTab & z & vbTab & Format(s, "##0.0") & vbCrLf
End Sub(2) 計算のプロシージャ
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim a, b, c, d As Single' データを入力する
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
d = Val(TextBox4.Text)' 見出しを表示する
TextBox5.Text &= "x" & vbTab & "y" & vbTab & "z" & vbTab & "s" & vbCrLf & vbCrLf' ４つのデータの組み合わせで、サブルーチンプロシージャを呼び面積を計算する
keisan(a, b, c)
keisan(b, c, d)keisan(a, c, d)keisan(a, b, d)
End Sub

8行

計算と表示を使って行う．

計算と表示を行う．

下11行

□引数

□仮引数

1行

式などを使うことがもできる．

式などを使うことができる．

図6.2

左向きの矢印を削除

コード(2) ByRefVal

ByRef

コード(2) Private Function y(ByVal x As Single)

Private Function y(ByVal x As Single) As Single

コード.Interval = 1.Interval = 1000

少数点以下1桁

小数点以下2桁x ＝v * cos(A ) * t

x ＝v cos(A ) t

69 1行
71 1行

81 下4行

例題8-3
設問3行

104 例題8-3
設問5行
例題8-3
設問6行

105 1，3行
111 6，7行
112 3行y ＝v * sin(A ) * t －

1
gt 2
2

y ＝v sin(A ) t －

1
gt 2
2

少数点以下1桁

小数点以下2桁

Dim mypen as Graphics = …

Dim grph as Graphics = …

DrawEllipsメソッドを使用する．

DrawEllipseメソッドを使用する．

128 ヒントx 座標をSin(3θ)，y 座標をSin(2θ)で計算する．

x 座標をsin 3θ，y 座標をsin 2θで計算する．

137 10行
142 9行

メニューの［開く］をダブルクリックして，メニューの［印刷］をダブルクリックして，

Dim i, rec, maxrec, s As Integer

Dim i, j, rec, maxrec, s As Integer

問4[登録]ボ

144 タンコード7行[開く]ボ
145 タンコー
ド下2行

Label7.Text = Str(rec) & "/" & Str(maxrec) Label6.Text = Str(rec) & "/" & Str(maxrec)

東京電機大学出版局