vb如何让数字只要有小数位就进一变为整数
答案:4 悬赏:0 手机版
解决时间 2021-01-29 16:15
- 提问者网友：遮云壑
- 2021-01-29 03:52
如0.1转换为1；0.8也是转换为1
最佳答案
- 五星知识达人网友：雪起风沙痕
- 2021-01-29 05:19
添加5261一个command1 一个text1Private Sub Command1_Click()
a = InStr(Text1.Text, ".") '计算4102“.”在text1中的位置
If a <> 0 Then '如果存在小数1653点
If Val(Text1.Text - Left(Text1.Text, a)) <> 0 Then '小数点后不为0
Text1.Text = Int(Text1.Text) + 1 'int函数返回回不大于text1的最大整数答
End If
End If
End Sub
a = InStr(Text1.Text, ".") '计算4102“.”在text1中的位置
If a <> 0 Then '如果存在小数1653点
If Val(Text1.Text - Left(Text1.Text, a)) <> 0 Then '小数点后不为0
Text1.Text = Int(Text1.Text) + 1 'int函数返回回不大于text1的最大整数答
End If
End If
End Sub
全部回答
- 1楼网友：西岸风
- 2021-01-29 07:21
Private Sub Command1_Click()
n = InputBox("请输入一个小数", "输入")
Print Int(n) + 1
End Sub
- 2楼网友：轻熟杀无赦
- 2021-01-29 06:24
可用 format 函数，或 vb 新增的 formatnumber(可本地化)等函数。
- 3楼网友：骨子里都是戏
- 2021-01-29 05:39
Option ExplicitPrivate Sub Form_Activate()
Print fc(100)
Print fc(0.1)
Print fc(10.1)
Print fc(100.0001)
End SubFunction fc(n)
fc = IIf(InStr(CStr(n), ".") > 0, Int(n) + 1, n)
End Function
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