阅读以下程序：Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k ＜= nm=m+2k = k + 1LoopPrint mEnd Sub单击窗体程序的执行结果是【 】。
阅读以下程序：
Private Sub Form_click()
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是【 】。
相关考题：
阅读下列程序，程序的输出结果是#include "stdio.h"main（）{int m,n;float k;for（m=6;m2;m--）{ k=0;for（n=m;n1;n--）k=k+m*n;}printf（"%f＼n",k）;}A．5.000000B．15.000000C．25.000000D．35.000000
以下程序正确计算p=n!(n=0)的是()。 A.for(p=1.0,k=1;k=n;)p*=k++;B.p= 1.0;k=0;while(kn)p*=++k;C.p= 1.0;k=1;do{++k;p*=k;}while(k=n);D.p=1.0;for(k=n;k=1;k--)p*=k--;
阅读以下程序：Prlvate Sub Form_Click()Dim k，n，m As Integern=10m=1k=1Do While k＜=nm=m*2k＝k+1LoopPrint mEnd Sub程序运行后，单击窗体，输出结果为【 】。
当发生Form_Click事件时，下列程序的输出结果是( )。 Private m As Integer,n As Integer Private Sub Form_Click() Dim k As Integer，p As Integer k=6：p=60 Call sub1(k,p) Print m,n,m,k,p Call sub1(k,p) Print m,n,k,p End Sub Private Sub Form_Load() m=7 n=70 End Sub Public Sub sub1(x As Integer,ByVal y As Integer) Dim m As Integer n=n+5 m=n+x+y x=x+y y=x+y End SubA．7 75 66 60 7 80 126 60B．7 75 66 60 7 75 126 60C．7 75 66 60 7 80 66 60D．7 75 66 60 7 75 66 60
阅读以下FORTAN程序：K1=M(5)K2 = M(K1)K3=M(K1)+M(K2)K4=M(K1+K2+K3)WRITEC* ,100)K4 100 FORMAT(2X,K4=I3)ENDFUNCTION M(N)M=N+1 RETURN END 程序的输出结果是：A. K4=28B. K4=27C. K4=30D. K4=29
阅读以下FORTRAN程序:K1=M(5)K2=M(K1)K3=M(K1)+M(K2)K4=M(K1+K2+K3)WRITE(*,100)K4100 FORMAT(2X;K4;I3)ENDFUNCTION M(N)M=N+1RETURNEND程序输出结果是：(A)K4=28(B)K4=27(C)K4=30(D)K4=29
阅读FORTRAN 程序 DIMENSION M(4，3) DATE M/-10，12，24，11，20，-15，61，78，93，30，44，-45/ N(M(1，1) DO 10I=1，4 DO 10J=1，3 IF （M(I，J).LT.N） THEN N=M(I,J) K1=I K2=J ENDIF10 CONTINUE WRITE(*，’（2x，314）’) N，K1，K2 END程序运行后的输出结果是：（A）93，3，1 （B）-10，1，1（C）-45，4，3 （D）78，3，2
下面能正确计算1*2*3*•••*10的程序段是（)A．do{ k=1;n=1;n=n*k;k++; }while(k＜=10);B．do{ k=1;n=0;n=n*k;k++; }while(k＜=10);C．k=1;n=1; do{ n=n*k;k++; }while(k＜=10);D．k=1;n=0; do{ n=n*k;k++; }while(k＜=10);
【填空题】执行下面程序段后，k值是 。 k=1;n=263; do{k*=n%10;n/=10;}while（n);