Question

VB里IF···then else的嵌套问题

Private Sub Command1_Click()
Dim y As Integer '声明y定义为整型

y = Text1.Text '判断是否是闰年，不是则输出“不是闰年”提示

If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 <> 0) Then '如果y取余400等于0 而 y取余4等于0且 y取余100不等于0时

Label2.Caption = "是闰年" 'Label2赋值为闰年

Else '否则

Label2.Caption = "不是闰年"

End If

If y = Empty Then

Label2.Caption = "请输入年份"

End If

End Sub

代码运行错误 应该怎么样嵌套？

Answer 1

当text为空的时候，执行到y=text1.text的时候就会报错，可以改成这样的：
Private Sub Command1_Click()
Dim y As Integer '声明y定义为整型
If text1.text= Empty Then

Label2.Caption = "请输入年份"
exit sub ’加上此句，重新开始输入年份，否则还会报错
End If
y = Text1.Text '判断是否是闰年，不是则输出“不是闰年”提示

If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 <> 0) Then '如果y取余400等于0 而 y取余4等于0且 y取余100不等于0时

Label2.Caption = "是闰年" 'Label2赋值为闰年

Else '否则

Label2.Caption = "不是闰年"

End If

End Sub