VB 代码请教

Val(Text1) * Val(Text2) * 0.00018  我想将Txte1的数和Txte2的数乘起来 再乘0.00018 希望最后得到进整数 算出来不管是83.0001- 83.9999 最后结果都是进整数84  应该怎么编辑最后的进整数VB代码 VB高手请加 925660952 学习

答案：
点击计算按钮，第四个文本框中显示你要的进位数
private sub 计算_click()
   text4.text=int(val(text1.text)*val(text2.text)* 0.00018)+1   '化成不大于原来数的整数后再加1
end sub

上一个：vb如何截取另一个程序的内容??
下一个：VB按键触发