vb答案_请问这个VB题如何解答？31605.阅读下列程序段：m = 0Fo...[数学]

精选知识

for i=1 to 3 这是外循环,每执行一次i就加1,然后检查i是不是大于3,如果大于3就退出循环,所以i=4

for j=1 to i这是内循环,相当于执行三次循环,即for j=1 to 1;for j=1 to 2; for j=1 to 3

这段代码可以分解成下面这样

m = 0

i=1

For j = 1 To 1

m = m + j

next

i=i+1

For j = 1 To 2

m = m + j

next

i=i+1

For j = 1 To 3

m = m + j

next

i=i+1

其他类似问题

问题1：Private Sub Command1_Click()Dim x As Integer,j As Integeri = 1:j = 1:x = 0DoDox = x + jj = j + 2Loop Until j > 4i = i + 1Print iLoop While i < 4Print xEnd Sub结果为什么是2 3 4 16

第一次到“Loop Until j > 4”

x=1,j=3,i=1 循环

第二次到“Loop Until j > 4”

x=4,j=5,i=1

因为5>4

不循环了,运行下面的

i=2(i = i + 1 ,Print i )

输出了2

因为“Loop While i < 4 ”

24,“Loop Until j > 4 ”不循环

i=3(i = i + 1 ,Print i )

输出3

因为“Loop While i < 4 ”

24,“Loop Until j > 4 ”不循环

i=4(i = i + 1 ,Print i )

输出4

因为“Loop While i < 4 ”

4=4,不循环

输出16（Print x ）

这时x=16,j=9,i=4

问题2：Private Sub Cmd3_Click()Dim p As Integer,I As Integerp = 1For I = 1 To 5p = p + (2 * I - 1) / (2 * I + 1)If p >= 20 Then Exit ForNext IPrint I,pEnd Sub6 5[数学科目]

i=1 时 p=1+1/3=1

四舍五入1/3=0,下面的都等于1

i=2 时 p=1+3/5=2

i=3 时 p=2+5/7=3

i=4 时 p=3+7/9=4

i=5时 p=4+9/11=5 这时p=5

next i使i=6退出循环,输出6和5

如果你有vb可以运行下面的代码,在立即窗口可以看到每一部的值

Private Sub Cmd3_Click()

Dim p As Integer, I As Integer

p = 1

For I = 1 To 5

Debug.Print (2 * I - 1) / (2 * I + 1)

p = p + (2 * I - 1) / (2 * I + 1)

Debug.Print p

If p >= 20 Then Exit For

Debug.Print I, p

Next I

Debug.Print I, p

End Sub