阅读以下程序：Prlvate Sub Form_Click()Dim k，n，m As Integern=10m=1k=1Do While k＜=nm=m*2k＝k+1LoopPrint mEnd Sub程序运行后，单击窗体，输出结果为【 】。
题目
阅读以下程序：
Prlvate Sub Form_Click()
Dim k，n，m As Integer
n=10
m=1
k=1
Do While k＜=n
m=m*2
k＝k+1
Loop
Print m
End Sub程序运行后，单击窗体，输出结果为【 】。
相似考题
更多“阅读以下程序: Prlvate Sub Form_Click()Dim k,n,m As Integern=10m=1k=1Do While k<=nm=m*2k=k＋ ”相关问题
-
第1题：
有如下程序，该程序的执行结果为______。 Dim k As Integer n=5 m=1 k=1 Do While k ＜= n m=m*2 k=k+1 Loop Print m
A．1
B．5
C．32
D．40
正确答案：C
-
第2题：
阅读以下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 -
第3题：
下列程序输出1至100之间的所有每位数字的积大于每位数字的和的数，则①、②、③处的正确语句分别为: 如23即为符合要求的数字，因为2x3＞2+3。 int main（void) { int n, k=1, s=0, m; for（n=1; n＜=100; n++) { ① ; m=n; while（m!=0) { ② ; ③ ; m=m/10; } if（k＞s) printf（"%d", n); } return 0; }
A．k=1; s=0 k=k*(m % 10) s=s+m % 10
B．k=0; s=1 k=k*(m % 10) s=s+m % 10
C．k=0; s=1 s=s*(m % 10) k=k+m % 10
D．k=1; s=0 s=s*(m % 10) k=k+m % 10
A 素数是大于1的自然数，除了1和本身不能被任何数整除的数。程序用DoWhile循环对n进行判断，如能被整除isprime赋值为False。否则赋值为True。随后的代码检测isprime为True时执行打印。因此DoWhile判断条件中除了判断循环变量的上限还需要判断isprime的值。根据执行条件可知，选A．。 -
第4题：
某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【 】。
Private Sub Form_Click()
Dim k as Integer， n as Integer，m as Integer
n=10 ：m=1 : k=1
Do While k＜=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
正确答案：1024
1024 解析：本题考查考生对VBA中控制结构的掌握。考生应该重点掌握VBA的控制结构，本题中的Do While…Loop循环结构是考试重点内容。在题目所给程序中，第一次循环结束后，m=1*2=2，即21；第二次循环结束后， m=2*2=4，即22；可见每次循环都使得m变为原来大小的2倍。因为k的初始值为1，终止条件为k=10，所以循环一共可以执行10次，因此m最后的值应该为210，即1024。 -
第5题：
阅读以下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解析：