Question

VB应用单选按钮设计一个计算四则运算的程序,要求用文本框输入计算数,由单选按钮选择

写出的代码如下，但是，在计算出负数的时候无法显示负数，例如，输入3-4，最后结果等于1。
请教高手怎么解决？在此代码基础上如何修改？
Private Sub Command8_Click()
x = Val(Text1.Text)
Y = Val(Text2.Text)
k = True
Select Case k
Case Option1.Value
i = x + Y
Case Option2.Value
If Y > x Then a = x: x = Y: Y = a
i = x - Y
Case Option3.Value
i = x * Y
Case Else
If Y > x Then a = x: x = Y: Y = a
i = x / Y
End Select
Label1.Caption = i
End Sub

Answer 1

Private Sub Command8_Click()
x = Val(Text1.Text)
Y = Val(Text2.Text)
k = True
Select Case k
Case Option1.Value
i = x + Y
Case Option2.Value
If Y > x Then a = x: x = Y: Y = a'此行代码功能是令大数减小数,去掉此行代码.
i = x - Y
Case Option3.Value
i = x * Y
Case Else
If Y > x Then a = x: x = Y: Y = aa'此行代码功能是令大数除以小数,去掉此行代码.

i = x / Y
End Select
Label1.Caption = i
End Sub

Answer 2

请问我按那个步骤弄下来 为什么结果出不来

Answer 3

'正确代码如下：
Private Sub Command1_Click()
x = Val(Text1.Text)
Y = Val(Text2.Text)
k = True
Select Case k
Case Option1.Value
i = x + Y
Case Option2.Value
i = x - Y
Case Option3.Value
i = x * Y
Case Else
i = x / Y
End Select
Label1.Caption = i
End Sub