Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim a1 As Double
Dim b1 As Double
Dim c1 As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - ba1 = Val(Text4.Text)
b1 = Val(Text5.Text)
c1 = a1 - b1x = (c + c1) / 2Text7.Text = Str(Round(x, 4))
End Sub
显出的是0.0095 四舍六入应该是0.0096
请问高手怎么处理??
Dim a As Double
Dim b As Double
Dim c As Double
Dim a1 As Double
Dim b1 As Double
Dim c1 As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - ba1 = Val(Text4.Text)
b1 = Val(Text5.Text)
c1 = a1 - b1x = (c + c1) / 2Text7.Text = Str(Round(x, 4))
End Sub
显出的是0.0095 四舍六入应该是0.0096
请问高手怎么处理??
解决方案 »
- 正则表达式,实现VB内的Split功能
- 判断SQL SERVER中数据库的类型?
- 通过 open file for output as #1这个方法新建或者修改一个文件,如何将该文件的编码转为utf8
- 为什么我的DATA控件不能访问ACCESS???一次30万*(1---72)的数据ACCESS能承受的了吗?
- 点对点传输问题
- 请问如何使一个text控件在获得焦点的同时选中其中的字符呢?
- 为何在inputbox输入框中出现乱码(在线等候答者有分)
- cool_fly(cool_fly) 麻烦你再给我发一下! 谢谢
- 在VB中建立的ACTIVEX DLL 中能不能再调用另一个用C编写的DLL???
- vb中如何将label中的动态数据存入到txt中
- 字符串替换的问题,出现乱码
- 关于播放asf影片的问题
a1=69.2875 b1=69.2777