Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n

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

比穆为邻 1年前已收到1个回答举报

wangwwwww 春芽

共回答了14个问题采纳率：100% 举报

显示6

1年前追问

比穆为邻举报

求详细过程，谢谢~

举报 wangwwwww

输入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

可能相似的问题

Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a

1年前1个回答
VB的if语句的问题Private Sub Command1_Click()If Text1 = "111" ThenF

1年前1个回答
vb题下面程序的功能是什么?Private Sub Command1_Click() Dim s%,n% Dim a

1年前1个回答
Private Sub Command1_Click()

1年前1个回答
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To

1年前1个回答
private sub command1_click() i=0 do s=s+i i=i+1 loop until i

1年前1个回答
private sub command1_click() a=10:s=0 do s=s+a*a*a a=a-1 loo

1年前1个回答
b求π为啥是错的Private Sub Command1_Click()Dim s As Integer,n As Do

1年前1个回答
Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k)

1年前1个回答
VB Private Sub Command1_Click()Dim x As Integerx = 15768Prin

1年前1个回答
Private Sub Command1_Click() Dim i As Double,M As Double,L A

1年前1个回答
VB求素数Private Sub Command1_Click()For I = 2 To 100 '循环引用100至2

1年前1个回答
Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1

1年前1个回答
一道vb题目Private Sub Command1_Click() x = -5 If Sgn(x + 5) Then

1年前1个回答
vb解二次函数代码问题!代码如下Private Sub Command1_Click()Dim a As Single,

1年前1个回答
vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp

1年前1个回答
求VB考试题目答案在窗体上有命令按钮，有如下事件代码 private sub command1_click() stat

1年前1个回答
33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As

1年前1个回答
VB.if sgn（x） Private Sub Command1_Click()Dim x As Integer,y

1年前1个回答

你能帮帮他们吗

精彩回答