Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print
人气:104 ℃ 时间:2020-01-29 20:49:52
解答
显示6求详细过程,谢谢~输入3 则n=3下面就变成了For i=1 To3For j=1 To i x=x+1 Next j Next i 当i=1 时 j=1 to1循环一次则 x=1当i=2 时 j=1 to2循环两次则 x=2x=3当i=2 时 j=1 to3循环三次则 x=4 x=5x=6最后在窗体上printx则显示6
推荐
猜你喜欢