有程序段如下Private Sub Form_Click()Static I As IntegerI = I + 1Print IEnd Sub 当第三次单击窗体时打印出的I值为()
A.0
B.1
C.2
D.3
A.0
B.1
C.2
D.3
Option Compare Database
Dim x As Integer
Private Sub Form_Load()
x=3
End Sub
Private Sub Commandll_ Click()
Static a As Integer
Dim b As Integer
b=x^2
funl x,b
funl x,b
MsgBox〝x=〞&x
End Sub
Sub funl(ByRef y As Integer,ByVal z As nteger)
y=y+z
z=y-z
End Sub
Option Compare Database
Dim x As Integer
Private Sub Form_Load()
x=3
End Sub
Private Sub Command11_Click()
Static a As Integer
Dim b As Integer
b=x^2
fun1 x,b
fun1 x,b
MsgBox "x="&x
End Sub
Sub fun1(ByRef y As Integer,ByVal z As Integer)
y=y+z
z=y-z
End Sub
B、1
C、2
D、3
A、25
B、36
C、49
D、81
Private Sub Form_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 2 To 10
If i Mod 2 $amp;sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后,单击窗体,输出结果为()。
A.12
B.30
C.24
D.18
A、0 0
B、-5 0
C、-5 6
D、0 6
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!