编写VB程序，从键盘上输入三个整数，输出绝对值最小的数

Question

如题所述

Answer 1

Private Sub Command1_Click()
a = Abs(InputBox("请输入第一个整数", "输入数据"))
b = Abs(InputBox("请输入第二个整数", "输入数据"))
c = Abs(InputBox("请输入第三个整数", "输入数据"))
Min = a
If b < Min Then
Min = b
End If
If c < Min Then
Min = c
End If
Print Min
End Sub

Answer 2

s = InputBox("输入数据，以“|”分隔")
a = Split(s, "|")
m = a(LBound(a))
For i = LBound(a) To UBound(a)
If abs(Val(a(i))) < abs(Val(m)) Then m = a(i)
Next i
Print "最小数：" & m