程序执行时,单击窗体后输出结果是 Private sub form_click() Dim n as Integer n = 8 While n > 5 n = n - 1 Debug.Print

admin2020-09-01  27

问题 程序执行时,单击窗体后输出结果是
Private sub form_click()
    Dim n as Integer
    n = 8
    While n > 5
        n = n - 1
        Debug.Print n;
    Wend
End Sub

选项 A、100
B、500
C、2500
D、5000

答案C

解析 本题实际上是给出了一个计算1至99之间奇数之和的程序,x初始为99,每循环一次递减2。第一次循环结果:x=99,s=0+99=99;第二次循环结果:x=97,s=99+97;以此类推,直至x=1,s=99+97+95+…+1=2500。
转载请注明原文地址:https://jikaoti.com/ti/73Q0FFFM
0

随机试题
最新回复(0)