自定义vb编程

‘壹’ 用EXCEL 制作自定义函数 关于VB编程部分

private
function
Q
(x
as
single)
as
single
dim
v
as
single
select
case
x
x
<
=
0
:
v
=
(1+x*x)/sqr(1+X^4)
x
>
0
:
v
=
(2X+SIN(X)*SIN(X))/(2+X)
end
select
q
=
v
end
function
z(x)同上写法
VB中是否有幂函数我不知道，不过应该有。各大编程语言里面都有POW这个函数，如果VB里面没有可以自己编一个，如果幂是非整数就有点麻烦。

‘贰’ 求VB的自定义函数的写法 我是自学的最好详细点

您好！VB应用程序采用了事件驱动的运行机制，程序执行后系统等待某个事件的发生，然后去执行此事件的事件过程。有时，多个事件过程要使用一段相同的程序代码，为了避免程序代码的重复编写，提高用户编写程序的效率，可以将实现某个特定功能的代码定义为一个独立的功能模块，供多个时间过程多次调用。这种独立的功能模块可以由系统事先定义，例如方法和内部函数；也可以由用户根据需要自己定义，称之为自定义过程（函数）。
自定义函数过程是以“Function”关键字开始的函数过程。
自定义函数过程的语法格式如下：
[Public|Private] [Static] Function 函数过程名 （[形参列表]) [As 类型]
实例：例如计算内圆和外圆之间的环形面积
Private Sub Command1_Click()
Dim r1!,r2!,s1!,s2! `分别表示内径、外径、内圆面积、外圆面积
r1=val(text1.text)
r2=val(text2.text)
s1=area(r1)
s2=area(r2)
label4.caption=format(s2-s1,"0.00) `以固定格式显示结果
End Sub
Private Function Area(r!) As Single `这里是楼主要看的重点啦 Area——自定义函数名，r!形参+形参类型
Dim s!
s=3.14*r*r
Area=s
End Function
0 0这样楼主大概明白了吧，不行再说，我再说详细一些。

‘叁’ vb 自定义函数怎么定义和调用

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
function conn() As adodb.connection

‘肆’ VB自定义函数

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

‘伍’ vb.net 自定义控件编程

我告诉你思路：
1，首先添加定时器，用来循环检查鼠标的位置
2，Control.MousePosition.X 可以获取当前鼠标在当前运行窗体中的相对位置
Control.MousePosition.Y
3,定时器内触发当鼠标位置在TEXTBOX1 和BUTTON1上的事件

‘陆’ vb如何编写自定义事件

你们这叫函数是过程不是事件，事件很好定义用withevents定义，只是用什么动作触发该事件就要伤脑筋了需要用到api，如果用已有事件触发自定义事件就又没意义了直接用原来的事件就好了。

‘柒’ 关于vb中自定义函数和自定义过程

1.错，不管是函数还是过程，不调用不执行
2.正确，函数最终是值，所以只能在表达式中，而过程调用只能单独成为一条语句如call
...

‘捌’ vb编程,自定义变量实现颜色请指教下

其实这个问题特简单，但是三色需要三个文本框(数组控件)分别输入，设置红色、绿色、蓝色，在文本框的Text1_Change事件中设置Text2的颜色就可以了。

PrivateSubForm_Load()
Text2.Text="你好吗？"
Text2.FontSize=20
Text2.FontBold=True
EndSub

PrivateSubText1_Change(IndexAsInteger)
DimAAAsInteger,BBAsString
AA=Index
IfAA=0ThenBB="红色"
IfAA=1ThenBB="绿色"
IfAA=2ThenBB="蓝色"
IfIsNumeric(Text1(AA).Text)=FalseThen
MsgBox"你输入的"&BB&"不是数字，各种颜色的值必须是0-255之间的正整数！"
Text1(AA).Text=""
Text1(AA).SetFocus
ExitSub
EndIf
IfVal(Text1(AA).Text)<0OrVal(Text1(AA).Text)>255Then
MsgBox"你输入的"&BB&"数字不正确，不能小于0，也不能大于255！"
Text1(AA).Text=""
Text1(AA).SetFocus
ExitSub
EndIf
IfVal(Text1(0).Text)>=0AndVal(Text1(0).Text)<=255AndVal(Text1(1).Text)>=0AndVal(Text1(1).Text)<=255AndVal(Text1(2).Text)>=0AndVal(Text1(2).Text)<=255Then
Text2.ForeColor=RGB(Val(Text1(0).Text),Val(Text1(1).Text),Val(Text1(2).Text))
EndIf
EndSub

‘玖’ vb做一个自定义函数过程

PrivateFunctionTest(a,b,c)
p=(a+b+c)/2
s=(p*(p-a)*(p-b)*(p-c))
Test=s
EndFunction

PrivateSubForm_Load()
text4.Text=Test(Val(text1.Text),Val(text2.Text),Val(text3.Text))
EndSub

‘拾’ VB编程问题！！自定义数据类型

试着加上private 关键字：

Private Type studtype
no As Integer
name As String * 20
mark(1 To 3) As Single
total As Single
aver As Single
max As Single
min As Single
mid As Single
End Type

（如果 想用实现公有
则新建一个模块
里面写：
Public Type studtype
no As Integer
name As String * 20
mark(1 To 3) As Single
total As Single
aver As Single
max As Single
min As Single
mid As Single
End Type
）