質問: 以下は、半径を入力しボタンを押すと、 円の面積が表示されるプログラムです。 答えが小数点以下第5位まで表示させる為には、 ****** の部分をどのように変更したら よいでしょうか?
回答: こんにちは。 コードを、エクセルvbaで実行すると、 Private Sub UserForm_Initialize() Me.Label1.Caption = "人数を入力してください。" Me.TextBox1.Text = "" Me.Label2.Caption = "cm の" Me.Label3.Caption = "円の面積は、" Me.TextBox2.Text = "" Me.Label4.Caption = "cm^2 です。" End Sub Private Sub CommandButton1_Click() Dim r, s, pi As Double r = Val(Me.TextBox1.Text) pi = 3.1415926535 'Math.pi s = r * r * pi Me.TextBox2.Text = Format(s, "0.00000") End Sub こんなかんじになります。 小数点5けた、という場合、excelvbaはformat関数で対応するのですが、 教科書には、どうなっていますか?? で、別の確認ですが、 Dim r, s, pi As Double は Dim r As Double Dim s As Double Dim pi As Double としないと、Doubleになりません。 最初のrとsは、variantになります。 確認してください