早教吧作业答案频道 -->数学-->
答案是10,但我需要过程,求高手赐教,把每个过程也写下DimaAsIntegerPrivateSubCommand1Click()DimbAsInteger,cAsIntegera=2:b=-1CallMySub(b,c)c=c+bCallMySub(c,b)a=a+cText1.Text=a+b
题目详情
答案是10,但我需要过程,求高手赐教,把每个过程也写下
Dim a As Integer
Private Sub Command1_Click()
Dim b As Integer, c As Integer
a = 2: b = -1
Call MySub(b, c)
c = c + b
Call MySub(c, b)
a = a + c
Text1.Text = a + b + c
End Sub
Sub MySub(ByVal x, y)
Dim b As Integer
a = x + a + b
x = 2 * a + x
y = x + 1
End Sub
Dim a As Integer
Private Sub Command1_Click()
Dim b As Integer, c As Integer
a = 2: b = -1
Call MySub(b, c)
c = c + b
Call MySub(c, b)
a = a + c
Text1.Text = a + b + c
End Sub
Sub MySub(ByVal x, y)
Dim b As Integer
a = x + a + b
x = 2 * a + x
y = x + 1
End Sub
▼优质解答
答案和解析
题目没问全吧?其实这种问题你用VB自己一步步调试一下就可,可以看到每一步每一个变量的变化过程.
看了答案是10,但我需要过程,求高...的网友还看了以下:
已知a/b=c/d=e/f=2,当b+d≠0时,a+c/b+d=;当b+d+f≠0时,a+c+e/ 2020-05-14 …
把函数y=e^x的图像按向量a=(2,3)平移,得到y=f(x)的图像,则f(x)=?A.e^(x 2020-05-16 …
若a/b=c/d=e/f,则下列各式中正确的是().A.e/f=ac/bdB.e/f=(a+c+e 2020-06-06 …
已知b分之a=d分之c=f分之e=2且b+d+f≠0.(1)b+d+f分之a+c+e=(2)b-d 2020-06-09 …
main(){unionEXAMPLE{struct{intx,y;}in;inta,b;}e;e 2020-06-12 …
如图,若AB∥CD,则∠B、∠C、∠E三者之间的关系是()A.∠B+∠C+∠E=180°B.∠B+ 2020-06-12 …
(1)如图①∵∠B+∠D+∠1=180°又∵∠1=∠A+∠2∠2=∠C+∠E∴∠A+∠C+∠E+∠ 2020-06-13 …
已知a/b=c/d=e/f=2/3(b+d+f≠0),求(a+c+e)/(b+d+f)的值. 2020-06-30 …
急一道数学题已知a/b=c/d=e/f=m/n(b+d+f+...+n≠0)(1)试说明:a+c+e 2020-11-01 …
输入任意大小的3个整数,判断其中是否有两个奇数一个偶数.若是则输入YES,不是则输出NO我编的程序哪 2020-12-09 …