UC知道有关VB的二道简单程序题。求助！
来源：百度知道 编辑：UC知道 时间：2024/06/02 17:44:18
问题1：运行下列程序，第一行输出？ 第二行输出？
private sub form-click()
dim i as integer,j as integer
a=5:b=1
for i=1 to a+b step b
i=i+b
a=a+i
b=b+i
k=k+1
next i
print a
print b,k
end sub
问题2：运行下列程序，第一行输出？ 第二行输出？
private sub form-click()
dim i as integer,j as integer
dim a as integer,k as integer
i=1:j=1
do while a<=10
a=i*j
k=k+1
if a>5 then exit do
i=i+1
j=a+i
loop
print a,k
print i,j
end sub
请各位高人帮我解答一下这题，虽然偶知道不是很难，但偶比较特殊，属于计算机白痴类的。所以请大家解题过程是否能写详细一点呢？对这个我的接受能力有限，写的言简意赅我估计就要郁闷看不懂了！
啊！您的举手之劳将是我的救命稻草啊！感谢感谢！
private sub form-click()
dim i as integer,j as integer
a=5:b=1
for i=1 to a+b step b
i=i+b
a=a+i
b=b+i
k=k+1
next i
print a
print b,k
end sub
问题2：运行下列程序，第一行输出？ 第二行输出？
private sub form-click()
dim i as integer,j as integer
dim a as integer,k as integer
i=1:j=1
do while a<=10
a=i*j
k=k+1
if a>5 then exit do
i=i+1
j=a+i
loop
print a,k
print i,j
end sub
请各位高人帮我解答一下这题，虽然偶知道不是很难，但偶比较特殊，属于计算机白痴类的。所以请大家解题过程是否能写详细一点呢？对这个我的接受能力有限，写的言简意赅我估计就要郁闷看不懂了！
啊！您的举手之劳将是我的救命稻草啊！感谢感谢！
private sub form-click()
dim i as integer,j as integer 'i = 0, j = 0, k = 0
a=5:b=1
for i=1 to a+b step b '等效于 for i = 1 to 6 step 1
i=i+b
a=a+i
b=b+i
k=k+1
next i
print a
print b,k
end sub
下面看循环的情况,初始时:
i = 0, a = 5, b = 1, k = 0
第一次循环结束后:
i = 1, a = 6, b = 2, k = 1
第二次循环结束后:
i = 3, a = 9, b = 5, k = 2
第三次循环结束后:
i = 8, a = 17, b = 13, k = 3
循环结束
所以输出什么也知道了吧
第二题自己试试, 一步一步来, 非常简单
第一题：窗体上加四个text控件，单击窗体显示的数字即答案i=7,a=13,b=9,k=2
Private Sub Form_Click()
Dim i As Integer, j As Integer
a = 5: b = 1
For i = 1 To a + b Step b
i = i + b
a = a + i
b = b + i
k = k + 1
Next i
Text1.Text = i
Text2.Text = a
Text3.Text = b
Text4.Text = k
End Sub
第二题：同一，答案为a=6,k=2,i=2,j=3
Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim a As Integer, k A