用VB使用子程序过程计算三数之平均数和最大值

用VB使用子程序过程计算三数之平均数和最大值

Sub jisuan()
        Dim a, b, c, max As Integer
        Dim avg As Double
        max = 0
        a = InputBox("请输入第一个数字")
        b = InputBox("请输入第二个数字")
        c = InputBox("请输入第三个数字")
        avg = (a + b + c) / 3
        If a > max Then
            max = a
        End If
        If b > max Then
            max = b
        End If
        If c > max Then
            max = c
        End If
        MsgBox("平均值是 " & avg & " 最大值是 " & max)
    End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！