早教吧作业答案频道 -->数学-->
答案是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是小数.a是车辆数,不能为小数.如何去整?sets:z/1..11/;k/1/; 2020-04-26 …
matlab程序 解方程组syms a b Rsd Rspf1=72.8*(1+cos(a))-2 2020-05-16 …
关于斐波那契数列的编程题求助Description一个三元斐波纳奇数列定义为如下递归式:A[i]= 2020-05-22 …
Where can wemost probably read this text?A.In s re 2020-05-24 …
Which of the following can be the best title of th 2020-05-25 …
VB求解释13.以下程序输出的结果是D。Dimaa=array(1,2,3,4,5,6,7)ForI 2020-10-30 …
VB随机函数初学..PrivateSubCommand1Click()DimaAsIntegerDi 2020-11-01 …
答案是10,但我需要过程,求高手赐教,把每个过程也写下DimaAsIntegerPrivateSub 2020-11-01 …
下证明过程中蕴涵的数学思想是什么s=a+a(1+i)+a(1+i)(1+i)+...+a(1+i)的 2020-11-01 …
用matlab解一下这个微分方程!急.di/dt=(480*m+15*n+20*k*i)*(1+a- 2020-12-12 …