单项选择题

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：
Private Sub Command1_Click()
Dim a
a=Array(1，2，3，4)
i=3:j=1
Do While i＞=0
s=s+a(i)j
i=i-1
j=j10
Loop
Print s
End Sub
运行上面的程序，单击命令按钮，则输出结果是（）。

A．4321
B．123
C．234
D．1234

<上一题目录下一题>

热门试题

单项选择题

Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。 Function Isfab(x As Integer)As Boolean Dim a As Integer，b As Integer，c As Integer，flag As Boolean flag=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 A s Integer x=0 n=InputBox(“请输入一个整数”) For i=1 To n For j=1 To i x=x+i Next j Next i Print x End Sub 程序运行后，单击窗体，如果在输入对话框中输入：则在窗体上显示的内容是（）。

A．13
B．14
C．15
D．16

相关试题