早教吧 育儿知识 作业答案 考试题库 百科 知识分享

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

题目详情
vb如何让数字只要有小数位就进一变为整数
如0.1转换为1;0.8也是转换为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