早教吧作业答案频道 -->数学-->
vb如何让数字只要有小数位就进一变为整数如0.1转换为1;0.8也是转换为1
题目详情
vb如何让数字只要有小数位就进一变为整数
如0.1转换为1;0.8也是转换为1
如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
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
看了 vb如何让数字只要有小数位就...的网友还看了以下:
跪求权重系数计算?怎么得来的数?安全管理难度系数得分为:M=(0.869,0.516,0.321)T 2020-03-31 …
经济学总需求函数如何推导没有思虑,希望能够得到指导(主要是思路).并假设一个经济中的消费函数是C= 2020-05-16 …
如图所示,一质量为M=5kg的斜面体放在水平地面上,斜面体与地面的动摩擦因数为μ1=0.5,斜面高 2020-05-17 …
如图所示电路,电源电压恒定,电流表A1的示数为3.0安,电流表A2的示数为1.0安,电压表V的示数 2020-06-12 …
在如图的电路中,R1=14.0欧,R2=9.0欧,当开关S扳到位置1时,电流表的示数为I1=0.2 2020-06-21 …
如图所示的电路,电源电压一定,R1=10欧,R2=30欧,当开关S1、S2都闭合时,电流表的示数为 2020-07-01 …
如图甲所示,可视为质点的A、B两物体置于一静止长纸带上,纸带左端与A间距为d1=0.5m,A与B间 2020-07-09 …
如图所示,两手水平用力地夹起一摞书而保持静止.手对书施加的水平压力F=225N,如每本书的质量均为 2020-07-16 …
在密闭容器中,co与水蒸气发生反应.该反应在800度下平衡常数为1,0,如果反应开始1,0mol/ 2020-07-16 …
请问阁下如何求得?我不是太懂.在标准情况下,11.2L二氧化硫,物质的量为0.5mol所以,其质量为 2020-12-25 …