你的代码中有许多处错误:
1、变量类型不断变换。
x先是String类型:
x = Label2.Caption
If a < b Then x = ""
然后又变成Integer类型。
If a >= b Then x = a \ b
2、不可变的至赋给可变的值,同时也是把目标值赋给参数值:
x = Label2.Caption
y = Label3.Caption
z = Label4.Caption
b = z
If a < b Then a = y
3、目标没有被赋值。
根据你的代码估计,你可能是想要实现下面的目标:
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
If a < b Then x = 0
If a >= b Then x = a \ b
If a >= b Then y = a Mod b
z = b
If a < b Then y = a
Label2.Caption = x
Label3.Caption = y
Label4.Caption = z
End Sub
x = a \ b 应该是x=a/b