vb中,怎样用function返回多个值??

作者&投稿:魏羽 (若有异议请与网页底部的电邮联系)
VB 怎么 在自定义函数中,返回多个值?请举例说明~

Sub 按钮1_Click() Dim 周长 As Double, 面积 As Double, 半径 As Double 周长 = 0 面积 = 0 半径 = 15# Call SubN(周长, 面积, 半径) MsgBox 周长 & " " & 面积End SubSub SubN(ByRef 周长参数, ByRef 面积参数, ByVal 半径参数) If 半径参数 < 0 Then 周长参数 = 0 面积参数 = 0 Else 周长参数 = 2 * 3.14 * 半径参数 面积参数 = 3.14 * 半径参数 * 半径参数 End IfEnd Sub 以上代码是在Excel的VBA中调试的,可以满足的要求。

不可以返回多个值的。变通方法:一是可以返回对象,对象有多个属性;二是使用引用参数,函数修改参数值。

在VB中,一个function只能用一个return语句返回一个值。哪怕有几个return语句,也只能执行一个。
如果需要返回多个值,可以使用数组,数组的每一个元素值都可以带回来。
单个变量只能在在VB中,一个function只能用一个return语句返回一个值。哪怕有几个return语句,也只能执行一个。
如果需要返回多个值,可以使用数组,数组的每一个元素值都可以带回来。
单个变量只能使用by在VB中,一个function只能用一个return语句返回一个值。哪怕有几个return语句,也只能执行一个。
如果需要返回多个值,可以使用数组,数组的每一个元素值都可以带回来。
单个变量只能在声明函数的某个参数时使用byref前缀。
其他方法如使用全局变量等,已经不属于返回值的问题了。

在以下的函数中,用一个函数,可以求得一个具有n个元素的数组中的最大值与最小值:

Private Sub Command1_Click()

  Dim a(10) As Integer, max, min

  For i = 1 To 10

    a(i) = Rnd * 100

    Print a(i);

  Next i

  Print

  ok = fun(a, 10, max, min)

  Print "Max="; max

  Print "Min="; min

End Sub


Function fun(a() As Integer, n As Integer, max, min) As Integer

  max = a(1)

  min = a(1)

  For i = 2 To n

    If a(i) > max Then

      max = a(i)

    Else

      If a(i) < min Then

        min = a(i)

      End If

    End If

  Next i

  fun = 1

End Function



区别是:function 有返回值,sub 没有返回值。在需要过程返回一个值时用 function ,其他情况下就用 sub 。至于传递参数,二者都可以传递,主要在于:一方面变量的作用域是 dim、static、private、friend 还是 public,另一方面,过程本身参数的传递方式是ByRef(按址传递,参数值可改变) 还是 ByVal (按值传递,参数值无法修改)。


...fun(int a,int b)将a,b中的2个两位正整数合并形
没看懂你题目是什么意思。

