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

admin2019-05-23  38

问题 在窗体上有一个命令按钮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重置为0,所以只看外循环的最后一次即i=20时,此时内循环i=i=20开始以步长为2开始递增,递增一次执行X=X+1=O+l=l后便结束循环,所以最后文本框显示的结果为1。
转载请注明原文地址:https://kaotiyun.com/show/qC0p777K
0

相关试题推荐
最新回复(0)