作业帮 > 综合 > 作业

vb编写判断奇,偶数的函数过程.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/01 23:06:21
vb编写判断奇,偶数的函数过程.
从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中
在此创建一个文本框,按钮,标签 都是原先默认名不要改
Private Function a(c As Integer)
If c >= 0 And c Mod 2 = 0 Then
Label1.Caption = Text1.Text & "为偶数"
Else
Label1.Caption = Text1.Text & "不为偶数"
End If
End Function
Private Sub Command1_Click()
Dim b As Integer
b = Text1.Text
Call a(b)
End Su