VB的函数返回值问题
Private Function aaa() As Integer
Dim a, b As Integer
a=1
b=2
End Function
最新回答
虚伪无情
2025-06-27 10:17:09
你这个函数只可能返回一个值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
效果图：
还有一种方式，不太好理解，这里不示例了。
你依旧那么甜
2025-06-27 05:37:32
自定义函数一般都是把许多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
风月本无界
2025-06-27 02:41:45
热门标签
