单项选择题

下列程序段的执行结果为______ 。
Dim A(4)
N= 3
A(1) =1
For K=0 To N-1
For L=1 To K+1
X=K+2 -L
A(X)=A(X)+A(X-1)
If K＜N-1 Then Exit For
Print A(X)；
Next L
Next K

A．1 2 1
B．1 2 3
C．2 4 6
D．1 3 1

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1-Click() Static X Am Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X Print X，Y End Sub程序运行时，三次单击命令按钮Comand1后，窗体上显示的结果为______。

A．15 16
B．15 6
C．15 15
D．5 6

单项选择题

单击命令按钮时，下列程序代码的执行结果为______。 Private Function PickMid(xStr As String) As String Dim tempStr As String Dim strLen As Integer tempStr=“” strLen=Len(xStr) i=1 Do While i＜=strLen 2 tempStr=tempStr+Mid(xStr，i，1)+Hid(xStr，strLen-i+1，1) i=i + 1 Loop PickMid=tempStr End Function Private Sub Command1_Click() Dim FirstStr As String FirstStr=“abcdef” Print PickMid(FirstStr) End Sub

A．abcdef
B．afbecd
C．fedcba
D．defabc

相关试题