二、 将下列语句改写成vb表达式
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/07/07 20:40:03
二、 将下列语句改写成vb表达式
一、 将下列语句改写成vb表达式(1)、判断某一年year(设year>=1900)是否为闰年.Year是闰年要满足下列条件:year能被4整除但不能被100整除,或者能被400整除.
一、 将下列语句改写成vb表达式(1)、判断某一年year(设year>=1900)是否为闰年.Year是闰年要满足下列条件:year能被4整除但不能被100整除,或者能被400整除.
![二、 将下列语句改写成vb表达式](/uploads/image/z/6551815-31-5.jpg?t=%E4%BA%8C%E3%80%81+%E5%B0%86%E4%B8%8B%E5%88%97%E8%AF%AD%E5%8F%A5%E6%94%B9%E5%86%99%E6%88%90vb%E8%A1%A8%E8%BE%BE%E5%BC%8F)
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
哈哈,有意思,多出点这样的题目
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
哈哈,有意思,多出点这样的题目