新手初学VB，有问题

来源：百度知道 编辑：UC知道 时间：2024/06/30 11:23:40
Private Sub Command2_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If A < 0 Then A = Abs(A)
If B < 0 Then B = Abs(B)
If C < 0 Then C = Abs(C)
V = A * B * C
Label7.Caption = Str$(S)
End Sub

Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If A < 0 Then A = Abs(A)
If B < 0 Then B = Abs(B)
If C < 0 Then C = Abs(C)
S = A * B + B * C + B * A + B * C + A * C + A * C
Label6.Caption = Str$(S)
End Sub

Private Sub Form_Load()

End Sub

这是关于长方体的计算。S=这部分没有问题，但是V=的时候VB就变得不会乘法了，怎么算都成0。这是怎么回事？？？？？？？？（正确公式是V=A*B*C，我也是这么打的）

请各位高手看看

Private Sub Command2_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If A < 0 Then A = Abs(A)
If B < 0 Then B = Abs(B)
If C < 0 Then C = Abs(C)
V = A * B * C
Label7.Caption = Str$(S) "这里没有S,应该是V"
End Sub

改成
Private Sub Command2_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If A < 0 Then A = Abs(A)
If B < 0 Then B = Abs(B)
If C < 0 Then C = Abs(C)
V = A * B * C
Label7.Caption = Str$(V)
End Sub
就可以了……

...
V = A * B * C
Label7.Caption = Str$(S)
???
哪有S呀？
应该为：
Label7.Caption = Str$(V)

Dim a,b,c,s,v

Private Sub Command2_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
if isnumeric(a & b & c) then
A = Abs(A) : B = Abs(B) : C = Abs(C)
V = A * B * C
Label7.Caption = Str$(V) '这儿打