查人人中国名人网澳大利亚衣服品牌大全:问个VB的问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 19:05:22
1.将下面的数学式写成VB表达式
ln4
2.判别一个4位数字数年号是否为闰年.
请求各位大哥帮忙!
ln4
2.判别一个4位数字数年号是否为闰年.
请求各位大哥帮忙!
1、Log(4)
2、
Function run(ByVal y As Integer) As Boolean
If y Mod 4 = 0 Then
If y Mod 100 = 0 Then
If y Mod 400 = 0 Then
run = True
Else
run = False
End If
Else
run = True
End If
Else
run = False
End If
End Function
1。???
2.假设在label上显示结果
设四位数为a
dim a as integer
If a Mod 4 = 0 And a Mod 100 <> 0 Then
Label.Caption = a & "年是闰年"
ElseIf a Mod 400 = 0 Then
Label.Caption = a & "年是闰年"
Else: Label.Caption = a & "年不是闰年"
End If