Private Sub Form_Click() Dim a As Integer,b As Integer,k As
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 01:47:45
Private Sub Form_Click() Dim a As Integer,b As Integer,k As Integer a = 2 b = 4 k = fun((a),b)+f
Private Sub Form_Click()
Dim a As Integer,b As Integer,k As Integer
a = 2
b = 4
k = fun((a),b)+fun(a,b)
Print k
End Sub
Private Function fun(n As Integer,m As Integer) As Integer
Static k As Integer
n = n + m
k = k + n
m = m + k
fun = n + m
print fun;n;m
End Function
答案是第一行16 6 10第二行40 12 28 第三行 56
我不理解的是为什么M是12而不是16呢?
Private Sub Form_Click()
Dim a As Integer,b As Integer,k As Integer
a = 2
b = 4
k = fun((a),b)+fun(a,b)
Print k
End Sub
Private Function fun(n As Integer,m As Integer) As Integer
Static k As Integer
n = n + m
k = k + n
m = m + k
fun = n + m
print fun;n;m
End Function
答案是第一行16 6 10第二行40 12 28 第三行 56
我不理解的是为什么M是12而不是16呢?
Private Function fun(n As Integer, m As Integer) As Integer
首先先说下你的函数 其中 n 和 m 是按址传递的,也就是如果你在函数内改变了他的值,其真实的值也变了
begin:
a=2,b=4
fun((a), b),先计算这个
n=n+m;其计算时为 a=a+b 这时a=6了,这就是按址传递
k=k+n; k=0+a k=6
m=m+k; b=b+k b=10
fun=n+m fun=a+b fun=16
print fun;n;m print fun;a,b 16 6 10
这时的a=6 b=10
然后如上再代入 +fun(a,b)
.
最好你可以调试着运行,看一下值的变化
static 申请的变量,值的存活时间是程序的结束,所以,二次调用时k的值不是0
首先先说下你的函数 其中 n 和 m 是按址传递的,也就是如果你在函数内改变了他的值,其真实的值也变了
begin:
a=2,b=4
fun((a), b),先计算这个
n=n+m;其计算时为 a=a+b 这时a=6了,这就是按址传递
k=k+n; k=0+a k=6
m=m+k; b=b+k b=10
fun=n+m fun=a+b fun=16
print fun;n;m print fun;a,b 16 6 10
这时的a=6 b=10
然后如上再代入 +fun(a,b)
.
最好你可以调试着运行,看一下值的变化
static 申请的变量,值的存活时间是程序的结束,所以,二次调用时k的值不是0
Private Sub Form_Click() Dim a As Integer,b As Integer,k As
英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,max
帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b
Dim a(9) As Integer,x As Integer,k As Integer,I As Integer R
Private Sub Command1_Click() Dim i As Integer,s As Integer,n
9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer
b求π为啥是错的Private Sub Command1_Click()Dim s As Integer,n As Do
用vb 求π Private Sub Form_Click()Dim i As Long,pi As Double,k
Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As In
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer
dim a(3,2) as integer