编写一个过程,以整型数作为形参,当该参数为奇数时输出False,而当该参数为偶数时输出True。VB编程

2016-07-15 11:05:39  分类: VB程序设计教程第4版答案刘炳文  参与:

编写一个过程,以整型数作为形参,当该参数为奇数时输出False,而当该参数为偶数时输出True。

以下是此题的【VB源代码】
'先编写过程
Function NumOE(ByVal n As Integer) As Boolean
    If n Mod 2 Then
        NumOE = False
    Else
        NumOE = True
    End If
End Function

'再编写窗体代码,来调用过程
Private Sub form_click()
    Dim retnum As Boolean
    num = InputBox("请输入一个整数")
    num = Val(num)
    retnum = NumOE(num)
    If retnum = True Then
        a$ = "偶数"
    Else
        a$ = "奇数"
    End If

    Print retnum; " --- "; num; " 是一个"; a$
End Sub

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

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

本站文章搜索:

<< 上一篇下一篇 >>

搜索

Tags列表

扫我手机登录

赞助商链接