求VB答案

来源：百度知道 编辑：UC知道 时间：2024/05/13 00:52:13
已知变量H=123.455将H分解为整数，小数点小数，并分别赋给变量D.F.M(提示注意符号位)

注 : D是整数 F 是小数点 M 是小数
H = "123.555"
D = Int(H) 'D=分解出来的整数
F = Mid(H, InStr(1, H, "."), Len(H)) '小数点和小数点后面的
M = Mid(F, InStr(F, ".") + 1, 20) '读取小数点后面的小数
F = Left(F, 1) 'F第一位,也就是小数点
MsgBox D
MsgBox F
MsgBox M