Call Mida("2.1458", A, B, C)
创新互联从2013年创立，是专业互联网技术服务公司，拥有项目网站设计、成都做网站网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元龙华做网站,已为上家服务,为龙华各地企业和个人服务,联系电话:18980820575
msgbox(A)
msgbox(B)
msgbox(C)
Sub Mida(Myi As integer,ByRef A As Integer, ByRef B As Integer， ByRef C As Integer)
msgbox(myi)
A=2
B= 14
C = 58
End Sub
以上是过程，如果是在模块里就将Sub改用Function
应该定义为double或者single，string类好像不能进行运算。我简单说一下控制台的方法，你要一次性输入和差积商，首先声明两个变量用来储存两个数，然后用算法一次性输出结果就ok。
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
简单的输入有：
inputbox
textbox
简单的输出有：
textbox
label
debug.print
