在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下 Private Sub Commandl Click() Dim i,j,x For i=1 To 20 sep 2

admin2020-10-14  43

问题 在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下
    Private Sub Commandl Click()
        Dim i,j,x
        For i=1 To 20 sep 2
            x=0
            Forj=i To 20 step 3
            x=x+l
            Nextj
            Next i
            Textl.Value=Str(x)
    End Sub
    打开窗体运行后,单击命令按钮,文本框中显示的结果是

选项 A、1   
B、7   
C、17
D、400

答案A

解析 外循环每次循环都将x重置为O,所以只看外循环的最后一次即i=20时,此时内循环j=i=20开始以步长为2开始递增,递增一次执行x=x+1=0+1=1后便结束循环,所以最后文本框显示的结果为1。
转载请注明原文地址:https://kaotiyun.com/show/3oSp777K
0

最新回复(0)