UC知道VB 帮忙看下我这个代码哪里错了？
来源：百度知道 编辑：UC知道 时间：2024/06/17 13:37:59
Private Sub Command1_Click()
a = 1
x = 100
s = 1
a = Text1.Text
j = 20
If a >= x Then
x = x + 100
s = Val(s) + 1
Else
j = Val(s) * Val(j)
Text2.Text = j
End If
End Sub
哪里错了？
a货物的重量，每增加100斤，则价格增加20
我是按照这个思路编的代码，请问哪里出错了？
那能不能这样?
a=val(text1)
a = 1
x = 100
s = 1
a = Text1.Text
j = 20
If a >= x Then
x = x + 100
s = Val(s) + 1
Else
j = Val(s) * Val(j)
Text2.Text = j
End If
End Sub
哪里错了？
a货物的重量，每增加100斤，则价格增加20
我是按照这个思路编的代码，请问哪里出错了？
那能不能这样?
a=val(text1)
Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then Exit Sub
a = 20 '原始值
zj = 20 '每次增加
b = Text1.Text \ 100
Text2.Text = a + b * zj
End Sub
a 不能一下 =1 (整型)
一下又变成 Text1.Text (字符串)