コード: 全て選択
Declare Function sprintf CDECL Lib "crtdll" (str As *Char,format As *Char,...) As Long
#prompt
Dim a As String,b As Double
a=ZeroString(255)
Input b
sprintf(a,"%.2f",b)
Print a
Cランタイムの関数を呼び出すことで実数の操作ができるようにしました。
※リテラル値を直接指定する場合、Double型にキャストしないとうまく動作しません。
(例)
コード: 全て選択
sprintf(a,"%f",1.23 As Double)