请问如何设置一个单精度浮点数的格式呢

hnyhny

这是我编写的一个程序

Sub Macro3()
'
' Macro3 Macro
' ºêÔÚ 2006-6-20 ÓÉ hmy ¼ÖÆ
'   DIM a as single
    Dim b As Single
    Dim c As Single
    Dim d As Single
    Dim e As Single
    a = InputBox("a", "")
    b = InputBox("b", "")
    c = InputBox("c", "")
    d = InputBox("d", "")
    e = Round(a / b + c / d, 2)
    Selection.TypeText Text:="e" & "="
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False  'ʹÓÃÓò
    Selection.TypeText Text:="eq \f(a,b)+\f(c,d)"
    Selection.Fields.ToggleShowCodes  'Çл»Óò
    Selection.MoveRight Unit:=wdCharacter, Count:=2 'ʹÓÃÓÒ¹â±ê£¬Òƶ¯Á½¸ö×Ö·û
    Selection.TypeParagraph '»Ø³µ
    Selection.TypeText Text:=" ="
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="eq \f(" & a & "," & b & ")+\f(" & c & "," & d & ")"
    Selection.Fields.ToggleShowCodes
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.TypeParagraph '»Ø³µ
    Selection.TypeText Text:=" =" & " " & e & ""
   
End Sub

目的是求两个分数的和，有两个问题想请教大家：如果e算出来的值小于1的时候，显示出来的e值整数部分就没有了，例如，本来为0.06，结果电脑上显示成了.06，我不知道如何设置格式，可以使其能0.06的方式显示。还有一个问题是，我把程序中的几个变量定义成字符串格式，程序照样能运行，并且还正确，为什么呢，字符串格式和单精度浮点数格式应该多少有些差异吧

谢谢大家

konggs

用format函数试试。是有差异。当他们是数字是可能是通的。

这个，你最好用isnumber函数测一下，否则，如果输入的不是数字，则会出错的。

hnyhny

谢谢指导，不过我尝试过format函数，但是我不大会用，我查了些书籍，这个函数的意思，大概是这样说的，我把它剪切下来：

返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。

语法

Format(expression[, format[, firstdayofweek[, firstweekofyear]]])

Format 函数的语法具有下面几个部分：

部分	说明
expression	必要参数。任何有效的表达式。
format	可选参数。有效的命名表达式或用户自定义格式表达式。
firstdayofweek	可选参数。常数，表示一星期的第一天。
firstweekofyear	可选参数。常数，表示一年的第一周 我觉得这个函数好像是面向星期日之类的，我还是不知道怎么用 加入我把一个变量e设置为“＃.00”这种格式，我改怎样写这个语句呢

守柔

设置一下WINDOWS/设置/时区中的数字格式。

由于我是英文版Windows，你可以看一下。