練習用です。いろんなものがごちゃまぜです。
浮動小数点の課題～1.6を200回足しても320.0にならない
vb2010/vb2010/Form1.vb (diff)| @@ -1,3 +1,14 @@ | ||
| 1 | 1 | Public Class Form1 |
| 2 | - | |
| 2 | + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click | |
| 3 | + Dim data As Single = 1.6F | |
| 4 | + Dim wk As Single = 0.0F | |
| 5 | + For i As Integer = 1 To 200 | |
| 6 | + wk += data | |
| 7 | + Next | |
| 8 | + If wk <= 320.0F Then | |
| 9 | + MsgBox("320ドル予算内です：" & wk) | |
| 10 | + Else | |
| 11 | + MsgBox("320ドルを超過しました。:" & wk) | |
| 12 | + End If | |
| 13 | + End Sub | |
| 3 | 14 | End Class |
bellyoshi