网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下列程序段的执行结果为
Dim M(10)
For k=1 To 10
M(K)=11-k
Ncxt k
x=6
Print M(2+M(x))
A．2
B．3
C．4
D．5
参考答案
更多 “ 下列程序段的执行结果为Dim M(10)For k=1 To 10M(K)=11-kNcxt kx=6Print M(2+M(x))A．2B．3C．4D．5 ” 相关考题
考题
有如下程序：Private Sub Command1_Click（）Dim k As Integer, m As IntegerDim p As Integerk=4: m=1p=PC（k, m） : Print p;p=PC（k, m） : Print pEnd SubPrivate Function PC（a As Integer, b As Integer）Static m As Integer, i As Integerm=0: i=2i=i + m + 1m=i + a + bPC=mEnd Function程序运行后，输出的结果为（ ）。A．4 6B．6 6C．8 8D．10 12
考题
（23）在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：Private Sub Command1_Click( )Dim M(10) As IntegerFor k=1 To 10M(k)=12-kNext kx=8Print M(2+M(x))End Sub运行程序，单击命令按钮，在窗体上显示的是（ ）。A）6B）5C）7D）8
考题
在窗体上画一个命令按钮，然后编写如下代码：Private Sub Commandl_Click()Dim M(10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Msgbox M(2+M(x))End Sub程序运行后，单击命令按钮，消息框显示的是______。
考题
设执行以下程序段时依次输入2，4，6执行结果为 Dim a(4) As Integer,b(4) As Integer For k =0 To 2 a(k + 1) = Val(InputBox( "Enter data:" ) ) b(3 - k) =a(k + 1) Next Print b(k)A．2B．4C．6D．0
考题
有如下程序，该程序的执行结果为______。 Dim k As Integer n=5 m=1 k=1 Do While k ＜= n m=m*2 k=k+1 Loop Print mA．1B．5C．32D．40
考题
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC(k，m)：Print p； p=PC(k，m)：Print p End Sub Private Function PC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i + m + 1 m=i + a + b PC=m End Function 程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
考题
在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click()Dim M (10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Msgbox M(2+M(x))End Sub程序运行后，单击命令按钮，消息框显示的是【 】。
考题
在窗体上画一个名为Commandl的命令按钮，然后编写以下程序：Private Sub Commandl—Click()Dim M(10)As IntegerFor k=1 TO 10M(k)=12一kNext kx=8PrintM(2+M(x))End Sub运行程序，单击命令按钮，在窗体上显示的是A．6B．5C．7D．8
考题
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4:m=1 p=PPC(k,m):Print op； p=PPC(k.m):Print op End Sub Private Function PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0:i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
考题
下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End SubA．1B．12C．11D．32
考题
在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_C1ick()Dim M (10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Msgbox M(2+M(x))End Sub程序运行后，单击命令按钮，消息框显示的是【 】。
考题
下列程序段的执行结果为 ______。 N=10 For K=N To 1 Step-1 X=Sqr(K) X=X-2 Next K Print X-2A．-3B．-1C．1D．1.16228
考题
阅读以下程序：Prlvate Sub Form_Click()Dim k，n，m As Integern=10m=1k=1Do While k＜=nm=m*2k＝k+1LoopPrint mEnd Sub程序运行后，单击窗体，输出结果为【 】。
考题
下列程序执行后，执行的结果是______ 。 Dim M(2) For i = 1 To 2 M(i) = 0 Next i k=2 For i = 1 To k For j = 1 To k M(j) = M(i) + 1 Print M(k): Next j Next IA．1234B．0123C．223D．2345
考题
在窗体中有一个名为Command1的命令按钮，事件代码如下： Private Sub Command1_Click（ ） Dim m(10) For k=1 T0 10 m(k)=11=k Next k x=6 MsgBox m(2+m(x)) End Sub 打开窗体，单击命令按钮，消息框的输出结果是（ ）。A.2B.3C.4D.5
考题
有下列程序： fun(int x，int y) { static int m=0，i=2； i+=m+1；m=i+x+y；return m； } main（ ） { int j=1，m=1，k； k=fun(j，m)；print S(”％d，”，k)； k=fun(j，m)；printf(”％d＼n”，k)； ） 执行后的输出结果是（ ）。A.5，5B.5，11C.11，11D.11，5
考题
下列程序段的执行结果为______ 。 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 KA． 1 2 1B．1 2 3C．2 4 6D．1 3 1
考题
有如下程序：Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print opEnd SubPrivate Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=mEnd Function程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
考题
下列程序段的执行结果为 ______。 N=10 For K=N To 1 Step -1 X=Sqr(K) X=X-2 Next K Print X-2A．-3B．-1C．1D．1.16227765
考题
下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim K As Integer For i=1 To 3 m(i,i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print xA．3B．4C．5D．6
考题
在窗体中有一个名为Command1的命令按钮，事件代码如下：Private Sub Command1_Click（ ）Dim m(10)For k=1 T0 10m(k)=11=kNext kx=6MsgBox m(2+m(x))End Sub打开窗体，单击命令按钮，消息框的输出结果是（ ）。A.2B.3C.4D.5
考题
有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Click() Dim x x=Array(23，-5，17，38，-31，46，11，8，5，-4) s1=0 s2=0 For k=1 To 10 If(x(k)＞0)Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA．148B．40C．-40D．3.7
热门标签
最新试卷
