vb如何让数字只要有小数位就进一变为整数如0.1转换为1；0.8也是转换为1

Question

vb如何让数字只要有小数位就进一变为整数
如0.1转换为1；0.8也是转换为1

Answer 1

添加一个command1 一个text1Private Sub Command1_Click()
a = InStr(Text1.Text,".") '计算“.”在text1中的位置
If a 0 Then '如果存在小数点
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