育才学习网1.VB如何用function自定义函数
用function自定义函数，跟一般的子程序基本相同。不同的是，function需要有返回值
例如
private function sumQiuHe(x as integer,y as integer)
sumQiuHe=x+y
end function
然后，在其他程序段中调用
dim i as integer
i=sumQiuHe(3,5)
即可得i=8
至于自定义inputbox
这个估计是有些难度了。自定义函数，可以是对已经函数、方法等的组合应用，或者对一些基本函数进行扩展。比如，可以写一段固定输出内容的msgbox，在自定义的函数中加入需要固定显示的对话框内容。如果用VB语句去实现比较基础的函数功能。恐怕是比较难的。
比如，不使用VB的数学运算，你能自己设计一段程序语句去实现加法、乘法吗？也没有这个必要。
2.vb用function怎样自定义函数
1、打开VB6.0，新建一个工程，在窗体中添加一个命令按钮，caption分别改为“调用函数”，将窗体Form1的caption属性改为“VB6.0自定义函数”，将界面设置成下图：
2、双击窗体Form1，进入代码编辑窗口，单击左侧下拉三角形，选择通用。
3、在通用段输入如下代码：
Public Sub F1(n%, ByVal m%)
n = n Mod 10
m = m \ 10
End Sub
并将Form_Load事件删除。
以上代码就定义了函数F1，其中包括两个参数，类型均是整型，%表示 短整型，Byval表明了值传递方式，表示值传递，与地址传递相对应。这也是默认的传递方式。
4、双击“调用函数”命令按钮，进入代码编辑窗口，输入如下代码：
Dim x%, y%
x = 12: y = 34
Call F1(x, y)
Print x, y
yongcall进行函数的调用，参数与自定义函数中参数一一对应。
5、然后关闭代码窗口，按下F5运行程序，单击“调用函数”命令按钮，在窗体中打印输出2 34，可以自己想下为什么是这个结果，这个结果和函数的值传递方式有关，
3.用vb的function怎么写这个表达式
a（)、x的数据类型自己修改Private Function y(a() As Double, x As Double) Dim n As Long Dim i As Long Dim xm As Double 'x的幂，数据类型和x一致 n = UBound(a) For i = 0 To n xm = x ^ i y = y + a(i) * xm NextEnd Function调用的例子，假设n=2,x=10Dim a(2) As Double '数据类型和函数的参数定义必须一致print y(a, 10)调试通过，但计算结果没手算验证。
4.vb sub与function写法区别
function称为函数
sub称为过程
函数可以有返回值，把处理结果直接赋值给函数本身
比如楼主问题里：are= q*q，就是把结果直接赋值给函数！这就是函数的返回值！
函数在使用时，不能单独使用（极个别除外）！
比如，print are(10)，前面添加了输出语句！或者i=ate(10)，将函数返回值赋值给变量i！所以函数返回值就如同变量一样！
当然如果你写一个没有返回值的函数，那它其实就跟sub一样，是个过程！
过程没有返回值，只能对数据进行处理，需要另外通过变量来传递处理后的数据！
而且过程可以单独使用！
5.vb的function函数是不是写在模块里,具体怎么用
对这个问题的回答包含你的问题。朋友
莞而嫣笑
| 浏览 7 次
来自：手机知道
编程语言编程
用VB语言实现哥德巴赫猜想功能.验证200以内的正偶数都能分解为两个素数之和
Private Sub Form_Click()
For i = 4 To 200 Step 2
For j = 2 To i
If Not prime(j) And Not prime(i - j) Then
Print i; "="; j; "+"; i - j
Exit For
End If
Next j
Next i
End Sub
Private Function prime(ByVal x%) As Boolean
For i = 2 To Sqr(x)
If x Mod i = 0 Then
prime = True
Exit For
End If
Next
End Function
6.VB 如何使用下面的Function
Private Function BigEnterTXT(Num1, Num2, Num3) As Boolean
Open App.Path &； "\费用表.txt" For Input As #1 '打开文件
Line Input #1, Num1
Line Input #1, Num2
Line Input #1, Num3
Close #1
End Function
用法：
Dim x, y, z
Call BigEnterTXT(x, y, z)
Text1.Text = x
Text2.Text = y
Text3.Text = z
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
7.vb中function
确切地说是 temp的地址自动给fdegrees
fdegrees与temp的地址一样，两者等同
（不严格地说 可理解为 temp的值自动给fdegrees 但实际不太一样 虽然效果是如此）
vb默认的是按地址传递
调用这个函数时celsius(temp)
function celsius(fdegrees) 'temp的地址自动给fdegrees,fdegrees与temp的地址一样，两者等同，在这个时候，如果fdegrees的值在函数中变了，temp的值也会变
celsius =(fdegrees -32)*5/9
end function
如果是这么写
则和你理解的完全一样
temp的值自动给fdegrees（在这个时候，如果fdegrees的值在函数中变了，temp的值不变）
function celsius(ByVal fdegrees)
celsius =(fdegrees -32)*5/9
end function
8.vb 中 FUNCTION
不是完全没方向了，而是完全错误了。
Private Function CheckIndex(ByVal index As Integer)'判断是否，用boolean类型
Dim checkedIndex As Integer'checkedIndex是函数名，不能再定义变量
For index = 0 To m_totNumOfSeats - 1
checkedIndex = index
Next
Return checkedIndex'Return是C,VB用的是：CheckIndex=i
End Function
Private Function CheckIndex(ByVal index As Integer) as boolean
CheckIndex= index >= 0 and index
转载请注明出处育才学习网 » vbfunction怎么写