网友您好, 请在下方输入框内输入要搜索的题目:
题目内容
(请给出正确答案)
阅读以下程序:
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
单击窗体程序的执行结果是【 】。
参考答案
更多 “ 阅读以下程序:Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k <= nm=m+2k = k + 1LoopPrint mEnd 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)
END
FUNCTION M(N)
M=N+1 RETURN END 程序的输出结果是:
A. K4=28
B. K4=27
C. K4=30
D. K4=29
考题
阅读以下FORTRAN程序:
K1=M(5)
K2=M(K1)
K3=M(K1)+M(K2)
K4=M(K1+K2+K3)
WRITE(*,100)K4
100 FORMAT(2X;K4;I3)
END
FUNCTION M(N)
M=N+1
RETURN
END
程序输出结果是:
(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
ENDIF
10 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);
热门标签
最新试卷