单项选择题
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填( )。
Sub EnSure()
Dim year As Integer
year=Val(InputBox("请输入年份:"))
If(year Mod 4=0______year Mod 100<>0)______(year Mod 400=0)Then
Print"您输入的是闰年"
Else
Print"不是闰年,是普通年份"
End If
End Sub
A.And And
B.And Or
C.Or Or
D.Or Or
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
有下列事件过程: Private Sub Command1_Click() b==10 Do Until b=-1 a=InputBox( 请输入a的值 ) a=Val(a) b=InputBox( 请输入b的值 ) b=Va(b) a=a*b Loop Print a End Sub 程序运行后,依次输入数值30,20,10,-1后,输出结果是( )。
A.600
B.-10
C.200
D.-6000
点击查看答案&解析
单项选择题
下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click0 Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub
A.1 3 5 7 9 10
B.-1-3-5-7-9
C.-1 2-3 4-5 6-7 8-9 10
D.1-2 3-4 5-6 7-8 9-10
点击查看答案&解析
相关试题
下列是一个体操评分程序。设满分为10分,...
假设有下列程序段: For i=1 To 3 ...
执行下列语句后,输出结果是______。...
在链表的运算过程中,能够使空表与非空表的...
表达式 12345 <> 12345 &...