以下用户自定义函数
Function Func(a As Integer, b As Integer) As Integer
Static m As Integer, i As Integer
m=0:i=2
i=i+m+i
m=i+a+b
Func=m
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1
Dim k As Integer, m As Integer,p As Integer
k=4:m=1
P=Func(k,m)
Print p
End Sub
程序运行后,单击命令按钮,输出结果为
查看答案
在窗体上添加一个按钮,名为Command1,然后编写如下的事件过程,输出结果为
Prinvate Sub Comand1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+5
Next
Next
Next
Print x
End Sub
A. 13
B. 26
C. 30
D. 40
Where can listeners get additional information？
At a project office.
B. At a website.
C. On 25th Street.
D. At the Town Hall.
What does the speaker say about Ms. Lee's presentation？
A. It left a few questions unanswered.
B. It was very impressive.
C. He would like a copy of it for reference.
D. He had doubts on some points.
Where will the group go last？
A. Delivery.
B. Production.
C. Accounting.
D. The cafeteria.
微信支付 
支付宝支付