求解一道VB private sub command1_click() for i = 1 to 4 x=4 for j
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/08 09:55:44
求解一道VB private sub command1_click() for i = 1 to 4 x=4 for j =1 to 3 x=3 for k=1 to 2 x=x+6 补
接上:
next k
next j
next i
print x
end sub
接上:
next k
next j
next i
print x
end sub
首先x=4是个干扰项,因为在j循环又对i重新赋值3,你可以把x=4去掉试试,不影响结果,
从最外层循环体for i= 1 to 4开始,
i=1,x=4,这时j=1,x=3,k=1,x=x+6=9
k=2, x=x(上一个)+6=9+6=15
j=2,k=1
k=2
j=3,k=1
k=2
(往后的循环并没有改变x的值,所以也不会改变表达式x=x+6=15的值)
上面说过i 循环里的x=4其实可以删去,所以也不影响x=x+6=15的值,结果就是15了
从最外层循环体for i= 1 to 4开始,
i=1,x=4,这时j=1,x=3,k=1,x=x+6=9
k=2, x=x(上一个)+6=9+6=15
j=2,k=1
k=2
j=3,k=1
k=2
(往后的循环并没有改变x的值,所以也不会改变表达式x=x+6=15的值)
上面说过i 循环里的x=4其实可以删去,所以也不影响x=x+6=15的值,结果就是15了
求解一道VB private sub command1_click() for i = 1 to 4 x=4 for j
Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1
Private Sub Command1_Click() n = 0 For i = 1 To 3 For j = -4
Private Sub Command1_Click() For i=1 To 4 x=4 For j =1 To 3&
Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a
Private Sub Command1_Click() For i = 1 To 3 For j = 1 To i F
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n
SOS!Private Sub Command1_Click()/s=0/For j=1 To 20/If j Mod
1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x-
解一道vb函数题,private sub command1 _click(),for i =1to4 ,for j =1
Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k)