Private Sub Command1_Click()
MyReturn 5, 6, Ans1, Ans2 ,Ans3 ,Ans4
MsgBox "答案分别是" & Ans1 & "," & Ans2 & "," & Ans3 & "," & Ans4
End Sub
Private Function MyReturn(X, Y, A, B, C, D) As Long
A = X + Y
B = X - Y
C = X * Y
D = X / Y
End Function
vb函数返回多个值
最新推荐文章于 2022-11-12 18:40:18 发布