input_print.bp

编译原理课程设计用vb编写

Print "------最大、最小、平均值------"
Print "输入5个数：(1-100)";
max = 0
min = 100
ad = 0
For i = 1 To 5
2 Input n
    If n < 1 Or n > 100 Then
        Print n; "输入错误，重新输入"
        Goto 2
    End If
    If max < n Then max = n
    If min > n Then min = n
    ad = ad + n
Next
Print "最大值："; max; " 最小值："; min; "平均值："; ad / 5