编写一个程序.

来源：百度知道 编辑：UC知道 时间：2024/06/11 14:31:45
编写一个程序.要求自己输入的年龄(INPUTBOX),并自己判断是否大于等于十八周岁,根据你点击的按钮(MSGBOX函数会出现【是】【否】）返回的值在图片框内显示“是否为完全行事能力人”这类的相关信息

添加按钮：Connamd1
添加图片框：Picture1

代码：
Private Sub Command1_Click()
Dim n As Long
Picture1.Cls
n = Val(InputBox("请输入年龄："))
If n >= 18 Then Picture1.Print "是完全行事能力人" Else Picture1.Print "不是完全行事能力人"
End Sub