怎么在vb中输出固定小数位数的数字？

方法一：

用Round函数，语法 ：

ROUND(number,num_digits)

Number 需要进行四舍五入的数字。 Num_digits 指定的位数,按此位数进行四舍五入。

示例：

'Round(需要修改的数字,小数位数)

Print Round(31415926, 3)

显示：3142

方法二：

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

语法

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

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

示例：

'Round(需要修改的数字,小数位数)

Print format (31415926, "#,###")

显示：3142

方法三：

1、打开VB60软件，新建一个标准exe工程；

2、在设计界面上新建一个Command控件；

3、双击Command1控件，进入代码编辑界面，输入代码：

Private Sub Command1_Click()
Dim res As Double
res = Format(1 / 3, "0000")
Print res;
End Sub

4、运行工程，单击按钮，可以看到数据被保留三位小数；

5、总结，想要保留几位小数，直接设置即可，如想设置保留5位小数，设置如下：

format(1/3,"000000")

用这样的语句：
dim k,m(3) as integer 'K为一个三位数'
dim i as integer=0
while i<3
m(i)=k mod 10
k=(k-(k mod 10))/10
i=i+1

end while
m(i)就可以表示个位百位十位了
然后用窗体输出就可以了
试一下吧

啊！漏了一句(MSGBOX NUMB)，补上！
DIM NumA$,NumB%
NUMA=StrReverse(Inputbox("请输入三位的数字："))
IF NOT IsNumeric(NUMA) THEN
MSGBOX "您输入不是数字"
ELSE
NUMB=VAL(NUMA)
MSGBOX NUMB
ENDIF
PS:cwa9958你不懂瞎叽叽

VB里用InputBox
函数输入数值后，可通过直接赋值给TextBox控件的Text属性显示于TextBox控件、MsgBox函数也可作为输出显示，也可用Print方法打印到窗体或框控件输出显示。
InputBox
函数，在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的
String。
MsgBox
函数，在对话框中显示消息，等待用户单击按钮，并返回一个
Integer
告诉用户单击哪一个按钮。
Print
方法，在
Immediate
窗口、窗体或框中显示文本。

Private Sub Command1_Click()
Dim i, j, k As Long
j = Len(Text1Text): k = 0
For i = 1 To j
If IsNumeric(Mid(Text1Text, i, 1)) Then k = k + 1
Next i
MsgBox "文本框中共有" & CStr(k) & "个字符是数字！"
End Sub

输入的是两个变量，vi和vj（要注意的是vi和vj中的i与j只是字母，是不变的vi是一个整体就相当于v，vj也是一个整体相当于w。不要和变量i
搞混掉。）
输出的是循环结束后的i和sumi。
具体如下：
输入vi：就是输入的最大的数的范围，比如我们要求1到100内的奇数的和，那么vi就是100。
输入vj：就是所求范围内奇数的和不超过这个范围中的一个数，比如vi是100的话，那么vj你只能取100内数，如50。
输出i：就是参与计算的奇数个数。
输出sumi，就是所有满足条件的奇数的和。
整个程序实现这样一个功能：
从1到vi这么多个奇数之中，特取其中一个数vj，使他们的和不超过vj，这样的奇数有多少个（i个），这些奇数的和是多少（sumi）。

VB内置的常用函数里就有这个功能
mid函数:比如你在text1中输入的三位数是123
a=text1text
text2text=mid(a,1,2)
这时输出的字符是1和2,含义是从第一个字符开始的前两个字符,再比如是mid(a,1,3)意思就是从第一个开始的前三个字符,要实现你要求的功能就是text2text=mid(a,1,1)+" "+mid(a,2,1)+" "+mid(a,3,1)

Private Sub Command1_Click()
Dim a(1 To 30)
Dim c(0 To 9)
Dim i As Integer

Picture1Cls
For i = 1 To 30
a(i) = Mid(Text1Text, i, 1)
Next i
For i = 0 To 9
c(i) = 0
Next i
CountN a, c
For i = 0 To 9
Picture1Print "数字" & i & "：" & c(i) & "次"
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
Command1Caption = "统计"
Randomize Timer
Text1Text = ""
For i = 1 To 30
Text1Text = Text1Text & Int(Rnd() 10)
Next i
End Sub
Sub CountN(a(), count())
Dim i As Integer
For i = LBound(a) To UBound(a)
count(Val(a(i))) = count(Val(a(i))) + 1
Next i
End Sub

---