Function WhatsForLunch(WeekDay As String, Hour _
As Integer) As String
'根据星期几和时间,返回午餐菜单。
If WeekDay = "Friday" then
WhatsForLunch = "Fish"
Else
WhatsForLunch = "Chicken"
End If
If Hour > 4 Then WhatsForLunch = "Too late"
End Function
'定义一个求两个数和的函数
'你把第一个参数分别改为ByVal 和ByRef试一下,看看输出结果有什么不同
'用ByRef可以得到正确的值,因为传的是地址.
Private Sub Add(ByRef sum As Long, Num1 As Long, Num2 As Long)
sum = Num1 + Num2
End Sub
Private Sub Command1_Click()
Dim sum As Long, n1 As Long, n2 As Long