作业帮Private Sub Form_Click() a = 1: b = a Do Until a >= 5 x = a
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/26 08:13:36
Private Sub Form_Click() a = 1: b = a Do Until a >= 5 x = a * b Print b; x a = a + b b = b + a Loop
Private Sub Form_Click() 点击窗体触发click事件
a = 1 初始a=1
b = a
Do Until a >= 5 执行do循环 直到a大于等于5时退出循环
x = a * b
Print b; x
a = a + b
b = b + a
Loop
end sub
最后窗体上打印的是：
1 1
3 6
再问： 最后打印出来的结果 和计算过程
再答： 第一次循环： b=1，x=a*b也是1，所以打印的是1 1 之后a=a+b就是2了 b=b+a就是3了 所以第二次循环： 打印的就是3，6 打印之后a=a+b就是2+3=5了 当a>=5时就退出了循环 所以就执行两次循环 打印了两次结果
a = 1 初始a=1
b = a
Do Until a >= 5 执行do循环 直到a大于等于5时退出循环
x = a * b
Print b; x
a = a + b
b = b + a
Loop
end sub
最后窗体上打印的是：
1 1
3 6
再问： 最后打印出来的结果 和计算过程
再答： 第一次循环： b=1，x=a*b也是1，所以打印的是1 1 之后a=a+b就是2了 b=b+a就是3了 所以第二次循环： 打印的就是3，6 打印之后a=a+b就是2+3=5了 当a>=5时就退出了循环 所以就执行两次循环 打印了两次结果
Private Sub Form_Click() a = 1: b = a Do Until a >= 5 x = a
Private Sub Form_Click( ) Dim a%,b% a=3 b=2 a=a+b b=b+a a=a*
Private Sub Form_Click() Dim a As Integer,b As Integer,k As
Private Sub Form_Click() x = 1 y = 5 z = 2 For k = x To y St
英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,max
问几道 Private Sub Form_Click()X=4Y=X ^ 4If X * Y> 444 ThenPrin
Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x =
private sub command1_click( ) FOR a=1 TO 5 y=1 FOR b=1 TO 5
Private Sub Command1_Click() b=-15.1 a=sub1(2.54,b+10
access下面程序运行后输出的是 Private Sub Form_Click() For i=1 To 4 x=1
Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As In
Private Sub Command1_Click() A = Val(Text1.Text):B = Val(Tex