Question

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

Answer 1

你能按照标准格式写吗

追问

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 x
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是

Answer 2

显示6

追问

求详细过程，谢谢~

追答

输入3 则n=3
下面就变成了
For i=1 To3
For j=1 To i
x=x+1
Next j
Next i
当 i=1 时 j=1 to1 循环一次 则 x=1
当 i=2 时 j=1 to2 循环两次 则 x=2 x=3
当 i=2 时 j=1 to3 循环三次 则 x=4 x=5 x=6
最后在窗体上print x
则显示6