早教吧作业答案频道 -->数学-->
·在VB中如何写"设计一个解决给定一个四位数的年份,判断它是否为闰年”的算法
题目详情
·在VB中如何写"设计一个解决给定一个四位数的年份,判断它是否为闰年”的算法
▼优质解答
答案和解析
Dim f, d As Boolean
hf:
Y = InputBox("请输入一个四位数的年份:")
If IsNumeric(Y) Then
If Len(Y) = 4 Then
a = Y / 4
For i = 1 To Len(a)
s = Mid(a, i, 1)
If s = "." Then
f = True
Exit For
End If
Next i
z = Y / 100
For i = 1 To Len(z)
t = Mid(z, i, 1)
If t = "." Then
d = True
Exit For
End If
Next i
If f = True Or d = False Then
MsgBox "不是闰年"
Else
MsgBox "闰年"
End If
Else: GoTo gf
End If
Else: GoTo gf
End If
Exit Sub
gf:
MsgBox "格式不正确!请重新输入!"
GoTo hf
hf:
Y = InputBox("请输入一个四位数的年份:")
If IsNumeric(Y) Then
If Len(Y) = 4 Then
a = Y / 4
For i = 1 To Len(a)
s = Mid(a, i, 1)
If s = "." Then
f = True
Exit For
End If
Next i
z = Y / 100
For i = 1 To Len(z)
t = Mid(z, i, 1)
If t = "." Then
d = True
Exit For
End If
Next i
If f = True Or d = False Then
MsgBox "不是闰年"
Else
MsgBox "闰年"
End If
Else: GoTo gf
End If
Else: GoTo gf
End If
Exit Sub
gf:
MsgBox "格式不正确!请重新输入!"
GoTo hf
看了·在VB中如何写"设计一个解决...的网友还看了以下:
汉语的句意有些是不确定的,例如“商店关门了”可以理解为“商店下班了”“商店倒闭了”等.判断下面一句 2020-04-27 …
熔融状态下这么评判电解质?熔融状态下通电,Al2O3分解成Al和O2,那么它能导电不是因为AL单质 2020-05-14 …
人民法院调解、裁定、判决解除抵押的,________应当填写申请表,提交机动车登记证书、人民法院出具 2020-05-31 …
第5段叙述中有议论,最明显的一个议论句是(),把你对这个议论句的理解写在下面.4、判断第5段中两个 2020-06-10 …
怎么从单纯形表判断解的情况,怎么判断是有解,还是多个解,还是无解诸如此类的判断,我不太会,回的大虾 2020-07-31 …
已知f(x)=-3x^2+a(6-a)+b,解关于a的不等式f(1)>0.问下算到根与系数的判别式 2020-08-01 …
证券X期望收益率为0.11,贝塔值是1.5,无风险收益率为0.05,市场期望收益率为0.09。根据资 2020-11-02 …
写出与下列判断的负判断逻辑等值的判断,并写出所依据等值式要么甲队战胜乙队,要么甲队降级. 2020-12-24 …
甲乙二人同时同地出发,同向而行,甲每小时走a千米,乙每小时走b千米,且a>b,若乙先出发1小时,则甲 2020-12-28 …
下列各项对语法知识的判断与分析,正确的一项是(2分)A.“我在写字”和“我在教室写字”中的“在”字都 2021-01-05 …