VB的函数返回值问题

我想问,如果函数中有多个值,那么应该返回哪个值?例如,下面的函数,在调用时,是返回a还是b?PrivateFunctionaaa()AsIntegerDima,bAsIn... 我想问,如果函数中有多个值,那么应该返回哪个值?例如,下面的函数,在调用时,是返回a还是b?
Private Function aaa() As Integer
Dim a, b As Integer
a=1
b=2
End Function
展开
 我来答
百度网友ed9a3d2
2015-11-28 · TA获得超过2304个赞
知道大有可为答主
回答量:1361
采纳率:50%
帮助的人:703万
展开全部

  你这个函数只可能返回一个值0。因为你没有给aaa赋什么值,其默认值为0。

 

  一般来说,函数中的值是否返回是由编程者来决定的。如果返回a的值,则作以下更改:

Private Function aaa() As Integer
Dim a, b As Integer
a=1
b=2 
aaa=a '添加这条语句,返回a
End Function

  要返回多个值一般通过自定义数据类型来实现。如下例定义了有两个子项的自定义数据类型,可以返回两个值。(你定义了几个子项就可以返回几个)

 

  VB6新建一工程,在窗体上拖入一个按钮控件,然后进入代码区,删除所有代码后,粘贴以下代码即可。

Option Explicit
Private Type ABC '自定义数据类型ABC,内有两小项x,y
      x As Long
      y As Long
End Type
Private Sub Command1_Click()
 Dim k As ABC
 k = aaa(5, 6) '调用函数
 Print k.x, k.y '将两个返回值打印到窗体上
End Sub
Private Function aaa(a As Integer, b As Integer) As ABC
  aaa.x = a * 10 '函数的第一个返回值
  aaa.y = b * 100 '函数的第二个返回值
End Function

  效果图:

 

  还有一种方式,不太好理解,这里不示例了。

51CTO学院
2015-11-28 · 中国最大的IT实战在线培训平台
51CTO学院
中国最大的IT实战在线教育培训平台。
向TA提问
展开全部
VB的自定义函数也就是自己根据自己的需求编制一个符合自己格式的函数
自定义函数一般都是把许多VB自带的函数编制一个符合自己需要的函数
例如制作一个辨别一个数是否为素数的函数
工具-添加过程-单选函数项
我输入的函数名为:ssif
格式为 只有一个参数为整型
是素数返回真 不是返回假

Public Function ssif(Nos As Integer) As Boolean
For i = 2 To Nos
If Nos Mod i = 0 Then
ssif = False
Exit For
End If
Next i
ssif = True
End Function
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
lzxdy
2015-11-28 · TA获得超过1391个赞
知道小有建树答主
回答量:957
采纳率:0%
帮助的人:374万
展开全部
该函数没有返回值,只是做一些特定运算。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式