fun() { int a=1;static int b=1;a++:b++;printf("a=%d:,b=%d:",a...
主要考察的是static int b这个,这个静态局部变量 在函数结束后并不销毁,还保留上次运行的值,下次再调用这个函数的时候,b不再重新赋值1,而是保留上次运行结束后的值。所以 第一次fun调用 a=1 a++后a=2 同理 b=1 b++后b=2 所以输出 a=2:,b=2:第二次fun调用 a开始值还是1 但b是...

func(a+b,(x,y),fun(n+k,d,(a,b))); 在此函数调用语句中实参的个...
3个。fun(a+b,(x,y),fun(n+k,d,(a,b)));fun() 函数 实参有:第一个bai是 a+b, 这是表du达式,结果是1个值。zhi 第二个是 (x,y) , 这是逗dao号表达式,数值等于 y 的值。第三个是 fun(n+k,d,(a,b) ),这是函数调用,结果是1个值。

int a=0,b=0;fun(){int a=5;printf("%d,%d\\n",a,b);}
虽然在函数fun()中对a进行了赋值,但是需要注意的是这个a和公共变量中的a不同,虽然名字相同,因为fun函数中的a是有重新定义过了,属于局部变量,而不是公共变量的a,所以fun函数中的变量a你可以理解为其他名字的变量,比如c之类的,要与公共函数中的变量a区分开,他的作用域只在fun函数中有效。

int fun(int*c) main() { int(*a)()=fun,*b(),w[10]…… } int(*a...
int fun(int*c){ ...} 以上部分为声明了一个函数,输入整形指针,输出整形;然后在main内部,int(*a)()=fun,首先声明了一个指向函数的指针a,它指向的类型为int (*)(),然后把函数fun的地址赋给函数指针a,让a指向这个函数,之后,就可以在程序内使用a来调用这个函数,即 a(1);和fun(1);...

hr=*A->fun(&b)什么意思
你好,从程序看起来,假设指针A指向C类,指针b指向D类,hr是T类对象。应该是A类中有一个fun函数,函数的原型大概是 T* C::fun(D** ptr);这个就是调用了指针A指向的C类对象的fun函数,因为参数是D**,所以将指向D类的指针b的地址赋值给参数ptr.因为返回了T*的指针,而hr为T类型,所以对返回值...

13. 函数fun的功能是: 将s所指字符串中的字母转换为按字母序列的后续字...
include <stdio.h> include<string.h> void fun (char *s){ int i,l;l=strlen(s);for(i=0;i<l;i++)if(s[i]>='a'&&s[i]<'z'||s[i]>='A'&&s[i]<'Z')s[i]=s[i]+1;else if(s[i]=='z')s[i]='a';else if(s[i]=='Z')s[i]='A';} void main( ){...

7.已知一个数组a中包括10个整数元素,定义子函数fun实现从a中第二个...
您的这个程序存在一个很大的问题:两个函数之间没有连接关系。我们知道在C语言中,系统只会运行主函数main,其余的函数都是要在被主函数调用时才会运行。而您的主函数中根本就没有调用fun函数的语句,所有fun函数也就不会被执行,肯定是完成不了需要的功能的。个人建议在主函数中,输出b函数之前加上...

若函数调用语句为fun(a,b,fun(a+b,a-b,b));,则函数fun的参数个数为...
我觉得是3个,里面那个小fun()的参数是a+b,a-b,b这三个,然后这个的值构成了外面大fun()的第三个参数。

计算机c语言中a++是先用后加,还是先加后用fun((a++,b++,a+b),c++)
a++ 是先用后加 ++a 是先加后用 一个好的记忆方法,就看a在前面还是后面,再前面就是先用,在后面就是后用。

禅城区15362102969: 在vb中如何用function返回一个记录集
乔闹盖爽: 在类里的函数返回结果集对象不是很好,会有各种各样奇怪的问题,不推荐使用这种方式 两种方式 1.Function func_name(ByRef rs as Object) 2.Function func_name() As Object 类模块编译成Dll最好是用Object的来返回结果集对象

禅城区15362102969: VB中function函数返回多值怎么实现 -
乔闹盖爽: 不可以返回多个值的.变通方法:一是可以返回对象,对象有多个属性;二是使用引用参数,函数修改参数值.

禅城区15362102969: VB如何用function自定义函数?格式怎么写? -
乔闹盖爽: 用function自定义函数,跟一般的子程序基本相同.不同的是,function需要有返回值例如 private function sumQiuHe(x as integer,y as integer)sumQiuHe=x+yend function 然后,在其他程序段中调用 dim i as integer i=sumQiuHe(3,5) 即可得i=8 ...

禅城区15362102969: VB中函数怎么返回两个返回值 -
乔闹盖爽: 要返回多个值,有几种办法,最直接的就是用传址参数 Function f1(byref retVal1,byref retVal2) 或者用全局变量(比如模块级变量) 或者返回包装过的对象 或者返回多个返回值糅合的字符串

禅城区15362102969: 请VB高手用浅显易懂的语言讲下该怎么使用Function,最好在举个简单的例子 -
乔闹盖爽: 函数,有进有出.函数过程,就像一个搅拌机一样,将胡萝卜和菠菜放进去,开始搅拌.最后可以倒出胡萝卜和菠菜的混合汁.参数,就是胡萝卜和菠菜;过程就是搅拌;返回值就是混合汁.简单例子:Function sum(a as Integer,b as Integer) as Integer sum=a+b End Function msgbox sum(3,6) sum就是搅拌机,a是胡萝卜,b是菠菜,加法(+)就是搅拌这个动作了,最后返回值是9,9就是输出的东西(混合汁).于是,sum(3,4)返回7,sum(10,4)返回14 sum(3,4)和sum(10,4)都是数字来的,正如萝卜和萝卜汁都是物质.

禅城区15362102969: vB中的Function函数 -
乔闹盖爽: function关键字指定一个函数/过程可以返回特定值,如: public Function YourNeed(Param as integer)as integer ....... ....... Yourneed=100 End Function 过程在最后返回100的值,如调用a=YourNeed(10),则a=100. 而sub过程则无法返...

禅城区15362102969: VB,function返回数组
乔闹盖爽: 你可以在function的参数中放两个数组.一个传入,一个传出. Private Sub Command1_Click() Dim Aa(10), Bb(10) For i = 1 To 10 Aa(i) = i Next Call arr(Aa, Bb) For i = 1 To 10 Print Bb(i) Next End Sub Private Function arr(a, b) For i = 1 To 10 b(i) = a(i) Next End Function 在调用的时候AA有值,BB是空,通过function把值传到BB里面,

禅城区15362102969: 在VB声明带有返回值的函数的具体步骤,怎么操作? -
乔闹盖爽: 例:已知直角三角形两直角边的值,计算第三边(斜边)的函数.Function nuse(a as interger, b as interger ) as single Nuse=sqr(a^2+b^2) End Function 在VB中调用FUNCTION过程的方法:strx=nuse(width, Height) 当过程有一个返回值时,可以...

禅城区15362102969: VB函数返回值怎么写? -
乔闹盖爽: 下面给的有点问题,就是,函数的作用于,如果说在同一个函数里面,那么我觉得是没有问题的,因为变量的值没有被清楚或者被释放.如果 真的要得到一个函数的返回值,我觉得是这样的吧, Private Sub a() as doubleyour code (…sum=…) set a = sum end sub

禅城区15362102969: vb用function怎样自定义函数?格式怎么写?举个例子,比如inputbox函数用function怎么写? -
乔闹盖爽: 1、打开VB6.0,新建一个工程,在窗体中添加一个命令按钮,caption分别改为“调用函数”,将窗体Form1的caption属性改为“VB6.0自定义函数”,将界面设置成下图: 2、双击窗体Form1,进入代码编辑窗口,单击左侧下拉三角形,选择...

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网