7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2004-07-03
- 打赏
- 举报
Sub calc(ByVal x As Long, ByVal y As Long, ByRef he As Long, ByRef pingfanghe As Long, ByRef lifanghe As Long)
he = x + y
pingfanghe = x ^ 2 + y ^ 2
lifanghe = x ^ 3 + y ^ 3
End Sub
Private Sub Command1_Click()
Dim a As Long, b As Long, x As Long, y As Long, z As Long, s(4) As String
a = InputBox("please enter inter a :", "", 3)
b = InputBox("please enter inter b :", "", 4)
calc a, b, x, y, z
s(0) = "a=" & a
s(1) = "b=" & b
s(2) = "a+b=" & x
s(3) = "a^2+b^2=" & y
s(4) = "a^3+b^3=" & z
MsgBox Join(s, vbCrLf)
End Sub
he = x + y
pingfanghe = x ^ 2 + y ^ 2
lifanghe = x ^ 3 + y ^ 3
End Sub
Private Sub Command1_Click()
Dim a As Long, b As Long, x As Long, y As Long, z As Long, s(4) As String
a = InputBox("please enter inter a :", "", 3)
b = InputBox("please enter inter b :", "", 4)
calc a, b, x, y, z
s(0) = "a=" & a
s(1) = "b=" & b
s(2) = "a+b=" & x
s(3) = "a^2+b^2=" & y
s(4) = "a^3+b^3=" & z
MsgBox Join(s, vbCrLf)
End Sub
BlueBeer 2004-07-03
- 打赏
- 举报
楼上两种都是不错的方法，还有就是可以声明几个全局变量，在sub或function中给这几个变量赋值
zhouxu21 2004-07-03
- 打赏
- 举报
定义一个数组，把要返回的值赋给数组。vb6支持数组做参数，
mylzw 2004-07-03
- 打赏
- 举报
还可以用type类型来作为返回值，这样，就能拥有多个返回值了。
liuyan4794 2004-07-03
- 打赏
- 举报
传如参数时，采用的不是传值，而是传地址
