如何在VB設計的計算程式裡輸入未知數的計算而程式不會壞掉

Question

我是個VB初學者.或許我問的問題對高手來說很簡單.但還是請高手解答謝謝
就是在一個VB設計的程式裡面.設計一個簡單的加減乘除的計算程式
我的程式碼設計如下:
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
x = InputBox("輸入X值", "輸入兩數")
y = InputBox("輸入y值", "輸入兩數")
Print x; " "; y; " = "; (x y)
Print x; "-"; y; " = "; (x - y)
Print x; "*"; y; " = "; (x * y)
Print x; "/"; y; " = "; (x / y)
Print x; "/"; y; " = "; Int(x / y)

End Sub

目前可以做到x(任一數字) y(任一數字)的加減乘除以及如有小數點的話自動取到整數的計算
例如:x=5.y=9.則x y=14.x-y=-4.x*y=45.x/y=0.5循環.x/y(取整數)=0
以上是數字的計算
若假如x及y是未知數的話(例如x=a.y=b).上面我寫的程式碼要如何改才會讓這個未知數的計算也行得通(當然.改了之後.數字的計算也一樣可以做)?

希望能盡快的回答 謝謝

那國字也要加上去嗎?
可以直接套在我的程式碼上嗎@@"
這樣我要複製比較好用 謝謝哩

Answer 1

if IsNumeric(x)=False or IsNumeric(x)=Flase then'如果輸入的X或Y不是數字的話
未知數相加的程式段
else
數字相加的程式段
End if

Answer 2

不懂你的意思!!
x,y原本也是未知數,只是後來才指定的;你應該是原來就有資料,欲將之設定給x,y,再做出結果吧!
在程式前面加入
(讀取a.b資料)
x=a
y=b
(你原本的程式)

Answer 3

你是說要顯示出x*y=a*b嗎?