二、 编写一个vb函数过程,用以判断一个数是奇数还是偶数.

moliqingcha_hyw 1年前 已收到1个回答 举报
赞

秋影芳踪 幼苗

共回答了20个问题采纳率：90% 举报

Private Function jo(ByVal n As Integer)
n = InputBox("请输入一个数字")
If n Mod 2 0 Then
MsgBox n & "是奇数"
Else
MsgBox n & "是偶数"
End If
End Function
Private Sub Form_click()
Call jo(n)
End Su

1年前

1
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.016 s. - webmaster@yulucn.com