• ベストアンサー

初歩的な質問

初歩的な質問です VBで記述した場合に C言語ではどうしたらよいでしょうか Dim num As Double num = 100 / 3 Debug.Print num   33.3333333333333 と表示させたいのです

質問者が選んだベストアンサー

  • ベストアンサー
  • Oh-Orange
  • ベストアンサー率63% (854/1345)
回答No.2

★解説付き?の回答 // C言語での記述 double num; ←Dim num As Double num = 100 / 3; ←num = 100 / 3 fprintf( stderr, "%.16f", num ); ←Debug.Print num // 結果表示 33.3333333333333 と表示されるかもね。 以上。

その他の回答 (1)

  • furyfox
  • ベストアンサー率56% (58/103)
回答No.1

#include <stdio.h> int main(){ double num; num = 100.0 / 3.0; printf("%.13f",num); return 0; } printf("%.13f",num);小数部13桁を表示するという意味です。

関連するQ&A

  • EXCEL VBAで初歩の質問ですが。

    初歩的な質問ですが教えて下さい。 Dim B As Single と Dim B As Double 。 SingleとDoubleの使い分けを教えて下さい。 どういう場合にどちらを使うかわかりません。 すいませんが、お願い致します。

  • VB2005で掛け算の結果がおかしい

    VB2005を利用しています。 例えば以下のように記述すると、 Dim a As Double = 2.3 Dim b As Double = 27000 Dim c As Double c = a * b cに62099.999999999993という 値が入ります。 a=2.1だと c=56700.0 a=2.2だと c=59400.000000000007 となります。 本当はa=2.3の場合には62100.0となって欲しいのですが。 何がおかしいのでしょうか?

  • VBに詳しい方に質問です

    VBではdouble型等の型を持つ関数は宣言できるのでしょうか? C#だちできると思うのですが・・・。 また、VBでも Dim hoge as doubleなど、変数ならできると思うのですが・・。 ご存知の方、お願いします。

  • postgreSQLとVB2005接続でのデータ取得方法

    postgreSQL8.2.3(linux)とVB2005 expressを接続しようとしているのですがエラーが表示されうまくデータを取得できず困っております。どのようにVBをプログラムすればよいのか教えていただけるとうれしいです。。。。 現在のVBにいれているプログラムですが Dim strConnect As String Dim adoConnection As Object Dim ans As Object strConnect = "DSN=*****; UID=*****; PWD=*****" adoConnection = CreateObject("ADODB.Connection") adoConnection.Open(strConnect) ans=adoConnection.execute("select name from table;") Do While Not ans.EOF Debug.Print(ans.fields("name")) ans.MoveNext() 実行するとdebug.print実行時にエラー表示され 型 'Field' から型 'String' への変換は無効です。 となります。postgresはpgadminにて接続動作確認できています。 ご回答のほどよろしくお願いします。

  • OutlookVBAは他のVBAと違って入力支援は無いのですか?

    Outlook2003を使っています。 たとえば、 Public Sub AllMaildisp() Dim mlitem As NameSpace Dim fd As MAPIFolder Dim cnt As Long Set mlitem = GetNamespace("MAPI") ' 対象メールボックス Set fd = mlitem.Folders("電子メール").Folders("受信トレイ") For cnt = 1 To 3 'For cnt = 1 To fd.Items.Count Debug.Print fd.Items(cnt).Subject Debug.Print fd.Items(cnt).Body Debug.Print fd.Items(cnt).ReceivedByName Debug.Print fd.Items(cnt).ReceivedTime Debug.Print fd.Items(cnt).To Debug.Print fd.Items(cnt).CC Debug.Print fd.Items(cnt).BCC Next cnt End Sub のときにfd.Items(cnt). と入力したら、ExcelのVBAとかだとその次のプロパティの候補が表示されると思いますが表示されません。 この場合 既に書いてありますが、CC とか BCC とか Toとかだと思います。 表示する方法はありますか?

  • Debug.Writeで困っています(VB2008)

    お世話になります。 VB2008ExpressEditionの勉強を始めました。 本を読みながら進めているのですが、 Debug.Write "テスト" でイミディエイトウインドウに"テスト"と表示されるはずですが なにも表示されません。実際のテストコードは以下です。 Private Sub BUTTON1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUTTON1.Click  Debug.Write("テストWrite")  Debug.Write("")  Debug.Print("Printテスト")  MessageBox.Show("テスト") End Sub メッセージボックスは表示されますが、イミディウィトウインドウにはなにも表示されません。何か特別な設定が必要なのでしょうか? OSはVista HomePremium(64bit)です。 初歩的な質問で恥ずかしいのですがよろしくお願いいたします。

  • vba 365日の日付を順番に取得したい

    イミディエイトウインドウに 2015/01/01 2015/01/02 2015/01/03 ・ ・ ・ 2015/12/31 まで表示させたいので Dim i As Integer For i = 1 To 365 Debug.Print (#1/1/2015#) Next のような雛形を作りました。 この状態で実行すれば 365個の2015/01/01 が表示されてしまうので Debug.Print (#1/"& i &"/2015#) にしたのですが 構文エラーになってしまいます。 2015/01/01 2015/01/02 2015/01/03 ・ ・ ・ 2015/12/31 を取得するにはどのようなコードを書けばいいのでしょうか?

  • phpにてforeachで配列の値が取り出せない

    以下のコードで「print $value」が空っぽなのですが なにが間違っているのかがわかりません。 ---------------------- $a=1 $b=2 $c=3 $d=4 $num = array($a,$b,$c,$d); foreach($num as $value){ print $value; } ---------------------- 初歩的な質問で恐れ入りますが 間違っている箇所があれば指摘いただきたいです。 宜しくお願いします。

    • ベストアンサー
    • PHP
  • 変数を続けて宣言した場合はEmpty型になる?

    Sub test1() Dim Int1, Int2 As Long Debug.Print "---------- test1の実行結果 ----------" Debug.Print TypeName(Int1) Debug.Print TypeName(Int2) End Sub Sub test2() Dim Int1 As Long Dim Int2 As Long Debug.Print "---------- test2の実行結果 ----------" Debug.Print TypeName(Int1) Debug.Print TypeName(Int2) End Sub を実行すると、 ---------- test1の実行結果 ---------- Empty Long ---------- test2の実行結果 ---------- Long Long の結果が得られます。 test1のInt1がEmpty型になりますが、変数の型にEmptyはないですよね? どういうことなのでしょう???

  • vb2005でUDP受信時にフォームが表示されない

    はじめまして VB2005でUDPのメッセージを受信してForm上のLabelに受信内容を表示させるサンプルプログラムを作成したのですが、「デバック開始」をクリックしてもFormのウィンドウ自体が表示されません。 イミディエイトにdebug.printで受信データは表示されていますのでプログラム自体は正常に動作しているようです。 どなたかアドバイスをいただけませんでしょうか。 Public Class Form1 Dim localport As Integer = 1111 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load '文字コードを指定する Dim enc As System.Text.Encoding = System.Text.Encoding.UTF8 ' バインド Dim udp As New System.Net.Sockets.UdpClient(localport) ' 受信 Dim remoteEP As System.Net.IPEndPoint = Nothing Debug.Print("受信開始") Do My.Application.DoEvents() Dim rcvBytes As Byte() = udp.Receive(remoteEP) Dim rcvMsg As String = enc.GetString(rcvBytes) My.Application.DoEvents() Debug.Print("受信メッセージ:" & rcvMsg) Label1.Text = rcvMsg Loop End Sub End Class

専門家に質問してみよう