1樓:匿名使用者
function gys(byval x as integer,byval y as integer) as integer
do while y<>0
preminder = x/y
x=yy=preminder
debug.print x,y '這樣你就能看清楚計算過程loop
gys=x
end funtion
private sub command_click()dim a as integer ,b as integera =10
b=2x=gys(a,b)
print x
end sub
第一個問題給你加句,自己看吧。第二個問題,你宣告瞭兩個整數型變數,計算結果自動四捨五入。
2樓:**大師兄
。。。麻煩下次排版好一點。。。
函式裡的迴圈,是在y不等於0的時候執行,第一次迴圈:p=5,x=2,y=5;第二次:p=0,x=5,y=0
返回值是x,所以是等於5
3樓:愛梔竹的人
因為y是整形, y=0.4這個語句執行後 y=0 ,小數自動捨棄.
vb中的函式過程怎麼呼叫??
4樓:泡影果果
1、呼叫的函式名和定義的函式名不一樣應改為一致。
2、這是個遞迴函式,詞句在不斷的呼叫後,最終會使b(除數)為0。這樣系統就會報錯,應該在maxmod()中新增一句當b=1時,讓其退出函式。
修改後的函式如下:
private function maxmod(byval a as long, byval b as long) _
as long
if b = 1 then
exit function
end if
dim p as long
p = a mod b
if p = b then
maxmod = b
else
maxmod = maxmod(b, p)end if
end function
private sub command1_click()dim a as long
dim b as long
dim answer as long
a = val(text1.text)
b = val(text2.text)
answer = maxmod(a, b)print answer
end sub
5樓:匿名使用者
print caesarjia(a,b) a,b是你要代入的2陣列變數
可以呼叫~一樣的
vb中如何獲得呼叫函式的過程的名字?
6樓:
為calc()函式增加一個引數,在呼叫的時候填入一個引數判斷呼叫者,在calc()的內部就可以直接知道是誰呼叫了。
例如:private sub form_load()calc "form_load"
end sub
'-------------------------------private sub command1_click()calc "command1_click"
end sub
'-------------------------------private sub command2_click()calc "command2_click"
end sub
'-------------------------------private sub calc(callname as string)
'.......
msgbox "呼叫過程名稱是" & callname'.......
end sub
7樓:
不知道你這個calc()函式是什麼樣的函式
類?過程?還是dll?
一個比較好的方法就是為calc()函式新增一個引數,呼叫的時候填入一個引數判斷呼叫者,比如可以填入窗體名,控制代碼,或者自定義的引數值等
vb程式通過什麼呼叫該函式過程?
8樓:匿名使用者
private sub command1_click()dim a(20) as integer
dim b as integer
list1.clear
for i = 1 to 10
list1.additem i
next i
for i = 1 to 10
randomize
b = int(rnd * list1.listcount)print list1.list(b) & " ";
list1.removeitem (b)
next i
end sub
9樓:伈雨
你的問題描述不清,能說詳細點嗎?
vb如何呼叫函式
10樓:麻木
用myfile = dir("c:\windows\*.ini")函式,若第二次呼叫 dir 函式,但不帶任何引數,則函式將返回同一目錄下的下一個 *.ini 檔案。
這個可選的errornumber引數可以為任何有效的錯誤號。如果errornumber是有效的錯誤號,但尚未被定義,則error將返回字串「應用程式定義的錯誤或物件定義的錯誤」。
如果errornumber不是有效的錯誤號,則會導致錯誤發生。如果省略errornumber,就會返回與最近一次執行時錯誤對應的訊息。如果沒有發生執行時錯誤,或者errornumber是 0,則error返回一個長度為零的字串 ("")。
11樓:匿名使用者
1.定義一個加法函式
private function addition(a as double, b as double) as double
addition = a + b
end function
2.在command1單擊事件中觸發,先在窗體中加入2個文字框和一個按鈕command1
private sub command1_click()debug.print addition(text1.text, text2.text)
end sub
12樓:匿名使用者
private function fn1() as string '函式fn1,返回字串型別的值
'函式體
fn1 = "你好"
end function
private function fn2(n as boolean) as string '函式fn2
fn2 = iif(n,"真","假")
end function
呼叫時:
dim str as string
str = fn1 'str = "你好"
str = fn2(true) 'str = "真"
在vb中呼叫function過程,是怎麼呼叫?直接在過程中引用名稱名?
13樓:匿名使用者
有3種模式。架設函式叫a,那麼可以call a(),a,變數\屬性=a()(包括在語句中直接呼叫,如if a()="asss" then beep。前兩種拋棄返回直,最後一種返回值,注意()的問題。
14樓:匿名使用者
呼叫函式過程:
通常,呼叫自行編寫的函式過程的方法和呼叫 visual basic 內部函式過程(例如 abs)的方法一樣;即在表示式中寫上它的名字。
就像呼叫 sub 過程那樣,也能呼叫函式。下面的語句都呼叫同一個函式:
call year (now)
year now
當用這種方法呼叫函式時,visual basic 放棄返回值。
15樓:匿名使用者
cls用於清空螢幕上已經「print」的資料print rand();" ";是不是算引用了function rand了?------呼叫。
兩句用於在螢幕上輸出
print指令如果在最後沒有分號「;」就不會自動換行,所以要加上print的空指令輸出一行空行
vb 模組中的過程如何呼叫?
16樓:匿名使用者
呼叫過程,呼叫過程有諸多技巧,它們與過程的型別、位置以及在應用程式中的使用方式有關。下面說明如何呼叫 sub 過程和 function 過程。
呼叫 sub 過程
與 sub 過程不同,在表示式中,sub 過程不能用其名字呼叫。呼叫 sub 過程的是一個獨立的語句。sub 過程還有一點與函式不一樣,它不會用名字返回一個值。
但是,與 function過程一樣,sub 過程也可以修改傳遞給它們的任何變數的值。
呼叫 sub 過程有兩種方法:
'以下兩個語句都呼叫了名為 myproc 的 sub 過程。
call myproc (firstargument, secondargument)
myproc firstargument, secondargument
注意,當使用 call 語法時,引數必須在括號內。若省略 call 關鍵字,則也必須省略引數兩邊的括號
呼叫函式過程
通常,呼叫自行編寫的函式過程的方法和呼叫 visual basic 內部函式過程(例如 abs)的方法一樣;即在表示式中寫上它的名字。
'下面的語句都呼叫函式 todec。
print 10 * todec
x = todec
if todec = 10 then debug.print "out of range"
x = anotherfunction ( 10 * todec)
就像呼叫 sub 過程那樣,也能呼叫函式。下面的語句都呼叫同一個函式:
call year (now)
year now
當用這種方法呼叫函式時,visual basic 放棄返回值。
呼叫其它模組中的過程
在工程中的任何地方都能呼叫其它模組中的公用過程。可能需要指定這樣的模組,它包含正在呼叫的過程。呼叫其它模組中的過程的各種技巧,取決於該過程是在窗體模組中、類模組中還是標準模組中。
窗體中的過程
所有窗體模組的外部呼叫必須指向包含此過程的窗體模組。如果在窗體模組 form1 包含 somesub 過程,則可使用下面的語句呼叫 form1 中的過程:
call form1.somesub(arguments)
類模組中的過程
與窗體中呼叫過程類似,在類模組中呼叫過程要呼叫與過程一致並且指向類例項的變數。例如,democlass 是類 class1 的例項:
dim democlass as new class1
democlass.somesub
但是不同於窗體的是,在引用一個類的例項時,不能用類名作限定符。必須首先宣告類的例項為物件變數(在這個例子中是 democlass )並用變數名引用它。
標準模組中的過程
如果過程名是唯一的,則不必在呼叫時加模組名。無論是在模組內,還是在模組外呼叫,結果總會引用這個唯一過程。如果過程僅出現在一個地方,這個過程就是唯一的。
如果兩個以上的模組都包含同名的過程,那就有必要用模組名來限定了。在同一模組內呼叫一個公共過程就會執行該模組內的過程。例如,對於 module1 和 module2 中名為 commonname 的過程,從 module2 中呼叫 commonname 則執行 module2 中的 commonname 過程,而不是 module1 中的 commonname 過程。
從其它模組呼叫公共過程名時必須指定那個模組。例如,若在 module1 中呼叫 module2 中的 commonname 過程,要用下面的語句:
module2.commonname (arguments)
public 用於宣告對所有模組中的所有其它過程都可以使用的過程。
private 用於宣告只能在包含該宣告的模組中使用的過程。
vb程式設計例項編制通用函式過程,計算double型別以為陣列所有元素的平均值
你的題目不完整,不知道你的陣列中的數,是不是一個等差數列,如果是的話,按下面的方法來做,隨便給出兩個位置,及相應的值,即可算出平均值 private sub command1 click dim a 1 to 10 as doublem 4 a m 1.667 n 10 a n 3.333 step...
分段函式求f(x)導數,過程謝謝
按區間求導不就行了。求導會不會?f 0 lim x 0 xe 1 x 0f 0 f 0 lim x 0 ln 1 x 0x 0,f x 連續 f 0 lim h 0 he 1 h f 0 h lim h 0 e 1 h 0f 0 lim h 0 ln 1 h f 0 h lim h 0 h h 1 ...
VB中RND函式的問題,VB中 rnd函式問題?
rnd 函式 返回一個包含隨機數值的 single。語法rnd number 可選的 number 引數是 single 或任何有效的數值表示式。返回值如果 number 的值是 rnd 生成 小於 0 每次都使用 number 作為隨機數種子得到的相同結果。大於 0 序列中的下一個隨機數。等於 0...