1樓:
option explicit
private sub command1_click()dim n as long
n = val(text1)
text2 = fenjie(n)
end sub
private function fenjie(n as long) as string
dim t as string, i as long, k as long
i = n
k = 2
do while (k <= n)
if n mod k = 0 then
t = t & k & "*"
n = n / k
else
k = k + 1
end if
loop
fenjie = i & "=" & left(t, len(t) - 1)
end function
vb小白請教乙個求因子數的問題(輸入乙個整數,顯示不同因子和因子個數)
2樓:匿名使用者
m是函式的形參,就是引數,在呼叫的時候傳進去個啥數不知道,用它代替fun(n)的n就是實參,就是具體傳進去的數,傳進去後m的數值就是n了
for k = 1 to abs(m) / 2,如果這個不是整數----那需要處理一下,比如用int函式
fun帶引數並且作為返回的數值的時候fun要帶上()fun帶引數並且不作為返回的數值的時候fun不要帶上(),fun後面是空格和引數
沒有引數的時候直接寫
編寫vb程式,輸入乙個大於1的正整數,求它的所有因子(包含1和本身)。
vb:請輸入乙個大於1的正整數,求它的所有因子(含1和本身)
3樓:匿名使用者
在text2中顯是因子,在text3中顯示質因子請先設定text2與text3的multiline = true,scrollbars = 2。(不能在**中設定)
**如下。private sub command1_click()
dim i as integer
dim v as long
text2.text = ""
text3.text = ""
v = val(text1.text)
for i = 1 to v
if v mod i = 0 then
text2.text = text2.text + str(i) + vbcrlf
if isprime(i) = true and i > 1 then text3.text = text3.text + str(i) + vbcrlf
end if
next
end sub
function isprime(byval n as long) as boolean
dim i as long
for i = 2 to int(n / 2)
if n mod i = 0 then isprime = false: exit function
next
isprime = true
end function
4樓:匿名使用者
private sub command1_click()dim i as integer
if val(text1.text) > 0 thentext2.text = ""
for i = 1 to val(text1.text)if val(text1.text) mod i = 0 then text2.
text = text2.text & space(3) & str(i)
next i
end if
end sub
利用sql server求1 500之間的質數
直接執行輸出 declare i int,j int,r intset i 2 while i 500 begin set j 1 set r 1 while j i begin if i j 0 and i j and j 1begin set r 0 break endset j j 1 end...
c語言求數的因子,c語言求乙個數的因子
ok洛陽水席 include int m void num int n,int b for i 0 i 要寫成動態的可以這樣 include int m for i 0 i 將a陣列作為形式引數,把a中的資料傳遞給主調函式中的實參陣列b。實參陣列b的大小要保證能夠存放整數m的因子 這句話好神奇 這句...
求大神舉例解釋質權 抵押權 留置權
質權 抵押權 留置權雖然都是債務相關的法律名詞,但是有許多人分不清楚,也不會進行使用。三者有很大的區別,最主要的便是性質不同。一 質押。質押權是指的以擔保債權的覆行為目的,而由債權人占有債務人或第三人交付的物或者權利,當債務人不覆行債務的時候債權人有權依法處分標的物,並以處分標的物所得的價款優先受償...
謳歌CDX的車怎麼樣,真心求問,謳歌CDX質量怎麼樣?
suv市場車型千千萬,各有各的好,偏偏有這麼一群人唯有謳歌cdx是其心頭好。我很好奇,為什麼大家會選擇謳歌cdx。說扭力梁,是覺得這個車後排會抖吧。但是實際上開起來這個車還是可以的,自己覺得好就行。本人也剛買最 的,還是挺喜歡的。除了車機感覺不是很高科技,其他都還行。真心求問,謳歌cdx質量怎麼樣?...
我的頭髮燙染過髮質特別差乾枯的像草一樣求超級有效的洗髮水護髮素謝謝
我剛剛燙完頭髮也跟你的情況一樣,我同學推薦我用的施華蔻羊脂絨的修復受損髮質的那一款,用完特別好,現在不幹也不分叉,不過你洗的時候推薦你洗澡的時候一起洗頭,洗澡之前用洗髮水洗頭髮,洗好,把頭髮擦半乾,抹上髮膜,然後再洗澡,這樣,你就可以利用洗澡時的熱水真氣去蒸你的頭髮,洗好後,不要急著吹乾,買條大毛巾...