易截截图软件、单文件、免安装、纯绿色、仅160KB

VB 乘法 与 加法问题

我学过C C++ Java 等语言, 他们用加法 很简单, 
现在看了看 VB, 写了一个简单的程序, 可是
overTimes * 1.5 * wage + wage * hourse 这行报错,是表达式错误。 我不太清楚问题在哪里,请教一下大家。谢谢
VB.NET code:


Public Class calculator

Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click
Me.Close()
End Sub

Private Sub ButtonCalculator_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalculator.Click
Dim wage As Double
Dim result As Double
Dim hourse As Double

hourse = Val(TBHourse.Text)
wage = Val(TBWage.Text)

If hourse < 40 Then

result = wage * hourse
Else
Dim overTimes As Double
overTimes = hourse - 40
[color=#FF0000]overTimes * 1.5 * wage + wage * hourse[/color]
End If
LBresult.Text = TBName.Text & " is :" & result

End Sub
End Class




overTimes * 1.5 * wage + wage * hourse 
VB的代码按LZ这么写必然报错
解决方法:
1)在前加'注释掉
VB code:
'overTimes * 1.5 * wage + wage * hourse

2)按要求写成等式,这须按


相关问答:

vb中如何实现对象属性的动态设置 - VB / 基础类

本人使用的是VB6.0版本
假设有一个对象A,A内有类型为B的对象属性。现在的问题是,需要添加若干个B对象作为A对象的属性。如,
 A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......

请教!用的是VB 6.0 - VB / 控件

把已有数据(数据大于20行)的RS(recordset)的第10行数据与第11行数据做加法后,删除第11行的数据,然后把后面的数据向前移。
RS的话修改数据是会更新数据库,现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......

vb读取用word转换成的xml里的数据 - VB / 基础类

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' 读入所有字符到变量中 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号