作业帮 > 数学 > 作业

二、 将下列语句改写成vb表达式

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/06/06 09:15:25
二、 将下列语句改写成vb表达式
一、         将下列语句改写成vb表达式(1)、判断某一年year(设year>=1900)是否为闰年.Year是闰年要满足下列条件:year能被4整除但不能被100整除,或者能被400整除.
二、 将下列语句改写成vb表达式
Private Sub Command1_Click()
Dim year As Long
year = InputBox("请输入一个大于或者等于1900的整数",,1900)
If year Mod 4 = 0 And year Mod 100 0 Then
Print year & "是闰年"
ElseIf year Mod 400 = 0 Then
Print year & "是闰年"
ElseIf year < 1900 Then
MsgBox "请重新输入"
Else
Print year & "不" & "是闰年"
End If
End Sub
哈哈,有意思,多出点这样的题目