最終課題のプログラムのヒント

フォームを作成後に、以下のプログラム文を参照にして、「？」の部分を、適切な変数名や式を入れてください。以下はあくまでサンプルです。

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim k, v0, ?, ?, ?, ? As Double

v0 = ?

k = Val(TextBox2.Text)

r = k / 180 * 3.141592

g = 9.81

t0 = 2 * v0 * Math.Sin(r) / g

x = v0 * Math.Cos(r) * ?

TextBox3.Text = ?

Dim gr As Graphics = PictureBox1.CreateGraphics()

Dim xz, yz As Integer

For t = 0 To t0 Step ??

x = v0 * Math.Cos(r) * t

y = v0 * Math.Sin(r) * t - 0.5 * g * t * t

xz = x

yz = ?

gr.DrawEllipse(Pens.Red, xz, yz, 1, 1)

Next t

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

??

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

??

End Sub

End Class

---

戻る