编写求3个数中最大值的过程Max和最小值的过程Min,然后用这两个过程分别求3个数和5个数、7个数中的最大值和最小值。

在窗体模块或标准模块中编写如下两个通用过程。

'求3个数中最大值的过程
Function max(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)
    If a > b Then
        m = a
    Else
        m = b
    End If
    If m > c Then
    max = m
Else
    max = c
End If
End Function

'求3个数中最小值的过程
Function min(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)

    If a < b Then
        m = a
    Else
        m = b
    End If
    If m < c Then
        min = m
    Else
        min = c
    End If
End Function


********************************************
然后在窗体的Click事件建立代码来调用以上两个过程。

Private Sub Form_Click()

    '求3个数中的最大值、最小值
    Print
    Print "3个数34、124、68的最大值是:"; max(34, 124, 68)
    Print "3个数34、124、68的最小值是:"; min(34, 124, 68)

    '求5个数中的最大值、最小值
    Print
    Print "5个数34、124、68、73、352的最大值是:";
    max1 = max(34, 124, 68)
    max1 = max(max1, 73, 352)
    Print max1

    Print "5个数34、124、68、73、352的最小值是:";
    min1 = min(34, 124, 68)
    min1 = min(min1, 73, 352)
    Print min1

    '求7个数中的最大值、最小值
    Print
    Print "7个数34、124、68、73、352、493、25的最大值是:";
    max1 = max(34, 124, 68)
    max1 = max(max1, 73, 352)
    max1 = max(max1, 493, 25)
    Print max1

    Print "7个数34、124、68、73、352、493、25的最小值是:";
    min1 = min(34, 124, 68)
    min1 = min(min1, 73, 352)
    min1 = min(min1, 493, 25)
    Print min1

End Sub

运行此VB源码后,点击窗体,结果情况如下图所示:


visual basic程序设计教程第四版答案 刘炳文 编著

来源:visual basic程序设计教程第四版答案(刘炳文)

本文链接:http://www.wb98.com/vb1/post/vb_9.1.html

本站文章搜索:

<< 上一篇下一篇 >>

搜索

Tags列表

扫我手机登录

赞助商链接