導航:首頁 > 編程語言 > 自定義vb編程

自定義vb編程

發布時間:2022-10-05 03:47:17

『壹』 用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

閱讀全文

與自定義vb編程相關的資料

熱點內容
程序員用得到數字區嗎 瀏覽:174
python求商 瀏覽:477
ipad能用c語言編譯器嗎 瀏覽:561
軟泥解壓球最新版 瀏覽:998
4萬程序員辭職創業 瀏覽:759
thinkingphp 瀏覽:597
安卓相冊移動文件夾 瀏覽:6
耳朵清潔解壓聲控99的人都睡得著 瀏覽:205
叉車出租網站源碼 瀏覽:874
共享單車的app是什麼 瀏覽:408
不帶gui的伺服器什麼意思 瀏覽:373
金剛經及PDF 瀏覽:102
php中冒號 瀏覽:358
php5432 瀏覽:352
命令在哪使用 瀏覽:172
php獲取網頁元素 瀏覽:708
為什麼需要硬體驅動編譯 瀏覽:885
pm編程怎樣看導柱孔對不對稱 瀏覽:138
農業大學選課找不到伺服器怎麼辦 瀏覽:659
路由配置網關命令 瀏覽:935