vb三位数比大小输出小数

Question

如题所述

Answer 1

用中间变量储存最小的数，依次比较

Dim a,b,c As Integer '定义三个数
Dim x As Integer
x = Math.Min(x, a) '依次和临时变量x比较并将较小值赋给x
x = Math.Min(x, b)
x = Math.Min(x, c)
'输出x就行了，你没有说是控制台程序还是窗体程序，自己写吧。

VB6的话，自己写个Min函数调用，去掉上面代码中的Math.前缀

Function Min(x As Integer, y As Integer)
    If x <= y Then Return x Else Return y
End Function

纯手打，如满意，请采纳，谢谢。