S・I 2011-10-25 13:07:16 |
通報 |
こゆこと
Dim a As Integer
a = Val(TextBox1.Text)
If RadioButton1.Checked = True Then
TextBox2.Text = Format(a * 2 * Math.PI, "#.###")
ElseIf RadioButton2.Checked = True Then
TextBox2.Text = Format(Math.PI * a ^ 2, "#.###")
ElseIf RadioButton3.Checked = True Then
TextBox2.Text = Format(4 * Math.PI * a ^ 2, "#.###")
ElseIf RadioButton4.Checked = True Then
TextBox2.Text = Format(4 / 3 * Math.PI * Math.Pow(a, 3), "#.###")
End If
End Sub
トピック検索 |