2、运行程序单击窗体,在窗体上显示的内容是:16 20
Private Sub Form_Click()
Dim n As Integer, m As Integer
n = 1: m = 2
Print n + m + f(n, m) ;
'优先执行f函数,n,m变化后再运算 “+”
n = 2: m = 1
Print f(n, m) + f(m, n)
'n,m第一次变化后,第二次以变化后的值再调用
End Sub
Private Function f(n As Integer, m As Integer)
n = n + m
m = m + 3
f = n + m
End Function
3、执行下面的程序,在窗体上显示的输出结果是______;如果将A语句改成:Call sub1(b+1,a),则在窗体上显示的输出结果是______。
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 1: b = 2
Call sub1(a, b) 'A
Print a, b
End Sub
Private Sub sub1(x As Integer, ByVal y As Integer)
x = x + y
y = x + y
End Sub
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。