单项选择题

请阅读程序：
Sub subP(b()As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4)As Integer
a(1)=5:a(2)=6:a(3)=7:a(4)=8
subP a()
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，则输出结果是( )

A．2
4
6
8
B．5
6
7
8
C．10
12
14
16
D．出错
<上一题 目录 下一题>
热门 试题

单项选择题
Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数x是否是Fibonaeci数列中的某个数，若是，则返回True，否则返回False。 Function Isfab(x As Integer)As Boolean Dim a As Integer，b As Integer，c As Integer，flag As Boolean fIag=False a=1:b=1 Do While x＜b c=a+b a=b b=c If x=b Then flag=True Loop Isfab=flag End Function 测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是( )
A．把a=b与b=C的位置互换
B．把c=a+b移到b=c之后
C．把Do while x＜b改为Do While x＞b
D．把If x=b Then flag=True改为If x=a Then flag=True
单项选择题
有如下事件过程： Private Sub Form_Click() Dim n As Integer x=0 n=InputBox( 请输入一个整数 ) For i=1 To n For j=1 To i x=x+1 Next j Next i Print X End Sub 程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是( )
A．13
B．14
C．15
D．16
相关试题