编写一个function函数，给一个整数判断他是否能同时被3或5整除

我好像回答过此类问题,你去我的回答上找找吧.

'若能被 3 或 5 同时整除返回 True 否则返回 False
Function fun1(ByVal value) As Boolean
fun1 = Not CBool((value Mod 3) Or (value Mod 5))
End Function

'传入一个数组获取最小的、最大的数字
Sub fun2(values() As Integer)
Dim max As Integer, min As Integer, index As Integer

For index = LBound(values) To UBound(values)
If max < values(index) Then max = values(index)
If min > values(index) Then min = values(index)
Next

MsgBox "最大数：" & max & vbCrLf & "最小数：" & min
End Sub