VB6 我想把 用户输入的资料转换成 特定数目，求帮助！谢谢各位的帮忙！
比方：当用户输入的数字满足“30”时，就显示0.8当用户输入的数字为60时，就显示1.60也就是每30，就增加0.8，如果是126，当成120计算以此类推，请问这编程格式...
比方：当用户输入的数字满足 “30”时，就显示0.8
当用户输入的数字 为 60时，就显示1.60
也就是每30，就增加0.8，如果是126，当成120计算
以此类推，请问这编程格式是？
谢谢各位！ 展开
当用户输入的数字 为 60时，就显示1.60
也就是每30，就增加0.8，如果是126，当成120计算
以此类推，请问这编程格式是？
谢谢各位！ 展开
2个回答
展开全部
假设：用户输入框的名称为 Text0
而需要转换的特定数目存放在 Text2 文本框内
如果你不想让用户输入后看到转换结果，可以把 Text2 设置成不可见。
那么，可以在输入框 Text0 的【更新后】事件中添加如下代码：
' 由于VB默认不显示小数点前的0，所以格式化小数格式为"0.####"
Private Sub Text0_AfterUpdate()
a = Int(Text0 / 30) * 0.8
Text2 = IIf(a = 0, 0, Format(a, "0.####"))
End Sub
而需要转换的特定数目存放在 Text2 文本框内
如果你不想让用户输入后看到转换结果，可以把 Text2 设置成不可见。
那么，可以在输入框 Text0 的【更新后】事件中添加如下代码：
' 由于VB默认不显示小数点前的0，所以格式化小数格式为"0.####"
Private Sub Text0_AfterUpdate()
a = Int(Text0 / 30) * 0.8
Text2 = IIf(a = 0, 0, Format(a, "0.####"))
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
