ここから本文です

以下は、半径を入力しボタンを押すと、 円の面積が表示されるプログラムです。 ...

ahx********さん

2020/7/316:26:27

以下は、半径を入力しボタンを押すと、
円の面積が表示されるプログラムです。

答えが小数点以下第5位まで表示させる為には、
****** の部分をどのように変更したら
よいでしょうか?

また、その意味を答えなさい。
教科書 p.74を読むように。


Private Sub Form1_Load()
Label1.Text = "人数を入力してください。"
Textbox1.Text = ""
Label2.Text = "cm の"
Label3.Text = "円の面積は、"
Textbox2.Text = ""
Label4.Text = "cm^2 です。"
End Sub

Private Sub Button1_Click()

Dim r, s, pi As Double

r = Val(Textbox1.Text)
pi = Math.PI

s = r * r * pi

Textbox2.Text = ******

End sub

全然わかりません、よろしくお願いします!

閲覧数:
65
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

por********さん

2020/7/513:05:12

こんにちは。
コードを、エクセル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になります。

確認してください

  • 質問者

    ahx********さん

    2020/7/803:22:18

    Visual Basicについてなのですが、元の質問文しか入力されていない状態です。
    その他のことについては何も書かれていなくてかなり困っている状態です。

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる