用VB，任意输入三个实数a,b,c(用inputbox实现输入)，求三个数中的最大数与最小数（用print语句实现输出）

Question

在1月15日之前解答，逾期作废，越详尽越好。

Answer 1

Private Sub Form_Click()
a = InputBox("输入第一个数")
b = InputBox("输入第二个数")
c = InputBox("输入第三个数")
If a > b And a > c Then Print a; b; c & vbCrLf & a; "是最大值"
If b > a And b > c Then Print a; b; c & vbCrLf & b; "是最大值"
If c > a And c > b Then Print a; b; c & vbCrLf & c; "是最大值"
If a < b And a < c Then Print a; "是最小值"
If b < a And b < c Then Print b; "是最小值"
If c < a And c < b Then Print c; "是最小值"
End Sub

简单点用IF判断就可以了

Answer 2

倒不如试试我这个，简单点。
Private Sub Command1_Click()
Dim n As Integer, Max As Integer, Min As Integer
Dim i As Integer
For i = 1 To 3
n = InputBox("输入第一个数")
If i = 1 Then Max = n: Min = n
If n > Max Then
Max = n
ElseIf n < Min Then
Min = n
End If
Next
Print "最大值为:"; Max, "最小值为:"; Min
End Sub

Answer 3

'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
    Dim a1, a2, a3, s1, s2 As Integer
    a1 = Val(InputBox("输入数字："))
    a2 = Val(InputBox("输入数字："))
    a3 = Val(InputBox("输入数字："))
    s1 = a1
    s2 = a1
    
    If a2 > s1 Then s1 = a2
    If a3 > s1 Then s1 = a3
    
    If a2 < s1 Then s2 = a2
    If a3 < s1 Then s2 = a3
    
    Print "最大数：" & s1
    Print "最小数：" & s2
End Sub

Answer 4

上面的是用if判断的方法 下面我说一个 使用通用求一组数最大值最小值函数的方法

Private Sub Command1_Click()
Dim a(2) As Single
For i = 0 To 2
a(i) = InputBox("请输入第" & i & "个数", "请输入")
Next
For i = 0 To 2
Print a(i) & " ";
Next
Print
Print "其中最大的数是:" & Max(a)
Print "其中最小的数是:" & Min(a)
End Sub

'Max最大值
Public Function Max(a() As Single) As Single
Dim i As Integer, p As Single
p = a(1)
For i = 2 To UBound(a)
If p < a(i) Then p = a(i)
Next i
Max = p
End Function

'最小值
Public Function Min(a() As Single) As Single
Dim i As Integer, p As Single
p = a(1)
For i = 2 To UBound(a)
If p > a(i) Then p = a(i)
Next i
Min = p
End Function