更多"给定年份，下列程序用来判断该年是否是闰年，请填空。Sub YN( ) "的相关试题:
[填空题]给定年份，下列程序用来判断该年是否是闰年，请填空。
Sub YN( )
Dim X AS Integer
x＝Input Box("请输入年号")
If( x Mod 4=0 【 】 x Mod l00< >0) 【 】 (x Mod 400=0)Then
Print"是闰年"
Else
Print"不是闰年，是普通年份"
End If
End Sub
[填空题]给定年份，下列程序用来判断该年是否为闰年，请填空。
提示：闰年的条件是年份可以被4整除但不能被100整除，或者能被400整除。
Private Sub Comand6_Click（ ）
Dim y As Integer
y=InputBox("请输入年份")
If(y Mod 4=0______y Mod 100＜＞0)or(y Mod 400=0)Then
Print"是闰年"
Else
Print"是普通年份"
End If
End Sub
[填空题]给定年份，下列程序用来判断该年是否为闰年，请填空。
提示：闰年的条件是年份可以被4整除但不能被100整除，或者能被400整除。
Private Sub Comand6_Click（ ）
Dim y As Integer
y=InputBox("请输入年份")
If(y Mod 4=0______y Mod 100＜＞0)or(y Mod 400=0)Then
Print"是闰年"
Else
Print"是普通年份"
End If
End Sub
[单项选择]阅读程序：
Private Sub Form Click( )
Dim num As Integer, digit As Integer
num=InputBox("输入数据")
Do While num＜＞0
digit=num Mod 10
num=num/10
Print digit；
Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出结果为______。
A. 1 3 7 5 9
B. 5 4 3 2 1
C. 2 4 6 8 10
D. 1 2 3 4 5
[单项选择]有如下程序：
Private Sub Commandl_Click（ ）
Dim a As Integer
a=2
For i=1 To 3
Print Gad (a)
Next i
End Sub
Function Gad (a As Integer)
b=0
Static c
b=b + 1
c= c + 1
Gad= a + b + C
End Function
运行上面的程序后，单击命令按钮，输出结果为( )。
[单项选择]有如下程序：
Private Sub Commandl_Click( )
Dim i As Integer
For i=1 To 2
DS
Next i
End Sub
Sub DS( )
Dim x As Integer，m As String
Static y，n
X=X + 1
y=y + 1
m=m &"*”：n=n&"#"
Print x，y，m，n
End Sub
程序运行后，输出的结果是( )。
[填空题]有下列程序：
Private Sub Command1_Click（ ）
Dim i As Integer
Dim arrY(5)As Integer
For i = 0 To 4
arrY (i) = 5
Next i
Dim arrZ(5)As String
For i = 0 To 4
arrZ(i)= "hello"
Next i
Dim arrX(2)AS Variant
arrX(1)=arrY（ ）
arrX(2)=arr2（ ）
Text1.Text=arrX(1) (2)
Text2.Text=arrX(2) (3)
End Sub
程序运行后，单击命令按钮，在文本框Text1和Text2中分别显示的内容是 【14】 和 【15】 。
