VB程序设计问题,求解答 程序的功能是单击"调试改错题1"按钮,随机产生一个2000-2300之间的年份,在文本框显示；在标签2显示是否是闰年.判断闰年：若该年份能够被4整除但不能被100整除,或者能够被400整除,则该年份是闰年.程序中有2个错误,请调试改正.Private Sub Command1Click() Dim year% Dim t1 As Boolean, t2 As Boolean, t3 As Boolean '3个逻辑变量用于存放3个条件的结果
2019-05-30
VB程序设计问题,求解答 程序的功能是单击"调试改错题1"按钮,随机产生一个2000-2300之间的年份,在文本框显示；在标签2显示是否是闰年.判断闰年：若该年份能够被4整除但不能被100整除,或者能够被400整除,则该年份是闰年.程序中有2个错误,请调试改正.
Private Sub Command1_Click()
Dim year%
Dim t1 As Boolean, t2 As Boolean, t3 As Boolean '3个逻辑变量用于存放3个条件的结果
year = Int(Rnd() * 301 + 2000) '此句正确
year = Text1.Text
t1 = year Mod 4 = 0
t2 = year Mod 100 0
t3 = year Mod 400 = 0
If (t1 And t2) And t3 Then
Label2.Caption = year & "年是闰年"
Else
Label2.Caption = year & "年不是闰年"
End If
End Sub
优质解答
在文本框中显示年份应该是 Text1.Text = Year
If (t1 And t2) And t3 应改为 If (t1 And t2) Or t3
在文本框中显示年份应该是 Text1.Text = Year
If (t1 And t2) And t3 应改为 If (t1 And t2) Or t3