阅读以下程序：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

单击窗体程序的执行结果是【】。

第1题：

阅读以下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

答案：D
解析：
Kl=6，K2=M(Kl)=7，K3=7+8=15，K4=M(6+7+15)=M(28)=29。
答案:D
第2题：

阅读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

答案：C
解析：
第3题：

【填空题】执行下面程序段后，k值是。 k=1;n=263; do{k*=n%10;n/=10;}while（n);

D
第4题：

阅读以下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

答案：D
解析：
第5题：

下面能正确计算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);

If x >= 2 Then y = 3 ElseIf x >= 1 Then y = 2 ElseIf x >=0 Then y = 1 Else y = 0 End If

阅读以下程序：Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k ＜= nm=m+2k = k + 1LoopPrint mEnd Sub单击窗体程序的执行结果是【 】。