应该定义为double或者single，string类好像不能进行运算。我简单说一下控制台的方法，你要一次性输入和差积商，首先声明两个变量用来储存两个数，然后用算法一次性输出结果就ok。
我们提供的服务有：成都做网站、成都网站制作、微信公众号开发、网站优化、网站认证、月湖ssl等。为上千多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的月湖网站制作公司
Sub Main()
Dim FN As Single
Dim SN As Single
Dim ResultNum As Single
Console.WriteLine("请输入第一个数") : FN = Console.ReadLine
Console.WriteLine("请输入第二个数") : SN = Console.ReadLine
ResultNum = FN + SN
Console.WriteLine("它们的和: " ResultNum)
ResultNum = FN - SN
Console.WriteLine("它们的差: " ResultNum)
ResultNum = FN * SN
Console.WriteLine("它们的积: " ResultNum)
ResultNum = FN / SN
Console.WriteLine("它们的商: " ResultNum)
Console.ReadLine()
End Sub
Public Class Form1
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Not IsNumeric(e.KeyChar) Then '判断是否为数字
e.Handled = True ‘如果不是数字，取消操作，不显示字符
End If
End Sub
End Class
这样就好啦
Private
Sub
Command1_Click()
Dim
a
As
Long,
b
As
Long,
c
As
Long
a
=
InputBox("请输入第1个数的值",
"提示")
b
=
InputBox("请输入第2个数的值",
"提示")
c
=
InputBox("请输入第3个数的值",
"提示")
d
=
IIf(IIf(a
b,
a,
b)
c,
IIf(a
b,
a,
b),
c)
x
=
IIf(IIf(a
b,
a,
b)
c,
IIf(a
b,
a,
b),
c)
z
=
a
+
b
+
c
-
d
-
x
Cls
a
"
,
"
b
"
,
"
c
"按从大到小排列为"
d
"
"
z
"
"
x
End
Sub
==============================
如果是VB.net
，可以用math类的MAX，MIN方法，呵