如何用vb程序设计‘根据用户输入的一个带有小数点的实数，拆分显示该书的整数部分和小数部分’

Question

如题所述

Answer 1

dim num as long
'赋值num…… 省略
'判断输入是数字
dim 整数 as string
dim 小数 as string
if isnumeric(num) then
'把数字看成字符，以点为分割成一个数组
整数 = split(Cstr(num),".")(0)
小数 = split(Cstr(num),".")(1)
end if

方法二：数学运算方式
整数 = int(num)
小数 = num - int(num)

Answer 2

Private Sub Command1_Click()
On Error Resume Next
Dim mstr$
mstr = InputBox("input")
If Len(mstr) - Len(Replace(mstr, ".", "")) <> 1 Then MsgBox " 输入不合规范": Exit Sub
Print Split(mstr, ".")(0)
Print Split(mstr, ".")(1)
End Sub

Answer 3

a=inputbox("")
t=split(a,".")
print t(0)
print t(1)追问

能不能详细点？

追答

Private Sub Command2_Click()
a = InputBox("")
t = Split(a, ".")
Print "整数位为：" & t(0)
Print "小数位为：" & t(1)
End Sub

本回答被提问者采纳