Question

VB 返回值

返回值的具体是什么意思。。有什么作用。。
举些例子
举个除了msgbox的其他的返回值。。我想明白返回值的作用到底是什么。。

Answer 1

'返回值：调用一个函数（包括自定义的），执行一系列语句旁则，将一个结果返回给调用者
'比如 调用 自定义函数 MyFun，可以得到两升指个数运笑棚的和
Private Sub Command1_Click()
Dim S As Single
S = MyFun(2, 3) '得到 2 与 3 的和
Print S
S = MyFun(8, 3) '得到 8 与 3 的和
Print S
End Sub
Private Function MyFun(a As Single, b As Single) As Single
MyFun = a + b '返回 和
' MyFun = a * b'返回 积
End Function

Answer 2

一般调用一个函数就会得到一个函数值，这就是返回值。比如调用函数MsgBox(),就会返扰派回一个值，这值只有可能是1至7中的一种。
Private Sub Command1_Click()
a=MsgBox("消息框")
print a
End Sub
当单击命令按钮Command1后就会弹出一个消息框，单击确定按钮后就会在屏幕上打印"1"（不包括引号腔散）。
注：窗体不要被其他窗口覆盖，要不然在窗体上是可能看不到打印结果的。

我们一般要根据返回值的不同情况分别编缓圆贺写代码，比如用单击“确定”按钮后应该执行什么，这是由问题来决定的。

Answer 3

比侍棚如说
Private Sub Command1_Click()
a=MsgBox("消息框")
End Sub
当a=1,也就是这个返回值羡谈弊,能说明你点击的兄族是确定按扭,当然反过来就可以判断,当点击确定时,执行什么....,当点击取消时可以执行什么.....

Answer 4

共需要改三处:
Option
Explicit
Private
Sub
Command1_Click()
Dim
s
As
Single,
t
As
Single,
i
As
Integer
'这里蠢羡改
s
=
0:
i
=
2
Do
t
=
(-1)
^
i
/
(f(i
-
1)
*
f(i))
If
Abs(t)
<
0.0001
Then
Exit
Do
'这里物碰改
s
=
s
+
t
i
=
i
+
1
Loop
Print
s
End
Sub
Private
Function
f(ByVal
n
As
Integer)
As
Integer
If
n
=
1
Or
n
=
2
Then
f
=
1
Else
f
=
f(n
-
1)
+
f(n
-
2)
'罩档谈这里改
End
If
End
Function